打开Word文件时出现运行错误“1004”

Question

我喜欢@paul bica在最近一个名为Search word doc for text and paste into excel file的问题中提交的程序，并希望用于我的一些应用程序。但我本来就陷入困境。

我在以下代码行中收到错误Run-time error '1004' Method 'GetOpenFilename' of object'_Application' failed.。

fName = Application.GetOpenFilename("C\mydir1\aaa.docx")

我已应用对Microsoft Office 12，Excel 12和Word 12的对象库的引用。 什么可能出错。进一步如果我删除所有其他代码并将代码限制为只是打开文件，我仍然得到错误。

Answer 1

更改第fName = Application.GetOpenFilename("C\mydir1\aaa.docx")行

到此：

fName = Application.GetOpenFilename("Word Files (*.Doc*),*.Doc*", , _
        "Enter filepath of .doc with desired information")

它将显示一个正确的文件对话框，您可以在其中选择文件

在您选择文件后fName将在您的选择中分配正确的文件路径和名称（例如"C\mydir1\aaa.docx"）