officeVBA代码遍历指定目录下的文件并输出到excel表格中。
工具/原料
MicrosoftOffice或安装VBA的WPSOffice
方法/步骤
1、打开Excel后按Alt+F11打开VB苇质缵爨E插入模块输入以下代码：Subtest()OnErrorGoToToEndDimi惺绅寨瞀AsLong,HangAsLong,jAsLong'i目录下标，Hang要输入到第几行的单元格的行号，j正在查找的目录下标DimMulu()'存放目录的数组DimTfile'Dir查找的文件DimLuJing'要查找的目录地址i=0Hang=1LuJing="D:\VBA\《EXCELVBA常用代码实战大全》示例文件\"'根据需要修改此变量中的值为你的路径ReDimPreserveMulu(i)Mulu(0)=LuJingFori=LBound(Mulu)ToUBound(Mulu)RE:LuJing=Mulu(i)'当遍历完所有文件夹后会出错，跳到最后“ToEnd”j=iTfile=Dir(Mulu(i),vbDirectory)DoWhileTfile<>""IfTfile<>".."AndTfile<>"."ThenIfGetAttr(LuJing&Tfile)AndvbDirectoryTheni=i+1ReDimPreserveMulu(UBound(Mulu)+1)Mulu(UBound(Mulu))=LuJing&Tfile&"\"ElseCells(Hang,1)=LuJing&TfileHang=Hang+1EndIfEndIfTfile=DirIfTfile=""Andj<=iTheni=j+1GoToREEndIfLoopNextiToEnd:EndSub
2、修改代码中变量“LuJing”中主字符串内容为你想要的文件夹路径如：LuJing="D:\"点击“运行”按钮或按F5运行，会把遍历出的文件输入到Excel表中第1列中。
