京寵展信息指南
368
2025-03-31
如何將多個文本文件導(dǎo)入到多個工作表？
如何將多個文本文件導(dǎo)入到多個工作表？
假設(shè)計算機的文件夾中有多個文本文件，現(xiàn)在，您要將這些文本文件導(dǎo)入Excel工作簿，并將每個文本文件放入單獨的工作表中。 將每個文本文件一張一張地復(fù)制并粘貼到工作表上會浪費很多時間，在這里，我可以為您介紹一些解決此問題的技巧。
使用VBA代碼將多個文本文件導(dǎo)入到單獨的工作表中
將工作簿拆分為多個單獨的文本/pdf/csv/xlsx 文件 Kutools for Excel
使用VBA代碼將多個文本文件導(dǎo)入到單獨的工作表中以下VBA代碼可以幫助您立即將每個文本文件導(dǎo)入到新工作簿中的單獨工作表中，請執(zhí)行以下操作：
1。 按住 ALT + F11 在Excel中打開鍵 Microsoft Visual Basic應(yīng)用程序 窗口。
2。 點擊 插頁 > 模塊，然后將以下代碼粘貼到 模塊 窗口。
VBA代碼：將多個文本文件導(dǎo)入到單獨的工作表中：
Sub CombineTextFiles()
updateby Extendoffice
Dim xFilesToOpen As Variant
Dim I As Integer
Dim xWb As Workbook
Dim xTempWb As Workbook
Dim xDelimiter As String
Dim xScreen As Boolean
On Error GoTo ErrHandler
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
xDelimiter = "|"
xFilesToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Kutools for Excel", , True)
If TypeName(xFilesToOpen) = "Boolean" Then
MsgBox "No files were selected", , "Kutools for Excel"
GoTo ExitHandler
End If
I = 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
xTempWb.Sheets(1).Copy
Set xWb = Application.ActiveWorkbook
xTempWb.Close False
xWb.Worksheets(I).Columns("A:A").TextToColumns _
Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, _
Comma:=False, Space:=False, _
Other:=True, OtherChar:="|"
Do While I < UBound(xFilesToOpen)
I = I + 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
With xWb
xTempWb.Sheets(1).Move after:=.Sheets(.Sheets.Count)
.Worksheets(I).Columns("A:A").TextToColumns _
Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, _
Comma:=False, Space:=False, _
Other:=True, OtherChar:=xDelimiter
End With
Loop
ExitHandler:
Application.ScreenUpdating = xScreen
Set xWb = Nothing
Set xTempWb = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Description, , "Kutools for Excel"
Resume ExitHandler
End Sub
Copy
3。 粘貼上面的代碼后，按 F5 鍵以運行此代碼，然后在彈出的窗口中指定包含文本文件的文件夾，轉(zhuǎn)到該文件夾??以選擇要導(dǎo)入到工作表的文本文件，請參見屏幕截圖：
4。 然后點擊 可選 按鈕，所有選定的文本文件都已導(dǎo)入到新工作簿中，每個文件分別位于一個工作表中。
5。 最后，您可以根據(jù)需要保存新工作簿。
將工作簿拆分為多個單獨的文本/pdf/csv/xlsx 文件 Kutools for Excel有時，您可能需要執(zhí)行與上述任務(wù)相反的操作，也就是說，您需要將工作簿拆分為單獨的文本文件。 Kutools for Excel“ 拆分工作簿 實用程序可以幫助您快速輕松地解決此工作。
Kutools for Excel : 帶有300多個便捷的Excel加載項，可以在30天內(nèi)免費試用.前往下載30天免費試用購買貝寶/ MyCommerce
安裝后 Kutools for Excel，請執(zhí)行以下操作： 免費下載 Kutools for Excel 現(xiàn)在！ )
1。 激活您要拆分為多個文本文件的工作簿。
2。 點擊 企業(yè) > 工作簿 > 拆分工作簿，請參見屏幕截圖：
3。 在 拆分工作簿 對話框：
（1.）檢查要拆分的工作表。
（2.）檢查 指定保存格式，然后選擇要保存的文件格式，例如，可以選擇 TXT, CSV, PDF格式, XLSX or XLS 所需的文件格式。
（3.）然后單擊 分裂 按鈕，在以下提示框中指定一個文件夾以輸出單獨的文件。
4。 然后點擊 OK 按鈕，您選擇的工作表將被拆分并以所需的格式保存到所需的文件夾中。
免費下載 Kutools for Excel 現(xiàn)在！
最佳辦公生產(chǎn)力工具
將小時轉(zhuǎn)化為分鐘 Kutools for Excel!
準(zhǔn)備好增強您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時間的工具。 簡化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗 Excel！
為什么需要 Kutools for Excel
??? 超過 300 項強大功能: Kutools 包含 300 多項高級功能，可簡化您在 1500 多種場景中的工作。
?? 卓越的數(shù)據(jù)處理能力：合并單元格、刪除重復(fù)項并執(zhí)行高級數(shù)據(jù)轉(zhuǎn)換 - 所有這些都不費吹灰之力！
?? 高效的批量操作：當(dāng)你可以聰明地工作時，為什么還要付出額外的努力呢？ 輕松批量導(dǎo)入、導(dǎo)出、組合和調(diào)整數(shù)據(jù)。
?? 可定制的圖表和報告：訪問各種附加圖表并生成富有洞察力的報告。
??? 強大的導(dǎo)航窗格：通過強大的列管理器、工作表管理器和自定義收藏夾獲得優(yōu)勢。
?? 七種類型的下拉列表：通過各種功能和類型的下拉列表使數(shù)據(jù)輸入變得輕而易舉。
?? 用戶友好：對于初學(xué)者來說輕而易舉，對于專家來說是一個強大的工具。
立即下載，與 Excel 一起穿越時空！
閱讀更多
免費下載... 采購...
Office Tab 為 Office 帶來選項卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發(fā)布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開并創(chuàng)建多個文檔。
每天將您的工作效率提高50％，并減少數(shù)百次鼠標(biāo)單擊！
閱讀更多
免費下載... 采購...
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。
相關(guān)文章
