VBA - 如果宏从 Personal.xlsb 运行，如何获取工作簿文件路径/位置

Question

我已经将我的宏藏在我的 Personal.xlsb 文件中，我想将一个文件保存在与我应用宏的工作簿相同的目录中。目前当我使用：

Application.ThisWorkbook.Path

它获取 Personal.xlsb 的位置（宏的来源）而不是工作簿的目录。有人可以告诉我如何解决这个问题（无需向我的工作簿添加模块）？

Answer 1

Path 属性可用于任何Workbook对象，而不仅仅是ThisWorkbook对象。

所以，要获取ActiveWorkbook的路径，可以使用ActiveWorkbook.Path 。

或者，例如，如果您使用以下内容打开了一个工作簿：

Dim wb As Workbook
Set wb = Workbooks.Open("C:TempTestFile1.xlsx")

然后您可以使用wb.Path当然会返回"C:TempTest" .