寵物集市-寵物集市華東、華南、華北排行榜一覽表
1361
2025-04-01
如何在Excel中快速批量導入多個csv / text / xml文件？
如何在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將文件夾中的多個文本文件導入到工作簿的每個工作表中要將文本文件從文件夾導入到工作簿中，可以使用VBA下面的命令對其進行快速處理。
1.啟用空白工作簿，然后按 Alt + F11鍵 打開鑰匙 Microsoft Visual Basic應用程序 窗口。
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
Copy
3。 按 F5 鍵或 運行 按鈕以運行VBA，并在彈出對話框中選擇要從中導入文本文件的文件夾。 看截圖：
4.然后點擊 OK，并且所選文件夾中的每個文本文件都已導入到活動工作簿的一個工作表中。 看截圖：
輕松地將多個工作表/工作簿合并為一個工作表或工作簿
在Excel中，將多個工作表或工作簿組合成一個工作表或工作簿可能很麻煩，但是使用 結合 功能 Kutools for Excel，您可以將數十個工作表/工作簿合并為一個工作表或工作簿，也可以通過幾次單擊將工作表合并為一個。 點擊查看全功能 30 天免費試用！ Kutools for Excel：超過300個方便的Excel插件，免費試用，沒有限制 30 天。要將所有csv文件從一個文件夾導入到一張紙中，可以使用以下VBA代碼。
1.啟用空白工作表，然后按 Alt + F11鍵 打開鑰匙 Microsoft Visual Basic應用程序 窗口。
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
Copy
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文件導入到一張工作表中
Copy
如果要將所有XML文件從一個文件夾導入到一張紙中，則可以使用以下VBA代碼。
1.選擇要放置導入數據的空白表，然后按 Alt + F11鍵 啟用鍵 Microsoft Visual Basic應用程序 窗口。
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
Copy
3。 點擊 運行 按鈕或 F5 鍵運行VBA，然后在彈出對話框中選擇一個文件夾，請參見屏幕截圖：
4。 點擊 OK，并將所選文件夾中的所有XML文件導入到活動工作表中。
將多個 xml/csv 文件導入或組合到工作表或工作簿中 Kutools for Excel如果您不熟悉VBA，請放心，在這里，我介紹一個方便的工具– Kutools for Excel 為了你。 憑借其強大 結合 實用程序，您可以將多個xml文件或csv文件快速組合到一個工作簿或一個Excel工作表中。
Kutools for Excel, 與超過 300 方便的功能，使您的工作更加輕松。免費下載免費全功能 30- 天
安裝后 Kutools for Excel，請執行以下操作：（免費下載 Kutools for Excel 現在！）
1. Active Excel，然后單擊 Kutools 加 > 結合
。 查看截圖：
2.然后 合并的第一步
對話框中，根據需要選擇一個分離選項。 看截圖：
3。 點擊 接著 去 合并的第2步，單擊“ 地址 將各種文件夾中的文件或一個文件夾中的文件添加到 工作簿 列表，還可以指定要從中合并的圖紙 工作表
右側部分列表。 看截圖：
4。 點擊 接著 到最后一步 結合，然后您可以指定合并選項。
5。 點擊 完成
，會彈出一個對話框，提醒您選擇一個位置來保存新的合并結果。 看截圖：
6。 點擊 優惠
。 所有添加的工作表都已合并為一個新的工作表。
提示： 結合，您也可以將多個 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文件
相關文章： 如何在Excel中將超鏈接轉換為純文本？ 如何在Excel中將十進制數轉換為二進制/八進制/十六進制數，反之亦然？ 如何在Excel中插入實時匯率？最佳辦公生產力工具
將小時轉化為分鐘 Kutools for Excel!
準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！
為什么需要 Kutools for Excel
??? 超過 300 項強大功能: Kutools 包含 300 多項高級功能，可簡化您在 1500 多種場景中的工作。
?? 卓越的數據處理能力：合并單元格、刪除重復項并執行高級數據轉換 - 所有這些都不費吹灰之力！
?? 高效的批量操作：當你可以聰明地工作時，為什么還要付出額外的努力呢？ 輕松批量導入、導出、組合和調整數據。
?? 可定制的圖表和報告：訪問各種附加圖表并生成富有洞察力的報告。
??? 強大的導航窗格：通過強大的列管理器、工作表管理器和自定義收藏夾獲得優勢。
?? 七種類型的下拉列表：通過各種功能和類型的下拉列表使數據輸入變得輕而易舉。
?? 用戶友好：對于初學者來說輕而易舉，對于專家來說是一個強大的工具。
立即下載，與 Excel 一起穿越時空！
閱讀更多
免費下載... 采購...
Office Tab 為 Office 帶來選項卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開并創建多個文檔。
每天將您的工作效率提高50％，并減少數百次鼠標單擊！
閱讀更多
免費下載... 采購...
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
相關文章
