file - 重新初始化 "ThisWorkbook.Path"

Question

首先，感谢那些给我建议使用“ThisWorkbook.Path”的人。它就像一个魅力。

但是，我的代码遍历了七 (7) 个工作簿，并且在使用“ThisWorkbook.Path”时，我无法重新初始化“This.Workbook”。让我详细说明。

这是宏所在的工作簿:

Workbooks("Financial_Aggregator_v3.xls").Activate

这是代码添加选项卡并进行小计的第一个工作簿。基本上， ThisWorkbook.Path 在这里工作:

Workbooks("Chapter_7-10_Mechanical.xls").Activate

在用“机械”完成我需要做的事情之后，我有以下代码片段，它永远不会变成 TRUE:

Workbooks("Financial_Aggregator_v3.xls").Activate
If FileThere(ThisWorkbook.Path & Application.PathSeparator & "Chapter_7-90_ECS_1_LLC.xls") Then

适用于“机械”表的功能代码是:

Function FileThere(FileName As String) As Boolean
    FileThere = (Dir(FileName) > "")
End Function

仅供引用，我试图将所有不同的工作簿分解为不同的 Sub()，但这没有用。我还仔细检查了工作簿的名称。

提前致谢。

Answer 1

Excel.VBA 中的“ThisWorkbook”有点像“我”，因为它仅适用于实际保存正在执行“ThisWorkbook”的 VBA 代码的工作簿 (.XLS)。您需要做的是使用 Workbook 对象来抽象您想要测试或操作的特定工作簿。

尝试这样的事情:

Public Sub TestWB()
    Dim CurrWB As Workbook

    'To get a workbook into our object variable:'
    Set CurrWB = Workbooks("Chapter_7-10_Mechanical.xls")

    'To Change the .Path:'
    CurrWB.SaveAs NewFileName, AddToMru:=True

End Sub