基于MS-word VBA宏从excel工作表中读取特定列

Sub ReadSpecificColumnFromExcel()
    Dim xlApp As Object 'Excel应用程序对象
    Dim xlBook As Object 'Excel工作簿对象
    Dim xlSheet As Object 'Excel工作表对象
    Dim lastRow As Long 'Excel工作表中最后一行的行号
    Dim columnData As Variant '特定列的数据
    
    '创建Excel应用程序对象
    Set xlApp = CreateObject("Excel.Application")
    
    '打开Excel工作簿
    Set xlBook = xlApp.Workbooks.Open("C:\路径\文件名.xlsx")
    
    '指定要读取的工作表
    Set xlSheet = xlBook.Worksheets("工作表名")
    
    '获取特定列的数据
    lastRow = xlSheet.Cells(xlSheet.Rows.Count, "A").End(-4162).Row '获取最后一行的行号
    columnData = xlSheet.Range("A1:A" & lastRow).Value '将特定列的数据赋值给变量
    
    '关闭Excel工作簿，保存更改
    xlBook.Close True
    
    '释放对象引用
    Set xlSheet = Nothing
    Set xlBook = Nothing
    xlApp.Quit
    Set xlApp = Nothing
    
    '将特定列的数据输出到Word文档中
    For i = LBound(columnData) To UBound(columnData)
        ThisDocument.Content.InsertAfter columnData(i, 1) & vbCrLf
    Next i
End Sub