Excel VBA转Word文档删除最后一行

Sub ExcelToWord()
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim excelData As Range
    Dim lastRow As Long
    
    ' 创建Word应用程序对象
    Set wordApp = CreateObject("Word.Application")
    wordApp.Visible = True ' 可见性设置为True，方便调试
    
    ' 打开一个新的Word文档
    Set wordDoc = wordApp.Documents.Add
    
    ' 将Excel数据复制到Word文档
    Set excelData = ThisWorkbook.Sheets("Sheet1").Range("A1:D10") ' 修改为你的数据范围
    excelData.Copy
    wordDoc.Range.Paste
    
    ' 删除Word文档中的最后一行
    lastRow = wordDoc.Tables(1).Rows.Count
    wordDoc.Tables(1).Rows(lastRow).Delete
    
    ' 保存Word文档
    wordDoc.SaveAs "C:\Path\To\Your\Word\File.docx" ' 修改为你的文件路径
    
    ' 关闭Word文档和应用程序对象
    wordDoc.Close
    wordApp.Quit
    
    ' 释放对象变量
    Set wordDoc = Nothing
    Set wordApp = Nothing
End Sub