vba - VBA 中的 Workbooks.Open 方法

Question

我的vba脚本在myMacro.xls Workbooks.Open方法工作如下，

Workbooks.Open Filename:="D:\ExcelMacroProj\myTest.xls", ReadOnly:=True

但是当我尝试将 Filename 值更改为如下所示的新路径时，但我的所有做法都不起作用。显示运行时错误 1004。

Workbooks.Open Filename:="myTest.xls", ReadOnly:=True
or
Workbooks.Open Filename:="./myTest.xls", ReadOnly:=True
or
Workbooks.Open Filename:=".\myTest.xls", ReadOnly:=True

实际上myMacro.xls和myTest.xls放在同一个文件夹中。这就是为什么我想更改为灵活的文件夹目录。

我该如何解决这个问题？感谢您的阅读和回复。

Answer 1

您可以尝试使用ThisWorkbook.Path来创建绝对路径。它返回运行宏的工作簿的文件夹路径(不包括文件名)。像这样的东西应该有效:

Workbooks.Open Filename:=ThisWorkbook.Path & "\myTest.xls", ReadOnly:=True

确保包含反斜杠，因为工作簿路径不以 1 结尾。