激活写入单元格的工作簿

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