Excel VBA代码：从Word文档抓取数据

{"title":"Excel VBA代码：从Word文档抓取数据","description":"本文介绍了如何使用VBA代码从Word文档中抓取数据并将其写入Excel工作表中。","keywords":"Excel, VBA, Word, 数据抓取, 代码示例","content":""使用VBA代码从Word文档中抓取数据"\n\n以下是使用VBA代码从Word文档中抓取数据并将其写入Excel工作表中的示例代码：\n\nvba\nSub 抓取数据()\n Dim wdApp As Object\n Dim wdDoc As Object\n Dim wdTable As Object\n Dim i As Integer, j As Integer\n \n ' 创建Word应用程序对象\n Set wdApp = CreateObject(\"Word.Application\")\n wdApp.Visible = False ' 将Word应用程序设为不可见\n \n ' 打开Word文档\n Set wdDoc = wdApp.Documents.Open(\"C:\\路径\\至\\你的Word文档.docx\")\n \n ' 指定要抓取的表格\n Set wdTable = wdDoc.Tables(1)\n \n ' 循环遍历表格中的每个单元格，并将数据写入Excel工作表\n For i = 1 To wdTable.Rows.Count\n For j = 1 To wdTable.Columns.Count\n ' 将单元格内容写入Excel工作表的对应位置\n Worksheets(\"Sheet1\").Cells(i, j).Value = wdTable.Cell(i, j).Range.Text\n Next j\n Next i\n \n ' 关闭Word文档\n wdDoc.Close\n \n ' 退出Word应用程序\n wdApp.Quit\n \n ' 释放对象变量\n Set wdTable = Nothing\n Set wdDoc = Nothing\n Set wdApp = Nothing\n \n MsgBox \"数据抓取完成！\"\nEnd Sub\n\n\n请将代码中的"C:\路径\至\你的Word文档.docx"替换为你要抓取数据的Word文档的路径。抓取的数据将被写入Excel工作表的"Sheet1"中。你可以根据需要修改工作表的名称。\n\n注意：\n\n* 确保你已经启用了Excel中的VBA宏。\n* 代码中的表格索引从1开始，如果要抓取的表格不是第一个表格，请修改代码中的wdTable.Tables(1)。\n* 代码仅抓取表格中的内容，如果需要抓取Word文档中的其他内容，请修改代码逻辑。\n\n希望这篇文章对您有所帮助。