第1个回答 2022-11-16
使用excel提取文件夹中的所有文件名称的方法主要有以下两个：\x0d\x0a1、在那个文件夹内新建一个.TXT文件（如wenjian.txt），用记事本单开输入\x0d\x0adir> 1.txt\x0d\x0a保存退出\x0d\x0a将刚才的.TXT（wenjian.txt）更名为.bat文件（wenjian.bat）\x0d\x0a双击wenjian.bat文件运行一次，在文件夹内多出一个1.txt文件\x0d\x0a打开1.txt文件，将其中的内容粘贴到Excel中，数据——分列处理就可以得到你要的文件名列表了！\x0d\x0a2、VBA（2003版）\x0d\x0a在那个文件夹下新建Excel文件，打开新建的Excel文件，右击工作表标签（如Sheet1），查看代码——在代码编辑器中输入以下代码\x0d\x0aSub Test()\x0d\x0aDim i As Integer\x0d\x0aDim strPath As String\x0d\x0astrPath = ThisWorkbook.Path\x0d\x0aWith Application.FileSearch\x0d\x0a .LookIn = strPath\x0d\x0a .SearchSubFolders = True\x0d\x0a .Filename = "*.*"\x0d\x0a If .Execute > 0 Then\x0d\x0a For i = 1 To .FoundFiles.Count\x0d\x0a Range("A" & i) = .FoundFiles(i)\x0d\x0a Next i\x0d\x0a End If\x0d\x0aEnd With\x0d\x0aEnd Sub\x0d\x0a回到Excel表格中，工具——宏——宏——选择Sheet1.Test——执行\x0d\x0a\x0d\x0a方法一简单的操作就可以，方法二需要对程序有一定的了解，方法二通用性比较强，需要的时候执行一下就可以，更快捷。