如何在Excel中快速批量導入多個csv / text / xml文件?
在Excel中,您可能不得不將工作簿另存為csv文件,文本文件或xml文件,但是您是否曾經嘗試過將多個csv / text / xml文件從一個文件夾導入到工作簿或工作表中? 在本文中,我介紹了一些快速批量導入它們的方法。
使用VBA將文件夾中的多個文本文件導入到工作簿的每個工作表中
將多個 xml/csv 文件導入或組合到工作表或工作簿中 Kutools for Excel
將每張紙作為 csv/text/pdf 導出到文件夾中 Kutools for Excel
使用VBA將文件夾中的多個文本文件導入到工作簿的每個工作表中
要將文本文件從文件夾導入到工作簿中,可以使用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,並在彈出對話框中選擇要從中導入文本文件的文件夾。 看截圖:
4.然後點擊 OK,並且所選文件夾中的每個文本文件都已導入到活動工作簿的一個工作表中。 看截圖:


輕鬆地將多個工作表/工作簿合併為一個工作表或工作簿
|
在Excel中,將多個工作表或工作簿組合成一個工作表或工作簿可能很麻煩,但是使用 結合 功能 Kutools for Excel,您可以將數十個工作表/工作簿合併為一個工作表或工作簿,也可以通過幾次單擊將工作表合併為一個。 點擊查看全功能 30 天免費試用! |
![]() |
Kutools for Excel:超過300個方便的Excel插件,免費試用,沒有限制 30 天。 |
使用VBA將文件夾中的多個csv文件導入到一張工作表中
要將所有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文件的文件夾。 看截圖:
4。 點擊 OK,然後會彈出一個對話框,提醒您在導入之前是否清除了活動工作表的內容,請點擊此處 是。 看截圖:
點擊後 是,所選文件夾中的所有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
使用VBA將一個文件夾中的多個xml文件導入到一張工作表中
如果要將所有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,然後在彈出的對話框中選擇一個文件夾,請參見屏幕截圖:
4。 點擊 OK,並將所選文件夾中的所有XML文件導入到活動工作表中。
將多個 xml/csv 文件導入或組合到工作表或工作簿中 Kutools for Excel
如果您不熟悉VBA,請放心,在這裡,我介紹一個方便的工具– Kutools for Excel 為了你。 憑藉其強大 結合 實用程序,您可以將多個xml文件或csv文件快速組合到一個工作簿或一個Excel工作表中。
Kutools for Excel, 與以上 300 方便的功能,使您的工作更加輕鬆。 | ||
安裝後 Kutools for Excel,請執行以下操作:(免費下載 Kutools for Excel 現在!)
1. Active Excel,然後單擊 Kutools 加 > 結合。 查看截圖:
2.在 合併的第一步 對話框中,根據需要選擇一個分離選項。 看截圖:
3。 點擊 下一頁 去 合併的第2步點擊此處成為Trail Hunter 加入 將文件從多個文件夾添加或將文件從一個文件夾添加到 工作簿 列表,還可以指定要從中合併的圖紙 下載學習單 右側部分列表。 看截圖:
4。 點擊 下一頁 到最後一步 結合,然後您可以指定合併選項。
5。 點擊 完,會彈出一個對話框,提醒您選擇一個位置來保存新的合併結果。 看截圖:
6。 點擊 節省。 所有添加的工作表都已合併為一個新的工作表。
小提示: 這款獨特的敏感免洗唇膜採用 Moisture WrapTM 技術和 Berry Mix ComplexTM 成分, 結合,您也可以將多個 CSV文件 在一個工作表或工作簿中形成多個文件夾或一個文件夾。
將多個XML / CVS文件合併到一個工作表/工作簿中
將每張紙作為 csv/text/pdf 導出到文件夾中 Kutools for Excel
如果要將每張工作表作為csv / text / pdf文件導出到文件夾, Kutools for Excel“ 拆分工作簿 實用程序可以幫您一個忙。
後 免費安裝 Kutools for Excel,請執行以下操作:
1.啟用要導出其工作表的工作簿,然後單擊 Kutools 加 > 工作簿 > 拆分工作簿。 看截圖:
2。 在裡面 拆分工作簿 對話框中,您可以檢查需要導出的工作表名稱,默認情況下,所有工作表均已選中,然後檢查 指定保存格式 然後從下拉列表中選擇要另存為的文件格式。 看截圖:
3。 點擊 分裂 然後選擇一個文件夾將拆分文件保存在 瀏覽文件夾 對話框,請參見屏幕截圖:
4。 點擊 OK,現在所有選中的工作表都將作為新文件格式導出到所選文件夾中。
將每個工作表導出為單個XML / CSV / TXT / PDF文件
相關文章:
最佳辦公生產力工具
熱門特色: 尋找、突出顯示或識別重複項 | 刪除空白行 | 合併列或儲存格而不遺失數據 | 沒有公式的回合 ... | |
超級查詢: 多條件VLookup | 多值VLookup | 跨多個工作表的 VLookup | 模糊查詢 .... | |
高級下拉列表: 快速建立下拉列表 | 依賴下拉列表 | 多選下拉列表 .... | |
欄目經理: 新增特定數量的列 | 移動列 | 切換隱藏列的可見性狀態 | 比較範圍和列 ... | |
特色功能: 網格焦點 | 設計圖 | 大方程式酒吧 | 工作簿和工作表管理器 | 資源庫 (自動文字) | 日期選擇器 | 合併工作表 | 加密/解密單元格 | 按清單發送電子郵件 | 超級濾鏡 | 特殊過濾器 (過濾粗體/斜體/刪除線...)... | |
前 15 個工具集: 12 文本 工具 (添加文本, 刪除字符,...) | 50+ 圖表 類型 (甘特圖,...) | 40+ 實用 公式 (根據生日計算年齡,...) | 19 插入 工具 (插入二維碼, 從路徑插入圖片,...) | 12 轉化 工具 (數字到單詞, 貨幣兌換,...) | 7 合併與拆分 工具 (高級合併行, 分裂細胞,...) | ... 和更多 |
增強您的 Excel 技能 Kutools for Excel,體驗前所未有的效率。 Kutools for Excel 提供 300 多種高級功能,可提高工作效率並節省時間。 點擊此處獲取您最需要的功能...
Office Tab 為 Office 帶來選項卡式界面,讓您的工作更輕鬆
- 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
- 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
- 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!















