使用完整的VBA代码在当前Excel工作簿的sheet4工作表的A1单元格

使用完整的VBA代码在当前Excel工作簿的sheet4工作表的A1单元格，导入Word文档的表格内容并自动排版

Sub ImportWordTable2()

'定义变量

Dim i As Integer

Dim j As Integer

'打开Word文档

Set WordApp = CreateObject("Word.Application")

WordApp.Visible = False

Set WordDoc = WordApp.Documents.Open("D:小米云盘桌面提取Word表格a1.docx")

'获取Word文档中的表格

Set WordTable = WordDoc.Tables(1)

'将Word文档中的表格内容导入到Excel中

For i = 1 To WordTable.Rows.Count

For j = 1 To WordTable.Columns.Count

Sheet4.Cells(i, j).Value = WordTable.Cell(i, j).Range.Text

Next j

Next i

'排版

Sheet4.Range("A1:D" & WordTable.Rows.Count).Columns.AutoFit

'关闭Word文档

WordDoc.Close

WordApp.Quit

End Sub

注意：Word文档中的表格结构必须正确，表格中的每一行和每一列都必须有正确的边框，不能有合并单元格，以便VBA代码能够正确识别表格中的内容。