如何在Excel中快速批量導入多個csv / text / xml文件?
在Excel中,您可能不得不將工作簿另存為csv文件,文本文件或xml文件,但是您是否曾經嘗試過將多個csv / text / xml文件從一個文件夾導入到工作簿或工作表中? 在本文中,我介紹了一些快速批量導入它們的方法。
使用VBA將文件夾中的多個文本文件導入到工作簿的每個工作表中
使用Kutools for Excel將多個xml / csv文件導入或合併到工作表或工作簿中
使用Kutools for Excel將每張工作表導出為csv / text / pdf到一個文件夾
使用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文件導入到活動工作表中。
使用Kutools for Excel將多個xml / csv文件導入或合併到工作表或工作簿中
如果您不熟悉VBA,請放心,在這裡,我介紹一個方便的工具– Excel的Kutools 為了你。 憑藉其強大 結合 實用程序,您可以將多個xml文件或csv文件快速組合到一個工作簿或一個Excel工作表中。
Excel的Kutools, 與以上 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文件合併到一個工作表/工作簿中
使用Kutools for Excel將每張工作表導出為csv / text / pdf到一個文件夾
如果要將每張工作表作為csv / text / pdf文件導出到文件夾, Excel的Kutools“ 拆分工作簿 實用程序可以幫您一個忙。
後 免費安裝 Kutools for Excel,請執行以下操作:
1.啟用要導出其工作表的工作簿,然後單擊 Kutools 加 > 工作簿 > 拆分工作簿。 看截圖:
2。 在裡面 拆分工作簿 對話框中,您可以檢查需要導出的工作表名稱,默認情況下,所有工作表均已選中,然後檢查 指定保存格式 然後從下拉列表中選擇要另存為的文件格式。 看截圖:
3。 點擊 分裂 然後選擇一個文件夾將拆分文件保存在 瀏覽文件夾 對話框,請參見屏幕截圖:
4。 點擊 OK,現在所有選中的工作表都將作為新文件格式導出到所選文件夾中。
將每個工作表導出為單個XML / CSV / TXT / PDF文件
相關文章:
最佳辦公效率工具
Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%
- 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
- 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
- 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
- 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
- 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
- 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
- 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
- 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
- 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆
- 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
- 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
- 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!


































