Как импортировать 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. Нажмите кнопку OK, и CSV-файл будет немедленно импортирован на лист.
Импорт CSV-файла на лист с помощью Kutools для Excel
Если у вас установлен Kutools для Excel, с помощью его утилиты Вставить файл в текущую позицию вы можете быстро импортировать CSV-файл, текстовый файл, файл Excel или файл PRN в текущий лист.
После установки Kutools для Excelвыполните следующие действия:
1.Активируйте лист, на который вы хотите импортировать данные из CSV-файла.
2. Затем нажмите KUTOOLS PLUS > Импорт/экспорт > Вставить файл в текущую позицию. См. снимок экрана:
3.В диалоговом окне Вставить файл в текущую позициювыполните следующие действия:
(1.) Нажмите кнопку 
, чтобы выбрать ячейку, в которую вы хотите вывести данные;
(2.) Затем нажмите кнопку Обзор, чтобы открыть окно «Выбор файла для вставки в позицию курсора ячейки»;
(3.) В появившемся окне выберите Файлы CSV в раскрывающемся списке в правом нижнем углу, а затем укажите CSV-файл, который хотите импортировать.
 |
 |
 |
4.После выбора CSV-файла нажмите кнопку Открыть, чтобы вернуться в предыдущее диалоговое окно, а затем — кнопку OK, чтобы импортировать файл. 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, чтобы запустить этот код, и в появившемся диалоговом окне Kutools для Excel выберите CSV-файл, который вы хотите импортировать. См. снимок экрана:
4. Затем нажмите кнопку Открыть и щелкните ячейку, в которую хотите поместить импортированные данные (см. снимок экрана):
5. Затем нажмите кнопку OK, и указанный CSV-файл будет импортирован на лист.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек