用VBA将不带清理功能的表格从word导入excel

Sub ImportTableFromWord()
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim excelApp As Object
    Dim excelWorkbook As Object
    
    ' 创建Word应用程序对象
    Set wordApp = CreateObject("Word.Application")
    
    ' 打开Word文档
    Set wordDoc = wordApp.Documents.Open("C:\路径\文档名.docx")
    
    ' 选择表格并复制
    wordDoc.Tables(1).Range.Copy
    
    ' 创建Excel应用程序对象
    Set excelApp = CreateObject("Excel.Application")
    
    ' 打开Excel工作簿
    Set excelWorkbook = excelApp.Workbooks.Open("C:\路径\工作簿名.xlsx")
    
    ' 选择工作表并粘贴表格
    excelWorkbook.Worksheets(1).Activate
    excelWorkbook.Worksheets(1).Range("A1").PasteSpecial
    
    ' 保存工作簿
    excelWorkbook.SaveAs "C:\路径\新工作簿名.xlsx"
    
    ' 关闭并释放对象
    excelWorkbook.Close
    wordDoc.Close
    excelApp.Quit
    Set excelWorkbook = Nothing
    Set wordDoc = Nothing
    Set excelApp = Nothing
    Set wordApp = Nothing
End Sub