以编程方式更新嵌入的 Excel 文件

我正在尝试以编程方式修改 Word 文档中嵌入的 Excel 表格。为此，我修改了 docx 文件和嵌入的 Excel 文件。

主要文件的重要部分如下：

<w:object w:dxaOrig="8406" w:dyaOrig="2056">
  <v:shape id="_x0000_i1028" type="#_x0000_t75" 
    style="width:390.75pt;height:95.25pt" o:ole=""><v:imagedata r:id="rId14" 
    o:title=""/>
  </v:shape>
  <o:OLEObject Type="Embed" ProgID="Excel.Sheet.12" ShapeID="_x0000_i1028" 
    DrawAspect="Content" ObjectID="_1349794876" r:id="rId15" 
    UpdateMode="Always"/>
</w:object>

Word 文档使用 OLEObject 链接到嵌入的 Excel 文档。出于显示目的， 使用 .wmf 文件（使用v:shape元素）。我修改了 Excel 文档，该文档使此预览过时。

这会导致文档中出现一些奇怪的行为：

• 嵌入（excel）表格的预览显示错误的数据
• 双击嵌入的表格将在嵌入的 Excel 中打开表格并显示正确的数据
• 关闭嵌入式编辑器会触发新预览的生成，显示正确的数据

当然，我希望表格在打开文档时显示正确的表格。如何触发Word放弃图像并重新绘制预览？

对我来说，一个理想的解决方案是仅通过修改 docx 的内容来触发预览的重新生成，但使用小脚本的解决方案也会有所帮助。

对此没有完美的解决方案，但大多数情况下有效的解决方案是强制打开/关闭OLEFormat.Object。无论您是从 Word 外部重新水合嵌入的 Excel 工作表（即操作 Open XML 格式）还是通过对象模型执行此操作，都没有关系。它涉及到从 Word 中打开嵌入的 Excel 电子表格，然后关闭该对象，以便将图像更改为嵌入电子表格中的当前值并创建新图像。

这在一定程度上取决于您是在多个 Word 文档上执行此操作还是仅在一个 Word 文档上执行此操作。在前一种情况下，使用全局模板（例如 normal.dot 或您创建并放入 STARTUP 文件夹中的自定义模板），或者在后一种情况下，只需在一个文档后面运行代码。两者都有不同的方式让事情运行，但本质上你会挂接Document_Open事件并从那里检查当前文档是否有 OLE 嵌入对象，如果有，则打开和关闭它们。

正如我所说，如果不陷入困境，代码就不漂亮。基本上是因为它使用SendKeys。大多数时候，这会起作用。有些时候，它不会。这就是本质SendKeys以及未经同意而获得焦点的其他程序（例如即时通讯程序）。

If Word has the focus (which means you can't open the VBE and press F5), this code should do the trick:

Sub UpdateEmbeddedXLSX()
Dim workbook As InlineShape
    For Each workbook In ActiveDocument.InlineShapes
        With workbook
            If .Type = wdInlineShapeEmbeddedOLEObject Then
                ''# Excel.Sheet.12 for Excel 2007
                If .OLEFormat.ClassType = "Excel.Sheet.12" Then
                    ''# Open Object as spreadsheet
                    .OLEFormat.DoVerb wdOLEVerbPrimary
                    ''# If you want, you can also do any updates here like
                    .OLEFormat.Object.ActiveSheet.Cells(2, 2).Value = ".1"
                    ''# Nasty - but it works - SendKeys
                    SendKeys "{ESC}", True
                End If
            End If
        End With
    Next
End Sub

至少，您可以将此代码放入 normal.dot 中并将其分配给 QAT 以作为宏运行。

请注意，该代码不会绕过 Excel 打开、值更改然后关闭的问题 - 这是使用嵌入对象的重要组成部分。使用链接而不是嵌入将是完成所有这一切的更顺利的方法，但我意识到这并不总是一种选择。