Как импортировать CSV-файл в рабочий лист?

Нам может быть легко импортировать или сохранить рабочий лист как CSV-файл, но пробовали ли вы когда-нибудь импортировать CSV-файл в рабочий лист? В этой статье я расскажу о некоторых интересных методах для выполнения этой задачи.

Импорт CSV-файла в рабочий лист с помощью Мастера импорта текста

Импорт CSV-файла в рабочий лист с помощью Kutools для Excel

Импорт CSV-файла в рабочий лист с помощью кода VBA

Импорт CSV-файла в рабочий лист с помощью Мастера импорта текста

Обычно в Excel вы можете использовать функцию Мастера импорта текста для импорта CSV-файла в рабочий лист. Пожалуйста, следуйте инструкциям:

1. Активируйте рабочий лист, в который вы хотите импортировать CSV-файл, затем нажмите Данные > Из текста, см. скриншот:

2. В окне Импорт текстового файла укажите CSV-файл, который вы хотите импортировать, см. скриншот:

3. Затем нажмите кнопку Импорт, на Шаге 1 Мастера импорта текста выберите опцию Разделительный символ, см. скриншот:

4. Затем нажмите кнопку Далее >, на Шаге 2 мастера отметьте Запятая под опцией Разделители, см. скриншот:

5. Продолжайте нажимать кнопку Далее >, на Шаге 3 мастера выберите опцию Текст в разделе Формат данных столбца, и вы увидите, что первый столбец будет выделен. Затем удерживайте клавишу Shift, чтобы выделить все столбцы. См. скриншот:

6. Затем нажмите кнопку Готово, в появившемся диалоговом окне Импорт данных выберите место, куда вы хотите поместить данные, см. скриншот:

7. Нажмите кнопку ОК, CSV-файл будет немедленно импортирован в рабочий лист.

Импорт CSV-файла в рабочий лист с помощью Kutools для Excel

Если у вас есть Kutools для Excel, с помощью его утилиты Вставить файл в текущую позицию вы можете быстро импортировать CSV-файл, текстовый файл, файл Excel или PRN-файл в текущий рабочий лист.

После установки Kutools для Excel выполните следующие действия:

1. Активируйте рабочий лист, куда вы хотите импортировать данные CSV-файла.

2. Затем нажмите Kutools Plus > Импорт и экспорт > Вставить файл в текущую позицию, см. скриншот:

3. В диалоговом окне Вставить файл в текущую позицию выполните следующие действия:

(1.) Нажмите кнопку, чтобы выбрать ячейку, куда вы хотите вывести данные;

(2.) Затем нажмите кнопку Обзор, чтобы открыть окно Выберите файл для вставки в позицию курсора ячейки;

(3.) В появившемся окне выберите CSV-файлы из выпадающего списка в правом нижнем углу, а затем выберите CSV-файл, который вы хотите импортировать.

4. После указания CSV-файла нажмите кнопку Открыть, чтобы вернуться к предыдущему диалоговому окну, а затем нажмите ОК для импорта CSV-файла. CSV-файл будет вставлен в нужное вам место.

Скачайте и попробуйте Kutools для Excel прямо сейчас бесплатно!

Импорт CSV-файла в рабочий лист с помощью кода VBA

Если вам надоело выполнять вышеуказанный метод пошагово, следующий код VBA также может решить эту проблему.

1. Удерживайте клавиши ALT + F11, и откроется окно Microsoft Visual Basic для приложений.

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 для запуска этого кода и выберите CSV-файл, который вы хотите импортировать, в появившемся диалоговом окне Kutools для Excel, см. скриншот:

4. Затем нажмите кнопку Открыть и выберите ячейку, куда вы хотите поместить импортированные данные, см. скриншот:

5. Затем нажмите ОК, и конкретный CSV-файл будет импортирован в рабочий лист.