如何將一個文件夾中的多個文本文件導入一個工作表？

例如，這裡有一個包含多個文本文件的文件夾，您要做的就是將這些文本文件導入到一個工作表中，如屏幕截圖所示。有沒有什麼技巧可以將文本文件從一個文件夾快速導入到一張紙中，而不是一個一個地複製文本文件？

這是一個VBA代碼，可以幫助您將所有文本文件從一個特定的文件夾導入到新的工作表中。

1.啟用要導入文本文件的工作簿，然後按 Alt + F11鍵 啟用鍵 Microsoft Visual Basic for Applications 窗口。

2。點擊插入 > 模塊，將下面的VBA代碼複製並粘貼到模塊窗口。

VBA：將多個文本文件從一個文件夾導入到一張工作表

Sub Test()
'UpdatebyExtendoffice6/7/2016
    Dim xWb As Workbook
    Dim xToBook As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xFiles As New Collection
    Dim I As Long
    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
    If Right(xStrPath, 1) <> "\" Then xStrPath = xStrPath & "\"
    xFile = Dir(xStrPath & "*.txt")
    If xFile = "" Then
        MsgBox "No files found", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    Do While xFile <> ""
        xFiles.Add xFile, xFile
        xFile = Dir()
    Loop
    Set xToBook = ThisWorkbook
    If xFiles.Count > 0 Then
        For I = 1 To xFiles.Count
            Set xWb = Workbooks.Open(xStrPath & xFiles.Item(I))
            xWb.Worksheets(1).Copy after:=xToBook.Sheets(xToBook.Sheets.Count)
            On Error Resume Next
            ActiveSheet.Name = xWb.Name
            On Error GoTo 0
            xWb.Close False
        Next
    End If
End Sub

3。按 F5 顯示對話框，然後選擇一個文件夾，其中包含要導入的文本文件。看截圖：
doc從文件夾導入文本文件1

4。點擊 OK。然後，文本文件已作為新工作表分別導入到活動工作簿中。
doc從文件夾導入文本文件2

如果要將一個文本文件導入到特定的單元格或範圍，可以應用 Excel的Kutools“ 在光標處插入文件 效用。

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

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

1.選擇要導入文本文件的單元格，然後單擊 Kutools 加 > 進出口 > 在光標處插入文件。看截圖：
doc從文件夾導入文本文件3

2.然後彈出一個對話框，單擊瀏覽顯示 選擇一個文件 插入單元格光標位置對話框中，然後選擇 文本文件 從下拉列表中，然後選擇要導入的文本文件。看截圖：
doc從文件夾導入文本文件4

3。點擊 已提交 > Ok，並且已在光標位置插入了指定文本文件，請參見屏幕截圖：
doc從文件夾導入文本文件5

最佳辦公效率工具

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

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

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

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

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

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

留言 (46)

4中的5評分 · 1評級

PB拉瑪穆爾蒂

大約5年前

#22251

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

子測試（）
'更新通過Extendoffice6/7/2016
將 xWb 調暗為工作簿
將 xToBook 調暗為工作簿
將 xStrPath 調暗為字符串
將 xFileDialog 調暗為 FileDialog
將 xFile 調暗為字符串
將 xFiles 調暗為新集合
暗淡我只要
設置 xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = 假
xFileDialog.Title = "選擇一個文件夾 [Kutools for Excel]"
如果 xFileDialog.Show = -1 那麼
xStrPath = xFileDialog.SelectedItems(1)
如果結束
如果 xStrPath = "" 則退出 Sub
If Right(xStrPath, 1) <> "\" Then xStrPath = xStrPath & "\"
xFile = Dir(xStrPath & "*.txt")
如果 xFile = "" 那麼
MsgBox "沒有找到文件", vbInformation, "Kutools for Excel"
退出小組
如果結束
執行 xFile <> ""
xFiles.Add xFile, xFile
xFile = 目錄（）
循環
設置 xToBook = ThisWorkbook
如果 xFiles.Count > 0 那麼
對於 I = 1 到 xFiles.Count
設置 xWb = Workbooks.Open(xStrPath & xFiles.Item(I))
xWb.Worksheets(1).複製之後：=xToBook.Sheets(xToBook.Sheets.Count)
在錯誤恢復下一頁
ActiveSheet.Name = xWb.Name
在錯誤轉到0
xWb.Close 錯誤
下一頁
如果結束
END SUB

這段代碼有幫助，但我想要

製表符，分號，空格 true 如何做到這一點請幫助我

晴朗 PB拉瑪穆爾蒂

大約5年前

#22252

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

將文本文件轉換為工作表後是否要保留空格（分隔符）？