vba获取文件夹下所有文件名 vba获取文件名称

今天小然来给大家分享一些关于vba获取文件名称方面的知识吧，希望大家会喜欢哦

1、End Sub1、在那个文件夹内新建一个.TXT文件（如wenjian.txt），用记事本单开输入用字典比较方便，不过总的来说代码还是比较复杂的。

2、dir> 1.txt保存退出将刚才的.TXT（wenjian.txt）更名为.bat文件（wenjian.bat）双击wenjian.bat文件运行一次，在文件夹内多出一个1.txt文件2、VBA（2003版）在那个文件夹下新建Excel文件，打开新建的Excel文件，右击工作表标签（如Sheet1），查看代码——在代码编辑器中输入以下代码Dim i As IntegerstrPath = ThisWorkbook.PathWith Application.FileSearch.SearchSubFolders = True.Filename = "."If .Execute > 0 ThenFor End Subi = 1 To .FoundFiles.CountRange("A" & i) = .FoundFiles(i)Next iEnd With看看效果吧！祝你成功解决问题！设这个文件夹是 E:text 目录方法是打开excel名称管理器，定义一个名称，比如我们定义为 文件引用位置输入=FILES("e:text.") &T(NOW())确定然后在任一工作表某一单元格输入=if(row(a1)>counta(文件),"",index(文件,row(a1)))。

本文到这结束，希望上面文章对大家有所帮助。