将 Word 文档转换为 Excel 工作表的三个方法：直接复制和粘贴数据。使用“文本到表格”向导，确保数据格式正确并遵循向导步骤。使用 VBA 代码将 Word 文档中的数据直接复制到 Excel 工作表中。
如何将 Word 文档转换为 Excel 工作表
方法一：直接复制和粘贴
- 复制 Word 文档中要转换的数据。
- 在 Excel 工作表中创建一个新工作表或打开现有工作表。
- 将复制的数据粘贴到 Excel 工作表中。
方法二：使用“文本到表格”向导
- 确保 Word 文档中的数据格式正确，按列和行对齐。
- 在 Excel 中，单击“数据”选项卡。
- 在“获取和转换数据”组中，单击“文本到表格”。
- 在“文本到表格”向导中，浏览并选择 Word 文档。
- 指定文本文件的格式（例如，分隔符和数据类型）。
- 单击“确定”以转换数据。
方法三：使用 VBA 代码
- 打开 Word 文档和 Excel 工作表。
- 在 Word 中，开发人员选项卡应处于活动状态。
- 单击“Visual Basic”按钮。
- 在 VBA 编辑器中，插入以下代码：
Sub WordToExcel()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim ExcelApp As Excel.Application
Dim ExcelWb As Excel.Workbook
Dim ExcelSheet As Excel.Worksheet
' 启动 Word 和 Excel 应用程序
Set WordApp = New Word.Application
Set ExcelApp = New Excel.Application
' 打开 Word 文档
Set WordDoc = WordApp.Documents.Open("C:\Path\To\WordDocument.docx")
' 创建 Excel 工作簿和工作表
Set ExcelWb = ExcelApp.Workbooks.Add
Set ExcelSheet = ExcelWb.Worksheets(1)
' 将 Word 文档中的数据复制到 Excel 工作表
ExcelSheet.Range("A1").CopyFromRecordset WordDoc.Content
' 关闭 Word 和 Excel 应用程序
WordApp.Quit
ExcelApp.Quit
End Sub- 运行代码以转换数据。
