在另一個 Excel 工作簿 VBA 中修改嵌入的 Excel 工作簿

Question

我有一個 Excel 工作簿，其中嵌入了另一個 Excel 工作簿。 我可以用 VBA 打開它，但我不知道如何在嵌入式工作簿中引用和編輯一些單元格。 知道怎么做嗎？ 提前非常感謝。

Sub openembeddedXL2()

Sheets("sheet1").OLEObjects("SalesFile").Activate

End Sub

Answer 1

只要工作簿是打開的，您就可以直接通過其名稱來引用它。

Workbooks("workbook name")等

由於您使用Sheets("sheet1").OLEObjects("SalesFile").Activate打開工作簿，因此與 object 相關的工作簿將作為名為“當前工作簿中的工作表”的文件打開。 因此，您可以使用：

Dim wb as workbook
Sheets("sheet1").OLEObjects("SalesFile").Activate
set wb = Workbooks("Worksheet in " & ThisWorkbook.Name)
Thisworkbook.sheets("Sheet1").Range("A1").value = wb.sheets("Sheet1").range("A1").Value 'etc. etc.
wb.Close

Thisworkbook在這里是一個方便的工具，因為它始終會引用宏所在的工作簿，無論哪個工作簿當前處於活動狀態。