完善VBA代码，遍历文件夹提取每个文件第3页运行出错

wkfcoffee

新建文件夹 - 副本.rar (81.25 KB, 下载次数: 12)

2023-4-24 09:09 上传

点击文件名下载附件

预设效果，使用vba命令遍历文件夹下所有文件，打开并复制第3页内容到新建文件中，结果运行后只能复制一个文件的第3页内容，然后就报错，请大神帮忙完善一下代码，谢谢！

vbee

没有什么问题

代码第二行加一句
On Error Resume Next

vbee

因为文件
11 (1).docx.docx

只有1页，没有第3页

batmanbbs

vbee 发表于 2023-4-24 10:22
没有什么问题

代码第二行加一句

我很想知道错误在哪里，看代码没有什么问题啊

batmanbbs

首先，谢谢楼主提供的代码，让我学了不少新东西，因为我从来都没有对文件操作过，一般只学习了对文档内容的操作。

通过对你的代码的学习和DEBUG，我觉得代码中可能存在三个方面的问题。因为还是不很了解对文件本身的各种操作，所以错误之处见谅，更希望指出来，共同进步。

第一句：
Set f = wordapp.Documents.Open(FileName)
这时如果这个文档已经被打开，会出现弹窗（询问是否以只读方式打开），导致程序无法正常运行，建议直接以只读方式打开，改成：
Set f = wordapp.Documents.Open(FileName, ReadOnly:=True)

第二句：
oDocTemp.SaveAs FileName:=mypath & "\" & mm & arr(i) & ".docx"
你的文档是DOC格式的，但是保存文档名为DOCX时并未没有指明文档类型，我觉得这可能是造成你录屏里面的问题，但是我这里没有遇到，我遇到的是5825错误，我将文档保存类型说明后通过，因此建议改成：
oDocTemp.SaveAs FileName:=mypath & "\" & mm & arr(i) & ".docx", FileFormat:=wdFormatDocumentDefault

第三句：
wordapp.Quit
我觉得这个句子是退出整个WORD，但是你这时还打开着测试文档“遍历文件夹提取每个文件的第3页.doc”，因此可能出现弹窗，将这句注释掉我这里通过。

还有一个就是楼上高手vbee所说的，需要在代码中增加识别文档页数，避免不足3页。

wkfcoffee

batmanbbs 发表于 2023-4-24 12:07
首先，谢谢楼主提供的代码，让我学了不少新东西，因为我从来都没有对文件操作过，一般只学习了对文档内容的 ...

谢谢！实话实说，我现在还在入门阶段，这段代码我是百度来的，以自己的水平确实看不出错误。

batmanbbs

wkfcoffee 发表于 2023-4-24 14:36
谢谢！实话实说，我现在还在入门阶段，这段代码我是百度来的，以自己的水平确实看不出错误。

测试了几天，发现这句：wordapp.Quit 必须加上，如果不加创建的应用会滞留在内存中。但是不知道为什么单位的电脑使用这句会有一个弹窗（其他没有任何影响），而家里的电脑没有问题

wkfcoffee

batmanbbs 发表于 2023-4-26 20:31
测试了几天，发现这句：wordapp.Quit 必须加上，如果不加打开文档会滞留在内存中。但是不知道为什么单位 ...

谢谢提醒！