VBA 循环遍历文件夹（宏）通用代码 2019-6-10

413191246se · 发表于 2019-6-11 15:46

* 谢楼上夸奖！我还差好多好多……
* 根据 zpy2 朋友的反馈，决定下大气力组织一个文件夹，终于完成，该文件夹共有 1200 个文件，109 个子文件夹。
* 测试第一个宏〈循环遍历文件夹_DIR〉似乎无反应，再等一会儿，Word2003 崩溃！
* 测试第二个宏〈循环遍历文件夹_FSO〉似乎无反应，再等一会儿，Word2003 崩溃！
* 发现这两个宏在 Win7 + Word2003 上运行就崩溃！但在家里 WinXP + Word2007 上运行正常！
* 我现在也在崩溃中……

duquancai · 发表于 2019-6-11 20:19

413191246se 发表于 2019-6-11 15:46
* 谢楼上夸奖！我还差好多好多……
* 根据 zpy2 朋友的反馈，决定下大气力组织一个文件夹，终于完成，该文 ...

# version: Python 3.7.0
import glob
path = r"D:"#初始文件夹路径！！！
for path_file in glob.iglob(f'{path}\**\*.doc*', recursive=True):
print(path_file)#这里处理Word文件！！！

复制代码

changhong8 · 发表于 2019-6-11 20:54

本帖最后由 changhong8 于 2019-6-12 23:03 编辑

理解错题意了，以为只要获取所有文件的全路径，如果要处理的话就慢了，一个个打开保存的很耗时间

相见是缘8 · 发表于 2019-6-12 08:09

本帖最后由相见是缘8 于 2019-6-12 08:14 编辑

changhong8 发表于 2019-6-11 20:54
就是把cmd的dir命令写入bat文件，然后shell运行，以前测试的8000多个文件的递归用200多秒，dir用了100多秒 ...

老师好！

处理8000多个文件，只用了十来秒，有这么快？？？

能请您给个完整的代码吗？如：把E盘所有多层文件夹里文件内的字体替换为：宋体、三号。
谢谢！

413191246se · 发表于 2019-6-12 08:56

谢谢杜老师、changhong8 朋友的代码，但共同问题是：均不会用！函数我放到 VBE 中，它不运行。
同意相见朋友的意见：那么快，不可能，打开每个文件需要时间的。能否提供完整代码，不要函数，不会用，请来 SUB 过程。

changhong8 · 发表于 2019-6-12 23:01

本帖最后由 changhong8 于 2019-6-13 06:57 编辑

没有打开文件，只是获取了所有文件的路径，5000+文件用了0.16秒

代码如下

413191246se · 发表于 2019-6-13 01:28

changhong8 朋友好厉害！

相见是缘8 · 发表于 2019-6-13 07:21

changhong8 发表于 2019-6-12 23:01
没有打开文件，只是获取了所有文件的路径，5000+文件用了0.16秒

代码如下

老师好！
啊！是这样呀！我以为是处理8000多个文件，只用了十来秒，那真是神速！
老师、有不有极速处理多层文件夹里文件的代码？如：把E盘所有多层文件夹里文件内的字体替换为：宋体、三号。
另外、老师的代码能发个不是图片的吗？
谢谢！

changhong8 · 发表于 2019-6-13 08:31

原始代码链接
http://rengou198912.f3322.net:5000/ns/sharing/2Wqcn

相见是缘8 · 发表于 2019-6-13 08:49

changhong8 发表于 2019-6-13 08:31
原始代码链接
http://rengou198912.f3322.net:5000/ns/sharing/2Wqcn

谢谢！不知怎么会事，我运行该代码出错。

		自动登录	找回密码
密码			免费注册

[分享] VBA 循环遍历文件夹（宏）通用代码 2019-6-10