如何將 CSV 檔匯入工作表？

對我們來說，將工作表匯入或另存為 CSV 檔可能很容易，但您是否嘗試過將 CSV 檔匯入工作表呢？在本文中，我將為您介紹一些處理此任務的有趣方法。

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

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

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

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

通常，在 Excel 中，您可以應用「文字匯入精靈」功能將 CSV 檔匯入工作表，請按照以下步驟操作：

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

2. 在「匯入文字檔」視窗中，請指定要匯入的 CSV 檔，請參見截圖：

3. 然後點擊 匯入 按鈕，在「文字匯入精靈」的第一步中選擇 分隔符號 選項，請參見截圖：

4. 然後點擊 下一步 > 按鈕，在精靈的第二步中勾選 分隔符號 底下的 逗號 選項，請參見截圖：

5. 接著繼續點擊 下一步 > 按鈕，在精靈的第三步中選擇 列數據格式 區域中的 文字 選項，並且可以看到第一列會被高亮顯示。然後按住 Shift 鍵以高亮顯示所有列。請參見截圖：

6. 然後點擊 完成 按鈕，在彈出的「匯入數據」對話框中，選擇要放置數據的位置，請參見截圖：

7. 點擊 確定 按鈕，CSV 檔即刻被匯入到工作表中。

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

如果您有 Kutools for Excel，透過其 在游標處插入文件 功能，您可以快速匯入 CSV 檔、文字檔、Excel 檔或 PRN 檔至當前工作表。

安裝 Kutools for Excel 後，請按照以下步驟操作：

1. 啟動要匯入 CSV 檔數據的工作表。

2. 然後點擊 Kutools Plus > 匯入與匯出 > 在游標處插入文件，請參見截圖：

3. 在「在游標處插入文件」對話框中，請進行以下選項設定：

(1.) 點擊 按鈕選擇要輸出數據的單元格；

(2.) 然後點擊 瀏覽 按鈕打開「選擇要在游標位置插入的文件」視窗；

(3.) 在彈出的視窗中，從右下角的下拉列表中選擇 CSV 文件，然後選擇要匯入的 CSV 檔。

4. 指定 CSV 檔後，點擊 打開 按鈕返回之前的對話框，然後點擊 確定 以匯入 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 檔，請參見截圖：

4. 然後點擊 打開 按鈕，並點擊要放置匯入數據的單元格，請參見截圖：

5. 然後點擊 確定，指定的 CSV 檔已被匯入到工作表中。