无法打开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

我希望我知道为什么我的Dir声明没有标记它，但这并不重要。谢谢，PanjakR。