如何將 CSV 檔案匯入至工作表？

作者Xiaoyang修改日期2024-09-11

對我們來說，將工作表匯出或儲存為 CSV 檔案或許輕而易舉，但您是否嘗試過將 CSV 檔案匯入工作表呢？本文將為您介紹幾種實用的方法，輕鬆完成這項任務。

使用文字匯入精靈將 CSV 檔案匯入工作表

使用 Kutools for Excel 將 CSV 檔案匯入工作表

使用 VBA 程式碼將 CSV 檔案匯入工作表

使用文字匯入精靈將 CSV 檔案匯入工作表

一般情況下，在 Excel 中，您可以使用「文字匯入精靈」功能將 CSV 檔案匯入工作表，請依照下列步驟操作：

1. 啟用您要匯入 CSV 檔案的工作表，然後點擊資料 > 從文字檔，請參閱截圖：

點擊「資料」>「從文字檔」的螢幕截圖

2. 在匯入純文字視窗中，請指定要匯入的 CSV 檔案，詳情請參閱截圖：

指定要匯入的 CSV 檔案

3. 接著點擊匯入按鈕，在「文字匯入精靈」第 1 步中選取文字匯入精靈，並選擇分隔符號選項，請參閱截圖：

在對話框中選擇「分隔符號」選項

4. 接著在精靈的第 2 步中，點擊下一步>按鈕，並勾選逗號（位於）分隔符號選項下方，請參閱截圖：

在「分隔符號」選項下勾選「逗號」

5. 接著，點擊下一步 >按鈕，在精靈第 3 步的「欄位資料格式」區段中選擇文字選項，此時第一欄會被反白標示；接著按住 Shift 鍵，即可反白標示所有欄位。請參閱截圖：

在「資料欄格式」區段中選擇「文字」選項

6. 在彈出的匯入資料對話方塊中，選擇您要放置資料的位置，然後點擊完成按鈕，請參閱截圖：

選擇放置資料的位置

7. 點擊確定按鈕，即可立即將 CSV 檔案匯入至工作表中。

CSV 檔案已成功匯入至工作表

使用 Kutools for Excel 將 CSV 檔案匯入工作表

若您已安裝 Kutools for Excel，只需使用其在游標處插入文件功能，即可快速將 CSV 檔案、純文字、Excel 檔案或 PRN 檔案匯入至目前工作表！

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

安裝 Kutools for Excel 後，請依照下列步驟操作：

1. 請先啟用您要匯入 CSV 檔案資料的工作表。

2. 接著點擊 KUTOOLS PLUS > 匯入匯出 > 在游標處插入文件，請參閱截圖：

點擊 Kutools 的「在游標處插入檔案」功能

3. 在於游標處插入文件對話方塊中，請進行下列設定：

（1) 點擊選擇按鈕按鈕以選擇您要輸出資料的儲存格；

（2) 接著點擊瀏覽按鈕，開啟「選取要在儲存格游標位置插入的檔案」視窗；

(3) 在彈出的視窗中，從右下角的下拉清單選擇 CSV 檔案，然後選取您要匯入的 CSV 檔案。

4. 指定 CSV 檔案後，點擊開啟按鈕返回先前的對話方塊，再點擊確定即可匯入 CSV 檔案。該檔案將立即插入至您指定的位置！

立即下載並免費試用 Kutools for Excel！

使用 VBA 程式碼將 CSV 檔案匯入工作表

若您覺得上述方法步驟繁瑣，以下 VBA 程式碼同樣能輕鬆解決此問題。

1. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 點擊插入＞模組，並將下列程式碼貼到模組視窗中。

VBA 程式碼：將 CSV 檔案匯入工作表：

Sub ImportCSVFile()
'Updateby Extendoffice
    Dim xFileName As Variant
    Dim Rg As Range
    Dim xAddress As String
    xFileName = Application.GetOpenFilename("CSV File (*.csv), *.csv", , "Kutools for Excel", , False)
    If xFileName = False Then Exit Sub
    On Error Resume Next
    Set Rg = Application.InputBox("please select a cell to output the data", "Kutools for Excel", Application.ActiveCell.Address, , , , , 8)
    On Error GoTo 0
    If Rg Is Nothing Then Exit Sub
    xAddress = Rg.Address
    With ActiveSheet.QueryTables.Add("TEXT;" & xFileName, Range(xAddress))
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 936
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    End Sub

3. 接著按下 F5 鍵執行此程式碼，並在彈出的 Kutools for Excel 對話方塊中選擇您要匯入的 CSV 檔案，請參閱截圖：

用於選擇 CSV 檔案的 VBA 程式碼

4. 接著點擊開啟按鈕，並選取您要放置匯入資料的儲存格，請參閱截圖：

用於點擊儲存格以輸出匯入資料的 VBA 程式碼

5. 然後點擊確定，指定的 CSV 檔案就會匯入至工作表中。

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多