如何將多個 CSV 檔案合併或匯入至不同的工作表中？
如何在 Excel 中將資料夾內多個 CSV 檔案匯入為活頁簿中的獨立工作表？
使用 Kutools for Excel 將多個 CSV 檔案匯入至獨立工作表
將活頁簿分割為多個獨立的 CSV／PDF／TXT／Excel 文件
使用 VBA 程式碼將多個 CSV 檔案匯入至獨立工作表
若要快速將多個 CSV 檔案匯入活頁簿，下列 VBA 程式碼或許能幫上忙，請依下列步驟操作：
1. 在 Excel 中按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。
2. 點選插入＞ 模組，並將下列程式碼貼到模組視窗中。
VBA 程式碼：將多個純文本匯入至獨立工作表：
Sub CombineCsvFiles()
'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 (*.csv), *.csv", , "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
Do While I < UBound(xFilesToOpen)
I = I + 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
xTempWb.Sheets(1).Move , xWb.Sheets(xWb.Sheets.Count)
Loop
ExitHandler:
Application.ScreenUpdating = xScreen
Set xWb = Nothing
Set xTempWb = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Description, , "Kutools for Excel"
Resume ExitHandler
End Sub
3. 接著按下 F5 鍵執行此程式碼，系統將彈出視窗，請依截圖所示，前往指定資料夾並選取您要匯入 Excel 的 CSV 檔案：
4. 點選開啟按鈕後，所選的 CSV 檔案便會以獨立工作表形式匯入至新工作簿。
5. 最後，您可依需求儲存新工作簿。
使用 Kutools for Excel 將多個 CSV 檔案匯入至獨立工作表
若您已安裝 Kutools for Excel，即可透過其強大的合併功能，快速將多個 CSV 檔案合併或匯入為單一工作表，甚至多個獨立工作表！
安裝 Kutools for Excel 後，請依下列步驟操作：
1. 請點選 KUTOOLS PLUS> 合併，如截圖所示：
2. 在合併工作表對話方塊中，請選擇複製多個工作簿中的工作表到一個工作簿中，如截圖所示：
3. 在精靈的 步驟 2 中，點選新增> 檔案，即可選擇要合併的 CSV 檔案，如截圖所示：
4. 在彈出的開啟對話方塊中，從下拉清單選取 (*.csv)，並指定要合併的 CSV 檔案。
5. 接著點選開啟按鈕，即可將您所選的 CSV 檔案匯入對話方塊，如截圖所示：
6. 在 步驟 3 中，請執行下列操作：
（1.） 勾選在每個工作表的首行（作為批註）區段中的添加工作表資訊，所有 CSV 檔案資訊將以註解形式插入至合併後的工作表；
（2.） 您可依需求為 CSV 檔案重新命名；
（3.） 遇到空白的 CSV 檔案時，您可以直接略過。
7. 完成合併後，點選完成按鈕，即可為新合併的活頁簿指定檔名與儲存位置。如截圖所示：
8. 在彈出的提示方塊中，點選儲存按鈕後，您可以開啟生成文件並點選是，或點選否關閉，如截圖所示：
9. 接著，您可以依喜好決定是否儲存此情境設定，如截圖所示：
10. 最後，您所選的 CSV 檔案已成功匯入至新工作簿，並各自置於獨立的工作表中，如截圖所示：
將活頁簿分割為多個獨立的 CSV／PDF／TXT／Excel 文件
在某些情況下，您可能希望將活頁簿分割為多個獨立的 CSV 檔案，此時 Kutools for Excel 的「分割工作簿」工具能讓您快速又輕鬆地完成這項作業。
安裝 Kutools for Excel 後，請依下列步驟操作：
1. 點選 KUTOOLS PLUS > 活頁簿 > 分割工作簿，如截圖所示：
2. 在分割工作簿對話方塊中：
（1.） 勾選您想要分割的工作表；
（2.） 並勾選指定儲存格式，再選擇您要儲存的檔案類型；
（3.） 接著點選分割按鈕，並指定資料夾存放分割後的檔案。
3. 點選確定即可開始分割，活頁簿將自動轉換為您所需的獨立 CSV 檔案！
最佳 Office 生產力工具
| 🤖 | KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行 ｜ 產生程式碼｜ 建立自訂公式 ｜ 分析資料並產生圖表｜ 呼叫增強函數…… |
| 熱門功能：尋找、醒目提示或標記重複值 ｜ 刪除空白行 ｜ 合併列或儲存格而不遺失資料 ｜ 不使用公式的四捨五入…… | |
| 高級 LOOKUP：多重條件 VLookup ｜ 多重數值 VLookup ｜ 跨多個工作表 VLookup ｜ 模糊查找…… | |
| 高級下拉列表：快速建立下拉式清單 ｜ 相依式下拉式清單 ｜ 多選下拉式清單…… | |
| 欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位…… | |
| 精選功能：網格聚焦 ｜ 設計視圖 ｜增強編輯欄 ｜ 工作簿與工作表管理員 ｜ 資源庫（自動文字）｜ 日期提取 ｜ 合併工作表 ｜ 加密／解密儲存格 ｜ 依清單傳送電子郵件 ｜ 超級篩選 ｜ 特殊篩選（篩選粗體儲存格／斜體／刪除線……） ...... | |
| 頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表 類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多 |
運用 Kutools for Excel 強化您的 Excel 技能，體驗前所未有的高效能！Kutools for Excel 提供超過 300 項進階功能，大幅提升生產力並節省寶貴時間。立即點擊，取得您最需要的功能……
Office Tab 為 Office 帶來分頁式介面，讓您的工作更輕鬆自在！
- 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能，以及 Access、Visio 與 Project。
- 在同視窗的新分頁中開啟並建立多份文件，而非另開新視窗。
- 每天為您提升 50% 的工作效率，並省下數百次滑鼠點擊！
所有 Kutools 增益集，一個安裝程式
Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集，以及 Office Tab Pro，非常適合需要跨多個 Office 應用程式協作的團隊使用！
- 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集，以及 Office Tab Pro
- 一個安裝程式，一個授權— 數分鐘內即可完成設定（支援 MSI）
- 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
- 30 天完整功能試用— 無需註冊，無需信用卡
- 超值之選— 比單獨購買各增益集更省費用