Excel 运行时错误'；1004'；打开Word文件时

我喜欢@paul bica在最近一个题为的问题中提交的程序，并希望用于我的一些申请。但我被困在了开始阶段

我收到错误

运行时错误“1004”
对象“U应用程序”的方法“GetOpenFilename”失败。

位于以下代码行

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

我已经应用了对Microsoft Office 12、Excel 12和Word 12的对象库的引用。

---

可能会出什么问题。此外，如果我剥离所有其他代码，并将代码限制为仅打开文件，仍然会出现错误

更改行

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”

）

我很高兴您发现它很有用！