如何在Excel中快速批量導入多個csv / text / xml文件？

在Excel中，您可能不得不將工作簿另存為csv文件，文本文件或xml文件，但是您是否曾經嘗試過將多個csv / text / xml文件從一個文件夾導入到工作簿或工作表中？在本文中，我介紹了一些快速批量導入它們的方法。

使用VBA將文件夾中的多個文本文件導入到工作簿的每個工作表中

使用VBA將文件夾中的多個csv文件導入到一張工作表中

使用VBA將一個文件夾中的多個xml文件導入到一張工作表中

將多個 xml/csv 文件導入或組合到工作表或工作簿中 Kutools for Excel

將每張紙作為 csv/text/pdf 導出到文件夾中 Kutools for Excel

要將文本文件從文件夾導入到工作簿中，可以使用VBA下面的命令對其進行快速處理。

1.啟用空白工作簿，然後按 Alt + F11鍵 打開鑰匙 Microsoft Visual Basic for Applications 窗口。

2。點擊插入 > 模塊，然後將VBA粘貼到模塊窗口。

VBA：將所有文本文件從文件夾導入到工作簿中

Sub LoadPipeDelimitedFiles()
'UpdatebyKutoolsforExcel20151214
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xCount As Long
    On Error GoTo ErrHandler
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    Application.ScreenUpdating = False
    xFile = Dir(xStrPath & "\*.txt")
    Do While xFile <> ""
        xCount = xCount + 1
        Sheets(xCount).Select
        With ActiveSheet.QueryTables.Add(Connection:="TEXT;" _
          & xStrPath & "\" & xFile, Destination:=Range("A1"))
            .Name = "a" & xCount
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .TextFilePromptOnRefresh = False
            .TextFilePlatform = 437
            .TextFileStartRow = 1
            .TextFileParseType = xlDelimited
            .TextFileTextQualifier = xlTextQualifierDoubleQuote
            .TextFileConsecutiveDelimiter = False
            .TextFileTabDelimiter = False
            .TextFileSemicolonDelimiter = False
            .TextFileCommaDelimiter = False
            .TextFileSpaceDelimiter = False
            .TextFileOtherDelimiter = "|"
            .TextFileColumnDataTypes = Array(1, 1, 1)
            .TextFileTrailingMinusNumbers = True
            .Refresh BackgroundQuery:=False
            xFile = Dir
        End With
    Loop
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox "no files txt", , "Kutools for Excel"
End Sub

3。按 F5 鍵或跑按鈕以運行VBA，並在彈出對話框中選擇要從中導入文本文件的文件夾。看截圖：

doc導入多個csv文本xml 1

4.然後點擊 OK，並且所選文件夾中的每個文本文件都已導入到活動工作簿的一個工作表中。看截圖：

輕鬆地將多個工作表/工作簿合併為一個工作表或工作簿

在Excel中，將多個工作表或工作簿組合成一個工作表或工作簿可能很麻煩，但是使用結合功能 Kutools for Excel，您可以將數十個工作表/工作簿合併為一個工作表或工作簿，也可以通過幾次單擊將工作表合併為一個。 點擊查看全功能 30 天免費試用！

Kutools for Excel：超過300個方便的Excel插件，免費試用，沒有限制 30 天。

要將所有csv文件從一個文件夾導入到一張紙中，可以使用以下VBA代碼。

1.啟用空白工作表，然後按 Alt + F11鍵 打開鑰匙 Microsoft Visual Basic for Applications 窗口。

2。點擊插入 > 模塊，然後在VBA下面粘貼到新模塊窗口。

VBA：將csv文件從一個文件夾導入到一個工作表中

Sub ImportCSVsWithReference()
'UpdatebyKutoolsforExcel20151214
    Dim xSht  As Worksheet
    Dim xWb As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error GoTo ErrHandler
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    Set xSht = ThisWorkbook.ActiveSheet
    If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then xSht.UsedRange.Clear
    Application.ScreenUpdating = False
    xFile = Dir(xStrPath & "\" & "*.csv")
    Do While xFile <> ""
        Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
        Columns(1).Insert xlShiftToRight
        Columns(1).SpecialCells(xlBlanks).Value = ActiveSheet.Name
        ActiveSheet.UsedRange.Copy xSht.Range("A" & Rows.Count).End(xlUp).Offset(1)
        xWb.Close False
        xFile = Dir
    Loop
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox "no files csv", , "Kutools for Excel"
End Sub

3。按 F5 鍵或單擊跑按鈕執行VBA，然後彈出一個對話框，選擇要從其中導入所有csv文件的文件夾。看截圖：

doc導入多個csv文本xml 4

4。點擊 OK，然後會彈出一個對話框，提醒您在導入之前是否清除了活動工作表的內容，請點擊此處是。看截圖：

doc導入多個csv文本xml 5

點擊後是，所選文件夾中的所有csv文件都將導入到當前工作表中，並將數據從A列向右放置。看截圖：

小提示: 如果要將csv文件水平放置在工作表中，可以在VBA下面使用。

Sub ImportCSVsWithReferenceI()
'UpdatebyKutoolsforExcel20151214
    Dim xSht  As Worksheet
    Dim xWb As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xCount As Long
    On Error GoTo ErrHandler
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    Set xSht = ThisWorkbook.ActiveSheet
    If MsgBox("Clear the existing sheet before importing?", vbYesNo, "Kutools for Excel") = vbYes Then
        xSht.UsedRange.Clear
        xCount = 1
    Else
        xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
    End If
    Application.ScreenUpdating = False
    xFile = Dir(xStrPath & "\" & "*.csv")
    Do While xFile <> ""
        Set xWb = Workbooks.Open(xStrPath & "\" & xFile)
        Rows(1).Insert xlShiftDown
        Range("A1") = ActiveSheet.Name
        ActiveSheet.UsedRange.Copy xSht.Cells(1, xCount)
        xWb.Close False
        xFile = Dir
        xCount = xSht.Cells(3, Columns.Count).End(xlToLeft).Column + 1
    Loop
    Application.ScreenUpdating = True
    Exit Sub
ErrHandler:
    MsgBox "no files csv", , "Kutools for Excel"
End Sub

doc導入多個csv文本xml 8

如果要將所有XML文件從一個文件夾導入到一張紙中，則可以使用以下VBA代碼。

1.選擇要放置導入數據的空白表，然後按 Alt + F11鍵 啟用鍵 Microsoft Visual Basic for Applications 窗口。

2。點擊插入 > 模塊，將VBA代碼粘貼到模塊窗口。

VBA：將XML文件從文件夾導入到工作表中。

Sub From_XML_To_XL()
'UpdatebyKutoolsforExcel20151214
    Dim xWb As Workbook
    Dim xSWb As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xCount As Long
    On Error GoTo ErrHandler
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    Application.ScreenUpdating = False
    Set xSWb = ThisWorkbook
    xCount = 1
    xFile = Dir(xStrPath & "\*.xml")
    Do While xFile <> ""
        Set xWb = Workbooks.OpenXML(xStrPath & "\" & xFile)
        xWb.Sheets(1).UsedRange.Copy xSWb.Sheets(1).Cells(xCount, 1)
        xWb.Close False
        xCount = xSWb.Sheets(1).UsedRange.Rows.Count + 2
        xFile = Dir()
    Loop
    Application.ScreenUpdating = True
    xSWb.Save
    Exit Sub
ErrHandler:
    MsgBox "no files xml", , "Kutools for Excel"
End Sub

3。點擊跑按鈕或 F5 鍵運行VBA，然後在彈出的對話框中選擇一個文件夾，請參見屏幕截圖：

doc導入多個csv文本xml 9

4。點擊 OK，並將所選文件夾中的所有XML文件導入到活動工作表中。

如果您不熟悉VBA，請放心，在這裡，我介紹一個方便的工具– Kutools for Excel 為了你。憑藉其強大結合實用程序，您可以將多個xml文件或csv文件快速組合到一個工作簿或一個Excel工作表中。

Kutools for Excel, 與以上 300 方便的功能，使您的工作更加輕鬆。
免費下載免費全功能 30-天

安裝後 Kutools for Excel，請執行以下操作：（免費下載 Kutools for Excel 現在！）

1. Active Excel，然後單擊 Kutools 加 > 結合。查看截圖：
doc合併1

2.在 合併的第一步 對話框中，根據需要選擇一個分離選項。看截圖：
doc合併2

3。點擊 下一頁 去 合併的第2步點擊此處成為Trail Hunter 加入將文件從多個文件夾添加或將文件從一個文件夾添加到 工作簿 列表，還可以指定要從中合併的圖紙 下載學習單 右側部分列表。看截圖：
doc kutools組合紙3

4。點擊 下一頁 到最後一步結合，然後您可以指定合併選項。

5。點擊完，會彈出一個對話框，提醒您選擇一個位置來保存新的合併結果。看截圖：
doc合併5

6。點擊節省。所有添加的工作表都已合併為一個新的工作表。
doc合併6

小提示: 這款獨特的敏感免洗唇膜採用 Moisture WrapTM 技術和 Berry Mix ComplexTM 成分，結合，您也可以將多個 CSV文件 在一個工作表或工作簿中形成多個文件夾或一個文件夾。

如果要將每張工作表作為csv / text / pdf文件導出到文件夾， Kutools for Excel“ 拆分工作簿 實用程序可以幫您一個忙。

後 免費安裝 Kutools for Excel，請執行以下操作：

1.啟用要導出其工作表的工作簿，然後單擊 Kutools 加 > 工作簿 > 拆分工作簿。看截圖：

doc導入多個csv文本xml 10

2。在裡面 拆分工作簿 對話框中，您可以檢查需要導出的工作表名稱，默認情況下，所有工作表均已選中，然後檢查 指定保存格式 然後從下拉列表中選擇要另存為的文件格式。看截圖：

doc導入多個csv文本xml 11

3。點擊分裂然後選擇一個文件夾將拆分文件保存在 瀏覽文件夾 對話框，請參見屏幕截圖：

doc導入多個csv文本xml 12

4。點擊 OK，現在所有選中的工作表都將作為新文件格式導出到所選文件夾中。

最佳辦公生產力工具

	熱門特色: 尋找、突出顯示或識別重複項 \| 刪除空白行 \| 合併列或儲存格而不遺失數據 \| 沒有公式的回合 ...
	超級查詢: 多條件VLookup \| 多值VLookup \| 跨多個工作表的 VLookup \| 模糊查詢 ....
	高級下拉列表: 快速建立下拉列表 \| 依賴下拉列表 \| 多選下拉列表 ....
	欄目經理: 新增特定數量的列 \| 移動列 \| 切換隱藏列的可見性狀態 \| 比較範圍和列 ...
	特色功能: 網格焦點 \| 設計圖 \| 大方程式酒吧 \| 工作簿和工作表管理器 \| 資源庫（自動文字） \| 日期選擇器 \| 合併工作表 \| 加密/解密單元格 \| 按清單發送電子郵件 \| 超級濾鏡 \| 特殊過濾器（過濾粗體/斜體/刪除線...）...
	前 15 個工具集: 12 文本工具 (添加文本, 刪除字符，...） \| 50+ 圖表類型 (甘特圖，...） \| 40+ 實用公式 (根據生日計算年齡，...） \| 19 插入工具 (插入二維碼, 從路徑插入圖片，...） \| 12 轉化工具 (數字到單詞, 貨幣兌換，...） \| 7 合併與拆分工具 (高級合併行, 分裂細胞，...） \| ... 和更多

增強您的 Excel 技能 Kutools for Excel，體驗前所未有的效率。 Kutools for Excel 提供 300 多種高級功能，可提高工作效率並節省時間。點擊此處獲取您最需要的功能...

kte選項卡201905

閱讀更多... 免費下載...

Office Tab 為 Office 帶來選項卡式界面，讓您的工作更輕鬆

在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
將您的工作效率提高 50%，每天為您減少數百次鼠標點擊！

閱讀更多... 免費下載...

Comments (36)

No ratings yet. Be the first to rate!

bobby

about 10 months ago

#42596