Question

我正在创建一个从doc模板生成word文档的xls。我将doc模板存储到与xls相同的文件夹中。移动xls（并让它工作），我也需要移动所有其他文件。有没有办法只有1个xls文件包含所有其他文件??

我可能会遗漏某些内容......我无法在外部手动保存嵌入对象。当我双击对象时出现单词色带和保存图标，但我无法在任何地方找到“另存为”。

事先提前

Answer 1

您可以在this example之后将Word文档作为对象嵌入到Excel中。

一旦完成，你可以像这样操纵它

Sub Demp()
    ' Add a reference to Microsoft Word Object Library,
    '  or convert to late binding
    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document

    Dim ole As OLEObject
    Dim EmbededFile As String

    Dim ws As Worksheet

    Set ws = ThisWorkbook.Worksheets("NameOfSheetWithEmbeddedObjects")

    ' Change to suit your needs, or build with code
    EmbededFile = "c:\Data\temp\TestDoc1.docx"

    ' Change Object Names to suit your needs
    Set ole = ws.OLEObjects("Object 1")
    'ole.Activate
    ole.Verb Verb:=xlOpen
    Set wdApp = ole.Object.Application
    With wdApp.ActiveDocument
        .SaveAs EmbededFile, Word.wdFormatDocumentDefault
        .Close

    End With
    Set wdDoc = wdApp.Documents.Open(EmbededFile)

    ' you can now manipulate the Word App (using wdApp) and document (using wdDoc)
End Sub

将其他文件包含到Excel模板中

1 个答案: