无法打开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："Subscript out out of Range“

这听起来像是如果ExcelFilename是一个无效文件时会发生的事情，但是Dir函数确认它不是。

有什么想法吗？

Answer 1

PanjakR的评论让我意识到应该改变这一点：

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

要这样做：

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

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