1、打开excel表格之后，按下【Alt+F11】组合键调出VBA编辑器。
3、在模块代码框里面输入以下VBA程序代码，再按【F5】键运行程序。Sub Get_Files_Name()Dim MyPath1, MyPath2, Sh, strOn Error Resume Next '忽略运行过程中可能出现的错误Application.DisplayAlerts = False '忽略报警提示MyPath1 = "d:\办公文件 " '获取文件夹里面文件名称路径MyPath2 = "d:\办公文件\提取文件名\提取文件名.xls " '生成文件路径str = "cmd /c d: && @cd " & MyPath1 & "&& @tree /f >" & MyPath2Sh = Shell(str, 0) '运行命令Workbooks.OpenText Filename:=MyPath2 '打开生成的文件Sheets("提取文件名").Copy Before:=ThisWorkbook.Sheets(1) '复制生成的文件Windows("提取文件名.xls").Close '文件窗口关闭Application.DisplayAlerts = True '恢复报警提示End Sub
