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

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

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

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

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

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

使用Kutools for Excel將每張工作表導出為csv / text / pdf到一個文件夾

要將文本文件從文件夾導入到工作簿中，可以使用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，請放心，在這裡，我介紹一個方便的工具– Excel的Kutools 為了你。憑藉其強大結合實用程序，您可以將多個xml文件或csv文件快速組合到一個工作簿或一個Excel工作表中。

Excel的Kutools, 與以上 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文件導出到文件夾， Excel的Kutools“ 拆分工作簿 實用程序可以幫您一個忙。

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

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

doc導入多個csv文本xml 10

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

doc導入多個csv文本xml 11

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

doc導入多個csv文本xml 12

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

最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題，並將你的生產力提高了 80%

重用: 快速插入 複雜的公式，圖表 以及您以前使用過的任何東西；加密單元帶密碼創建郵件列表並發送電子郵件...
超級公式欄（輕鬆編輯多行文本和公式）；閱讀版式（輕鬆讀取和編輯大量單元格）；粘貼到過濾範圍...
合併單元格/行/列不會丟失數據；拆分單元格內容；合併重複的行/列...防止細胞重複；比較範圍...
選擇重複或唯一行; 選擇空白行（所有單元格都是空的）；超級查找和模糊查找在許多工作簿中；隨機選擇...
確切的副本多個單元格，無需更改公式參考；自動創建參考到多張紙；插入項目符號，複選框等...
提取文字，添加文本，按位置刪除，刪除空間; 創建和打印分頁小計；在單元格內容和註釋之間轉換...
超級濾鏡（將過濾方案保存並應用於其他工作表）；高級排序按月/週/日，頻率及更多；特殊過濾器用粗體，斜體...
結合工作簿和工作表; 根據關鍵列合併表；將數據分割成多個工作表; 批量轉換xls，xlsx和PDF...
超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。在您的企業或組織中輕鬆部署。完整功能 30 天免費試用。 60 天退款保證。

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

Office選項卡為Office帶來了選項卡式界面，使您的工作更加輕鬆

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

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

留言 (36)

還沒有評分。成為第一位評論！

托馬斯

大約5年前

#19018

網站主持人對此評論進行了最小化

您好，非常感謝您提供這些代碼示例！第一個（VBA：將文件夾中的所有文本文件導入工作簿）幾乎正是我所需要的。但是，我想選擇要導入的文件，而不是自動導入任何給定文件夾中的所有文本文件。我還希望目標工作表的現有內容被文本文件的內容覆蓋。（使用上面的代碼，現有內容被向右移動而不是被替換。）我該怎麼做？提前致謝！

大約5年前

#20536

網站主持人對此評論進行了最小化

嗨，我想了解“使用 VBA 將文件夾中的多個 Xml 文件導入單個工作表”的 VBA 代碼。 1. 為什麼需要 2 個工作簿而不是 1 個？ 2. 將很多xml文件加載到excel中需要一些時間，那麼有沒有更高效的代碼？因為我意識到當您的代碼運行時，會創建許多 VBA 工作簿，這會導致速度變慢。如果您能幫助我理解，我將不勝感激！

晴朗 XY

大約5年前

#20537

網站主持人對此評論進行了最小化

對不起，我沒看懂你的第一個問題，關於第二個，更有效的代碼，我沒有找到它，如果你知道，請給我留言，謝謝。