Question

我收到了运行时错误5174.在目录中有.docx和.docm文件。我试图添加.doc文件，因为我读dir函数不支持.docx。添加文件后，代码将遍历目录中的所有文件。如果我再次运行它，它将失败，错误5174.任何帮助将不胜感激。

sMyDir = "C:\weekly\" & "*.doc?"
sDocName = Dir(sMyDir)
While sDocName <> ""
Documents.Open FileName:=sDocName, Visible:=False
' Does stuff
sDocName = Dir()

Answer 1

错误5174表示找不到文件，这意味着目录可能不正确。尝试使用 LIKE ：

sMyDir LIKE "C:\weekly\" & "*.doc?"

编辑：您的sDocName也没有提供完整路径

Answer 2

结果是Dir函数仅返回文件名。因此，当我使用open方法时，我在存储文件名的变量之前添加了路径。我只需要阅读关于Dir功能的文档。感谢

vba dir函数错误5174

2 个答案: