在word文档中提取EXCLE行中的数据vba程序

可以使用 VBA 编写程序从 Excel 行中提取数据并在 Word 文档中使用。下面是一个简单的示例：

Sub ImportExcelData()
    Dim objExcel As Object
    Dim objWorkbook As Object
    Dim objWorksheet As Object
    Dim iRow As Integer
    Dim iCol As Integer
 
    Set objExcel = CreateObject("Excel.Application")
    Set objWorkbook = objExcel.Workbooks.Open("C:\Data.xlsx")
    Set objWorksheet = objWorkbook.Sheets("Sheet1")
 
    iRow = 2
    iCol = 1
 
    While (objWorksheet.Cells(iRow, iCol).Value <> "")
        ActiveDocument.Paragraphs(ActiveDocument.Paragraphs.Count).Range.Text = _
            objWorksheet.Cells(iRow, iCol).Value
        iRow = iRow + 1
    End While
 
    objWorkbook.Close
    objExcel.Quit
End Sub

该程序会打开名为“C:\Data.xlsx”的 Excel 文件，然后从第2行第1列开始提取数据，直到遇到空单元格为止。然后，它将数据附加到当前 Word 文档的末尾。