191问答库 > 自动提取文件和路径到excel

自动提取文件和路径到excel

2025-04-06 01:30:43

推荐回答（5个）

回答1：

你好！这个可以使用cmd命令和VBA程序来完成。

（1）打开cmd命令，在命令窗口里边输入以下命令并按下回车键。

（2）在D盘里边找到“abc123.csv”文件并打开，使用【Alt+F11】组合键打开VBA编辑器并新建一个代码模块，然后输入以下代码并按下【F5】键运行。

（3）执行的结果如下：

【附】引用自百度经验链接《Excel提取文件路径做成超链接》。

回答2：

简单一点的，一个文件夹的

Sub 超链接()
Dim i%
FilesToOpen = Application.GetOpenFilename("文件（*.*）,*.*", MultiSelect:=True, Title:="要超链接的文件")
i = 0
  For Each Files In FilesToOpen
   i = i + 1
   Cells(i, 1).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=FilesToOpen(i), TextToDisplay:=FilesToOpen(i)
  Next
End Sub

多文件夹的工作量稍大一点

回答3：

在需要提取文件名的文件夹下新建一个记事本：鼠标右键-【新建】-【文本文档】；
双击打开新建的文本文档，输入【DIR *.* /B >二期目录.TXT 】。注意：二期目录，可以自定义命名，与文件夹内已有文件名相同除外。
另存记事本文件：点击【文件】-【另存为】，将文件名称后缀改为【.bat】，保存类型改为【所有文件】，点击【保存】。
双击另存为.bat类型的文件，就看到生成了一个新的文件【二期目录】。
双击打开【二期目录】，即可看到【二期】文件夹下的所有文件名都被提取到记事本中了。按【Ctrl+A】-【Ctrl+C】。
新建空白Excel表格，选中单元格，按键盘【Crtl+V】，即可将提取的文件名称粘贴至excel表格。删除最后三行无效信息即可。

回答4：

试下这方法

回答5：

这个可以用VBA实现