在另一个 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 打开工作簿，因此与该对象相关的工作簿将作为名为 "Worksheet in your current workbook" 的文件打开。因此，您可以使用：

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

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

Modify embedded Excel workbook in another Excel workbook VBA

excel

vba

createoleobject