用宏将excel中的数据复制到word中

可以通过VBA宏实现将Excel中的数据复制到Word中的操作。以下是一个简单的示例：

Sub CopyExcelToWord()
    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    Dim xlApp As Excel.Application
    Dim xlWorkbook As Excel.Workbook
    Dim xlWorksheet As Excel.Worksheet

    '打开Word应用程序和文档
    Set wdApp = New Word.Application
    Set wdDoc = wdApp.Documents.Open("C:\Users\username\Documents\example.docx")

    '打开Excel应用程序和工作簿
    Set xlApp = New Excel.Application
    Set xlWorkbook = xlApp.Workbooks.Open("C:\Users\username\Documents\example.xlsx")
    Set xlWorksheet = xlWorkbook.Worksheets("Sheet1")

    '复制Excel中的表格到Word
    xlWorksheet.Range("A1:C10").Copy
    wdDoc.Range.Paste

    '关闭Excel应用程序和工作簿
    xlWorkbook.Close SaveChanges:=False
    xlApp.Quit

    '保存并关闭Word文档
    wdDoc.Save
    wdDoc.Close
    wdApp.Quit
End Sub

在这个示例中，我们首先创建了一个Word应用程序和文档，然后打开Excel应用程序和工作簿，并选择要复制的单元格范围。最后，我们将所选单元格范围复制到Word文档中，并关闭Excel和Word应用程序。请记得将示例中的文件路径替换为您自己的文件路径。