2015-09-05 139 views
-1

我喜歡@paul bica在最近題爲Search word doc for text and paste into excel file的問題中提交的程序,並希望用於我的一些應用程序。但我陷入了開始。打開Word文件時運行時錯誤「1004」

我在下面的代碼行上得到錯誤Run-time error '1004' Method 'GetOpenFilename' of object'_Application' failed.

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

我已經申請引用對象的Microsoft Office 12的圖書館,Excel 12中和Word 12 什麼可能出問題。進一步如果我剝離所有其他代碼並將代碼限制爲僅打開文件,我仍然收到錯誤。

+0

我很高興你發現它很有用! –

回答

2

更改線路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"

+0

它運作良好。感謝您的指導。 – skkakkar