激活工作簿中寫入一個單元格

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