Excel -用于将单元格数据导出到word文档的VBA代码

Sub ExportToWord()
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim rng As Range
    
    ' 创建Word应用程序对象
    Set wordApp = CreateObject("Word.Application")
    wordApp.Visible = True ' 可见性设置为True，方便调试
    
    ' 创建新的Word文档
    Set wordDoc = wordApp.Documents.Add
    
    ' 指定要导出的单元格范围
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:B10")
    
    ' 将单元格数据复制到Word文档
    rng.Copy
    wordDoc.Range.Paste
    
    ' 保存Word文档
    wordDoc.SaveAs "C:\Path\To\Your\Word\File.docx"
    
    ' 关闭Word文档和应用程序对象
    wordDoc.Close
    wordApp.Quit
    
    ' 释放对象变量
    Set rng = Nothing
    Set wordDoc = Nothing
    Set wordApp = Nothing
End Sub