如何将CSV文件导入工作表？

对我们来说，将工作表导入或保存为CSV文件可能很容易，但您是否尝试过将CSV文件导入工作表呢？本文中，我将为您介绍一些有趣的方法来完成此任务。

使用文本导入向导将CSV文件导入工作表

使用Kutools for Excel将CSV文件导入工作表

使用VBA代码将CSV文件导入工作表

使用文本导入向导将CSV文件导入工作表

通常，在Excel中，您可以应用“文本导入向导”功能将CSV文件导入到工作表中，请按照以下步骤操作：

1. 激活要导入CSV文件的工作表，然后点击 数据 > 从文本，参见截图：

2. 在“导入文本文件”窗口中，请指定要导入的CSV文件，参见截图：

3. 然后点击 导入 按钮，在“文本导入向导”的第1步中，选择 分隔符 选项，参见截图：

4. 然后点击 下一步 > 按钮，在向导的第2步中，勾选 分隔符 下的 逗号 选项，参见截图：

5. 继续点击 下一步 > 按钮，在向导的第3步中，选择 列数据格式 部分下的 文本 选项，并且可以看到第一列被高亮显示。然后按住 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文件已被导入到工作表中。