無法打開工作簿Excel.Application

Question

這是在Word的宏訪問Excel工作簿：

Dim objExcel As New Excel.Application 
Dim exWb As Excel.Workbook 

ExcelFilename = CurDir() & "\" & ThisDocument.CustomDocumentProperties("Source") 

'This tests if ExcelFilename is a valid file: 
If Dir(ExcelFilename) = "" Then Stop 

Set exWb = objExcel.Workbooks.Open(ExcelFilename) 

它的工作，直到今天。現在，最後一行給我一個運行時錯誤9：「下標超出範圍」

這聽起來像是如果ExcelFilename是無效文件，但Dir函數確認它不會發生什麼情況。

任何想法？

Answer 1

PanjakR的評論使我意識到，要改變這樣的：

ExcelFilename = CurDir() & "\" & ThisDocument.CustomDocumentProperties("Source") 

這樣：

ExcelFilename = CurDir() & "\" & ThisDocument.CustomDocumentProperties("Source").Value 

我希望我知道爲什麼我的迪爾聲明沒有標誌，但是這並不重要。謝謝，PanjakR。