将变量从 XLSM 传递到嵌入式 DOCM

Question

我的 Excel 工作表中有一个嵌入的 Word 文档 (*.docm)。

Word 文档包含一个table，与Excel 的WorkSheet 中对应的Table 有关系。

我希望在 Document_Open 事件中动态设置嵌入 Word 文档中的表格行数，并从其涉及的 Worksheet 中获取以下值：

ThisWorkbook.Worksheets("Sheet1").ListObjects("Salary").ListRows.Count

如何在 Excel（宏容器文档）与其嵌入的宏容器 word 文档之间传递值？ - 如果它是上述大胆问题的正确答案 - 或其他解决方案？

如果有其他解决方案的答案，请注意覆盖需要：

使用来自源数据的相应值填充目标表（即在嵌入的 Word 文档中）单元格在 Worksheet 的父表中？，与使用宏容器嵌入的 Word 文档中的 Document_Open 事件自动生成字段相同。

Answer 1

我建议嵌入 .docx 文档以避免每次打开宏时都会发出警报，并将所有代码放在 Excel VBA 项目中。这是一个示例，展示了如何从 Excel VBA 更改嵌入 Word 文档中的行数：

Sub ChangeRowsCount()

    Dim n As Long

    With ThisWorkbook.Worksheets("Sheet1")
        n = .ListObjects("Table1").ListRows.Count
        With .Shapes("Object 1")
            Select Case True
                Case .Type <> msoEmbeddedOLEObject
                    MsgBox "Invalid OLE Object type"
                Case InStr(1, .OLEFormat.progID, "Word.Document", vbTextCompare) <> 1
                    MsgBox "Invalid Application"
                Case Else
                    .OLEFormat.Object.Verb xlVerbOpen
                    With .OLEFormat.Object.Object.Parent ' Word.Application
                        With .ActiveDocument.Tables(1).Rows
                            Do While .Count <> n
                                If .Count > n Then .Item(.Count).Delete Else .Add
                            Loop
                        End With
                        .Quit
                    End With
                    .Select
                    MsgBox "Success"
            End Select
        End With
    End With

End Sub