兩種簡單方法將 Word 文件內容轉換或匯入到 Excel 工作表

有時，您可能需要將 Word 文件轉換為 Excel 工作表，或者將 Word 文件中的數據匯入到工作表中。除了複製和粘貼之外，您是否知道更快的方法？本教程提供了兩種最簡單的方法來完成這項任務。

• 方法 A：使用「另存新檔」與「從文字」工具將 Word 轉換為 Excel（7 個步驟）
  無法從 Word 匯入/轉換圖表，每次只能處理一個文件。
• 方法 B：使用 VBA 將 Word 轉換為 Excel（4 個步驟）
  將 Word 中的所有數據匯入到 Excel，但圖表可能會重疊。
• 相關操作：批量將 Excel 工作簿轉換為 PDF 文件
  批量將資料夾中的 Excel 文件轉換為單獨的 PDF 文件
• 其他相關操作（文章）涉及文件轉換
  將 Excel 表格轉換為 PDF 批量匯入 csv/txt/xml 文件 等

要將 Word 文件轉換為 Excel 工作表，您可以結合 Word 的「另存新檔」功能和 Excel 的「從文字」功能。

1. 打開您想轉換為 Excel 工作表的 Word 文件，點擊「文件」>「另存新檔」命令，然後點擊「瀏覽」以打開「另存新檔」對話框，選擇存放新文件的位置，在 「保存類型」下拉列表中選擇「純文本」。

2. 點擊「保存」將 Word 文件保存為新的文本文件，然後會彈出一個 「文件轉換」對話框，只需點擊「確定」關閉該對話框。

3. 然後啟用您想要匯入 Word 文件數據的 Excel 工作簿，點擊 數據 > 從文字，並在 匯入文本文件 對話框中，選擇您要匯入的文本文件。

4. 選擇「分隔符」選項，點擊「下一步」。

5. 在向導的第二步中，選擇您要用於分割數據的分隔符，然後點擊「下一步」。

6. 在向導的最後一步中，您可以指定數據的格式，如果您不需要更改格式，請選擇「常規」選項。

7. 點擊「完成」。然後會彈出 「匯入數據」對話框，您可以選擇活動工作表的一個單元格來放置匯入的文本數據，或者選擇「新工作表」選項將數據匯入到新工作表中。點擊「確定」。

這樣，Word 文件的內容就已經被匯入到 Excel 工作表中了。

注意：

如果您想將 Word 文件數據轉換為 Excel 工作表（根據 Word 文件中的分隔符將數據轉換為 Excel 中的表格），如下截圖所示，此方法是一個不錯的選擇。但是，如果您只是想將所有 Word 文件數據（包括圖表）匯入到 Excel 工作表中，請轉到方法 B。

---

快速將多個 XLSX 文件一次性轉換為 XLS 或 PDF 文件

在許多情況下，您可能希望在 XLSX 和 XLS 之間進行轉換，或者將工作簿轉換為 PDF 文件，但在 Excel 中，一次只能轉換一個工作簿，您是否想過一次性轉換多個工作簿呢？使用 Kutools for Excel 的 批量轉換 功能，您可以快速將多個工作簿一次性轉換為 PDF/97-2003 工作簿/2007 或更高版本的工作簿並將它們保存在目錄中，同時生成一份轉換報表！ 點擊此處獲取 30 天的免費全功能試用！

Kutools for Excel：擁有超過 300 個實用的 Excel 增益功能，可在 30 天內免費試用且無任何限制。

如果您想將 Word 文件中的所有數據轉換或匯入到 Excel，可以使用 VBA 代碼。

1. 按 Alt + F11 鍵啟動 Microsoft Visual Basic for Applications 窗口。

2. 點擊「插入」>「模塊」創建一個新的模塊腳本，複製並將以下代碼粘貼到該腳本中。

VBA 代碼：匯入 Word 到 Excel

  Sub ImportWord()
'UpdatebyExtendoffice20190530

Dim xObjDoc As Object

Dim xWdApp As Object

Dim xWdName As Variant

Dim xWb As Workbook

Dim xWs As Worksheet

Dim xName As String

Dim xPC, xRPP

Application.ScreenUpdating = False

Application.DisplayAlerts = False

xWdName = Application.GetOpenFilename("Word file(*.doc;*.docx) ,*.doc;*.docx", , "Kutools - Please select")

If xWdName = False Then Exit Sub

Application.ScreenUpdating = False

Set xWb = Application.ActiveWorkbook

Set xWs = xWb.Worksheets.Add

Set xWdApp = CreateObject("Word.Application")

xWdApp.ScreenUpdating = False

xWdApp.DisplayAlerts = False

Set xObjDoc = xWdApp.Documents.Open(Filename:=xWdName, ReadOnly:=True)

xObjDoc.Activate

xPC = xObjDoc.Paragraphs.Count

Set xRPP = xObjDoc.Range(Start:=xObjDoc.Paragraphs(1).Range.Start, End:=xObjDoc.Paragraphs(xPC).Range.End)

xRPP.Select

On Error Resume Next

xWdApp.Selection.Copy

xName = xObjDoc.Name

xName = Replace(xName, ":", "_")

xName = Replace(xName, "\", "_")

xName = Replace(xName, "/", "_")

xName = Replace(xName, "?", "_")

xName = Replace(xName, "*", "_")

xName = Replace(xName, "[", "_")

xName = Replace(xName, "]", "_")

If Len(xName) > 31 Then

    xName = Left(xName, 31)

End If

xWs.Name = xName

xWs.Range("A1").Select

xWs.Paste

xObjDoc.Close

Set xObjDoc = Nothing

xWdApp.DisplayAlerts = True

xWdApp.ScreenUpdating = True

xWdApp.Quit (wdDoNotSaveChanges)

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

3. 按 F5 鍵運行代碼，會彈出一個「Kutools – 請選擇」對話框，讓您選擇要匯入的 Word 文件（一次只能匯入一個文件）。

4. 點擊「打開」，然後所選的 Word 文件將作為一個新工作表被匯入。參見截圖：
提示：新工作表將自動以匯入的 Word 文件名稱命名。

相反地，有時您可能希望將 Excel 工作簿轉換為其他文件格式，例如 PDF 文件。在本節中，介紹了一個高級工具——批量轉換器，可以幫助您將某個資料夾中的 Excel 工作簿批量轉換為單獨的 PDF 文件。

在使用此工具之前，請花幾分鐘 免費安裝 Kutools for Excel。

1. 點擊 Kutools Plus > 工作簿 > 批量轉換器。

2. 在「文件格式轉換器」對話框中，

1. 在「類型」下拉列表中選擇您需要的轉換操作，例如 Excel 工作簿轉 PDF；
2. 點擊 添加您要轉換的文件或資料夾。
3. 選擇一個位置存放已轉換的文件。

3. 點擊 確定，將創建一個新的工作簿列出轉換結果，同時文件也已完成轉換。

提示：

使用批量轉換器工具，您還可以在 Excel 97-2003 和 Excel 2007 或更高版本之間進行批量轉換。