激活工作簿写入单元格

Question

我正在开发一个应用程序，该应用程序必须使用另外两个 excel 文件来实现其功能。这些文件的名称每天都在变化，所以我决定从包含函数的单元格中打开这两个文件，以根据这样的日期更改名称。

Workbooks.Open Range("C2")
Windows("App.xlsm").Activate
Workbooks.Open Range("C16")

现在的问题是我不知道如何在我打开的书之间切换。通常我会使用这样的东西：

Windows("A.xlsx").Activate

但我现在显然做不到。我的想法是激活 App.xlsm，然后激活在我像他一样使用的单元格中编写的工作簿：

Windows(Workbooks("App.xlsm").Sheets("Pom").Range("C16").Value).Activate

但是，这不起作用。现在我不确定我的代码是错误的还是这种方法是不可能的。有人可以帮我吗？

Answer 1

使用变量对工作簿有一个句柄

    Dim wb1 as workbook
    dim wb2 as workbook
    set wb1 = Workbooks.Open (Range("C2"))
    set wb2 = Workbooks.Open (Range("C16"))
    ' Activate wb1 
    wb1.activate
    ' or activate wb2
    wb2.activate