如何使用VBA以编程方式将Excel电子表格embedded到Word文档中

我有一个Excel VBA脚本,可以从几个文件中提取数据,并以适合业务需求的特定格式构build表格。 我在我的主Excel文件中隐藏的工作表中生成表格,并按预期工作。

但是,我需要将该表插入到Word文件中。 我知道如何制作一个表格,但我想尝试做一个embedded的Excel文件,而不是因为这样的所有格式传输。

我已经创build了一个带有占位符embedded式Excel对象的伴随Word文件。 我在select窗格中给了对象(或“形状”)一个名字。 这叫做InvoiceXLS。

我可以尽可能打开Word文档,我知道如何更改基本的OLEShapes /对象,如只是在命名文本框中更改文本,但我不知道如何获得一个可用的引用到embedded的表,以便我可以调用它的Excel VBA命令,基本上用我在前面生成的脚本replace它。

到目前为止,这是我如何打开Word文件的链接:

Set wApp = CreateObject("Word.Application") wApp.Visible = True Set wDoc = wApp.Documents.Open(filename:=ThisWorkbook.path & "\TestAccount.docx") With wDoc .Shapes("InvoiceXLS").OLEFormat.Edit ' ??? ' How do I get a Worksheet object that I can work with?? ' Or, just paste in a whole table over top? End With 

提前感谢任何帮助!