excel - 在另一个 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与对象相关的工作簿打开工作簿，因此将打开一个名为“当前工作簿中的工作表”的文件。因此，您可以使用：

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在这里是一个方便的工具，因为它总是引用宏所在的工作簿，不管哪个工作簿当前处于活动状态。