Question

使用Excel实现我电脑硬盘里面某个文件夹下的所有的文件列表。

展现方式：
1、分级目录：
文件名 文件路径 文件类型 时间
2、当点击文件名，或者文件路径的时候，能够直接打开文件路径，或者直接打开文件。
3、当我打开的时候，或者我点击某个东西的时候能够自动更新文件夹下的目录。

非常感谢！我不会excel宏语言。谢谢大侠，如果回答的好，有重谢。再加50分。

Answer 1

你说的excel宏语言我不会，不过你可以先使用DOS命令生成文本文件txt，再转化为excel文件

第一步：使用DOS命令中的dir就可以生成这样的文本文件。下面介绍具体操作方法。
1.这里假设文件夹为为D:\123。
2.以Windows XP操作系统为例，单击“开始|运行”，输入cmd，然后单击“确定”。
3.在命令提示符窗口中输入以下命令，dir d:\123 >c:\filelist.txt
这样就在C:盘根目录下生成了一个名为“filelist.txt”的文本文件，该文件中即包含文件夹D:\123 里面的所有文件的详细列表。
如果希望将D:盘中子目录中的文件和文件夹列表也全部列出来，可以在命令提示符窗口中输入以下命令。dir d:\ /s >c:\filelist.txt

如果使用下面的命令，即加一个/b，则会生成一个简单的文件名列表，不包括其它信息，这种方法可能更加实用一些。dir d:\ /s /b >c:\filelist.txt

第二步：转化为excel文件
1、打开excel，“数据”菜单中的“导入外部数据”，然后“导入数据”
2、打开要导入的文本文件
3、在文本导入向导-3步骤之1中选择“固定宽度。。。”，然后“下一步”
4、在“数据预览”框中用鼠标单击想要分列位置，即想在什么位置分为一列，然后“下一步”，然后“完成”
5、去掉制表位符号，可采用替换操作。

Answer 2

将路径得到到EXCEL中即可，如果想要自动化的，可以给你用批处理实现。

追问

好几千个文件啊，如果手动可以的话，我至于提这个问题吗？如果你会实现，用其他方法实现也可以。

Answer 3

假设文件夹是D:\123，然后将所有文件名放入Excel A列中
代码及注释如下：
Sub main()
f = Dir("D:\123\*.*")'搜索D盘123文件中的所有文件
Do While f <> ""
x = x + 1
Range("A" & x) = f'将文件全名，依次放入A列中
f = Dir
Loop
End Sub

Answer 4

先导出为TXT文件，然后针TXT在EXCEL中打开，稍微加工一下就OK啦，我经常这样做，很方便的。

Answer 5

你说的这个只能用宏语言实现，我这向天也在研究这个，但现在还没有实现，我看过别人做过，我学好了给你看效果，就是一个文件夹有若干个子文件夹，每个子文件夹内若干文件，但每个文件命名规则必须一致，这样每次放入文件夹文件后，在excel文件里会自动增加目录，也可以实现文件编号重号和漏号提醒功能，且在excel文件中可链接打开目录对应文件，若有问题可加我1940186947

追问

其实我不需要通过excel更改文件，我只需要按照我说的更新目录，然后我查找的时候方便，而且，点击也能够直接到文件夹就ok了。

追答

这个主要是为了更新目录，管理方便，但我还没学会，而且对文件命名有要求，因为跟表格中函数有关系，直接就给你分类在年份文件夹中了

追问

希望你好好学啊，敬候佳音，我邮箱：yuanyunyu_2006@126.com，如果得到，记得通知我，谢谢啊！