在 word “A”中用VBA 复制 Excel中b2:e22的内容

以下是一个示例代码，将 Excel 中的 B2:E22 区域的内容复制到 Word 文档的 A 位置：

Sub CopyExcelRangeToWord()
    Dim excelApp As Object ' Excel.Application
    Dim excelWorkbook As Object ' Excel.Workbook
    Dim excelWorksheet As Object ' Excel.Worksheet
    Dim wordApp As Object ' Word.Application
    Dim wordDoc As Object ' Word.Document
    
    ' 创建一个新的 Excel 应用程序和工作簿
    Set excelApp = CreateObject("Excel.Application")
    excelApp.Visible = False ' 设置为 True 可见，False 不可见
    Set excelWorkbook = excelApp.Workbooks.Open("C:\路径\至\Excel文件.xlsx")
    
    ' 打开要复制的工作表
    Set excelWorksheet = excelWorkbook.Worksheets("Sheet1")
    
    ' 复制指定范围的内容到剪贴板
    excelWorksheet.Range("B2:E22").Copy
    
    ' 创建一个新的 Word 应用程序和文档
    Set wordApp = CreateObject("Word.Application")
    wordApp.Visible = True
    Set wordDoc = wordApp.Documents.Add
    
    ' 在 Word 文档的 A 位置粘贴内容
    wordDoc.Range("A").PasteSpecial
    
    ' 清除剪贴板内容
    Application.CutCopyMode = False
    
    ' 关闭并保存 Excel 工作簿
    excelWorkbook.Close SaveChanges:=False
    
    ' 退出 Excel 应用程序
    excelApp.Quit
    
    ' 释放对象
    Set excelWorksheet = Nothing
    Set excelWorkbook = Nothing
    Set excelApp = Nothing
    Set wordDoc = Nothing
    Set wordApp = Nothing
End Sub

请将代码中的 "C:\路径\至\Excel文件.xlsx" 替换为您要复制内容的 Excel 文件的实际路径。您可以根据需要更改工作表名称和 Word 文档中的位置。

此代码将打开指定的 Excel 文件，复制工作表中的指定范围内容。然后，它创建一个新的 Word 应用程序和文档，并将内容粘贴到 Word 文档中的指定位置。最后，它关闭并保存 Excel 工作簿，退出 Excel 应用程序，并释放对象。

希望对您有所帮助！