Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/date/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
VBA-从硬盘打开所有excel文件_Excel_File_Directory_Disk - Fatal编程技术网
Fatal编程技术网
  • excel/
  • VBA-从硬盘打开所有excel文件

VBA-从硬盘打开所有excel文件

excel file directory

VBA-从硬盘打开所有excel文件,excel,file,directory,disk,Excel,File,Directory,Disk,我看到许多代码从特定文件夹打开excel文件。 你能帮我做一个代码，让它能遍历我硬盘上的每个文件夹吗？ 我知道这听起来很重要，但你——这正是我需要的 谢谢大家! 添加对Microsoft脚本运行时的引用（工具->引用…）。然后您可以编写如下代码： Dim fso作为新的FileSystemObject 子文件夹（fldr As文件夹） 将子文件夹变暗为文件夹 对于fldr.子文件夹中的每个子文件夹 解析文件夹子文件夹 下一个 将f作为文件 对于fldr.文件中的每个f 选择Case fso.Ge

我看到许多代码从特定文件夹打开excel文件。 你能帮我做一个代码，让它能遍历我硬盘上的每个文件夹吗？ 我知道这听起来很重要，但你——这正是我需要的

谢谢大家!

添加对Microsoft脚本运行时的引用（工具->引用…）。然后您可以编写如下代码：

Dim fso作为新的FileSystemObject
子文件夹（fldr As文件夹）
将子文件夹变暗为文件夹
对于fldr.子文件夹中的每个子文件夹
解析文件夹子文件夹
下一个
将f作为文件
对于fldr.文件中的每个f
选择Case fso.GetExtensionName（file.path）
案例“xls”、“xlsb”、“xlsm”
'在此处使用Excel文件执行某些操作
结束选择
下一个
端接头
副总管
'运行此宏以启动正在运行的进程
ParseFolder fso.GetFolder（“C:\”）
端接头
根据磁盘上有多少Excel文件，您可能希望只将代码指向Excel文件的较小子集或文件夹的较小子集；或者使用
DoEvents
，使应用程序不会冻结

参考资料

脚本运行时

  • --方法
  • --产品和性能