VBA引用WORD中的表格，获取数据到EXCEL中，再切来自换到下一表格，再获取(EXCEL换行)，直到完成！谢谢

VBA

您可以使用VBA来实现这个功能。首先，您需要在VBA编辑器中打开word文档，并在其中插入一个表格。然后，使用以下代码来获取该表格中的数据：'获取第一个单元格的值Dim cell As RangeSet cell = ActiveWindow.Table.Cell(1, 1)'将值存储到一个字符串变量中Dim strValue As StringstrValue = CStr(cell.Value)'输出字符串变量的值Debug.Print strValue接下来，您可以使用一个循环来遍历整个表格，并将每个单元格的值存储到一个数组中：'定义一个数组来存储单元格值Dim arrValues() As DoubleReDim arrValues(1 To 6, 1 To 2)'遍历整个表格For i = 1 To 6For j = 1 To 2'获取单元格的值并存储到数组中Dim cell As RangeSet cell = ActiveWindow.Table.Cell(i, j)arrValues(i, j) = CStr(cell.Value)NextNext最后，您可以使用excel的VBA功能来处理这些数据。以下是一个示例代码片段，它会将数组中的每一项输出到单独的单元格：'打开excel应用程序Dim excelApp As ObjectSet excelApp = CreateObject("excel.Application")'创建一个新的工作簿Dim workbook As ObjectSet workbook = excelApp.Workbooks.Add'选择第一个工作表Dim worksheet As ObjectSet worksheet = workbook.Sheets(1)'遍历数组并输出每一项到单独的单元格For i = 0 To UBound(arrValues, 1)For j = 0 To UBound(arrValues, 2)'将数据输入到单元格中worksheet.Cells(i * 3 + j + 1, 1).Value = arrValues(i, j)NextNext这个示例代码片段只是一个例子，您可以根据实际需求进行修改和调整。希望对您有所帮助！