假如一個公司的員工信息被存儲在 Excel 中，需要將這些信息按照表格的形式呈現在公司的Word報告中，使用此代碼可以快速方便地實現這個任務。

Word用VBA提取Excel文件名為“員工資料”文件中的工作表名為sheet1的所有數據，并在Word中以表格形式顯示。

如下面的圖片所示：

一、Word導入效果：

Word導入效果

二、EXCEL源表格：

EXCEL源表格

Sub ExtractDataFromExcelAndCreateTableInWord()    ' 聲明變量    Dim ExcelFilePath As String    Dim ExcelApp As Object    Dim ExcelWorkbook As Object    Dim ExcelWorksheet As Object    Dim WordApp As Object    Dim WordDoc As Object    Dim WordTable As Object    Dim LastRow As Long    Dim LastColumn As Long    Dim i As Long    Dim j As Long        ' 設置 Excel 文件路徑    ExcelFilePath = "d:\員工資料.xlsx"        ' 創建 Excel 應用程序對象并打開工作簿    On Error Resume Next ' 開始錯誤處理程序    Set ExcelApp = CreateObject("Excel.Application")    Set ExcelWorkbook = ExcelApp.Workbooks.Open(ExcelFilePath)    On Error GoTo 0 ' 關閉錯誤處理程序        ' 檢查文件是否成功打開    If ExcelWorkbook Is Nothing Then        MsgBox "無法打開 Excel 文件，請檢查文件路徑是否正確或文件是否被其他程序或用戶占用。", vbCritical, "錯誤"        Exit Sub    End If        ' 獲取名為 "Sheet1" 的工作表    Set ExcelWorksheet = ExcelWorkbook.Worksheets("Sheet1")        ' 獲取數據行數和列數    LastRow = ExcelWorksheet.Cells(ExcelWorksheet.Rows.Count, 1).End(-4162).Row ' -4162 表示 xlUp    LastColumn = ExcelWorksheet.Cells(1, ExcelWorksheet.Columns.Count).End(-4159).Column ' -4159 表示 xlToLeft        ' 創建 Word 應用程序對象并新建文檔    Set WordApp = CreateObject("Word.Application")    Set WordDoc = WordApp.Documents.Add()        ' 在 Word 文檔中創建表格    Set WordTable = WordDoc.Tables.Add(WordDoc.Range, LastRow, LastColumn)        ' 將 Excel 數據復制到 Word 表格中    For i = 1 To LastRow        For j = 1 To LastColumn            WordTable.Cell(i, j).Range.Text = ExcelWorksheet.Cells(i, j).Value        Next j    Next i        ' 設置表格樣式    With WordTable        ' 設置邊框樣式        .Borders.InsideLineStyle = wdLineStyleSingle        .Borders.OutsideLineStyle = wdLineStyleSingle                ' 設置表格自動調整寬度和列寬度自動調整        .AutoFitBehavior (wdAutoFitWindow)        .AllowAutoFit = True                ' 設置表格字體和大小        .Range.Font.Name = "宋體"        .Range.Font.Size = 10                ' 設置表頭樣式        .Rows(1).Shading.BackgroundPatternColor = wdColorGray15        .Rows(1).Range.Font.Bold = True        .Rows(1).Range.Font.Color = wdColorBlack                ' 設置表格內容自動居中        .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter    End With        ' 顯示 Word 應用程序和文檔    WordApp.Visible = True    WordDoc.Activate        ' 關閉 Excel 應用程序和工作簿    ExcelWorkbook.Close    ExcelApp.QuitEnd Sub

需要注意的是，在使用此代碼之前，需要確保已安裝了 Microsoft Excel 和 Microsoft Word，并且在代碼中指定的 Excel 文件路徑和工作表名稱是正確的。