Как выполнить пакетное преобразование нескольких файлов CSV в файлы XLS (X) в Excel?
Для вас очень легко преобразовать файл CSV в файл XLS или XLSX, применив функцию «Сохранить как». Однако преобразование нескольких файлов CSV в файлы XLS или XLSX из папки занимает много времени, так как их можно сохранять по одному вручную. Здесь я представляю код макроса для быстрого пакетного преобразования всех файлов CSV в файлы XLS (x) из папки.
Пакетное преобразование файлов CSV в файлы XlS (X) с помощью кода макроса
Пакетное преобразование файлов CSV в файлы XlS (X) с помощью кода макроса
Чтобы преобразовать несколько файлов CSV из одной папки в файлы XLS (X), вы можете сделать следующие шаги:
1. Включите новую книгу, нажмите Alt + F11 ключи для открытия Microsoft Visual Basic для приложений окно и щелкните Вставить > Модули. Смотрите скриншот:
Внимание: Убедитесь, что все файлы CSV, которые вы хотите преобразовать, закрыты.
2. Затем вставьте ниже код макроса в Модули сценарий и нажмите F5 ключ для запуска кода.
VBA: конвертировать CSV в XLS
Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
Dim xFd As FileDialog
Dim xSPath As String
Dim xCSVFile As String
Dim xWsheet As String
Application.DisplayAlerts = False
Application.StatusBar = True
xWsheet = ActiveWorkbook.Name
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
xFd.Title = "Select a folder:"
If xFd.Show = -1 Then
xSPath = xFd.SelectedItems(1)
Else
Exit Sub
End If
If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
xCSVFile = Dir(xSPath & "*.csv")
Do While xCSVFile <> ""
Application.StatusBar = "Converting: " & xCSVFile
Workbooks.Open Filename:=xSPath & xCSVFile
ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlNormal
ActiveWorkbook.Close
Windows(xWsheet).Activate
xCSVFile = Dir
Loop
Application.StatusBar = False
Application.DisplayAlerts = True
End Sub
3. В появившемся диалоговом окне выберите указанную папку, содержащую файлы CSV, которые вы хотите преобразовать. Смотрите скриншот:
4. Нажмите OK, все файлы CSV в выбранной папке преобразованы в файлы XLS.
Функции: Если вы хотите преобразовать файлы CSV в файлы XLSX, используйте приведенный ниже код VBA.
VBA: преобразование файлов CSV в XLSX
Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
Dim xFd As FileDialog
Dim xSPath As String
Dim xCSVFile As String
Dim xWsheet As String
Application.DisplayAlerts = False
Application.StatusBar = True
xWsheet = ActiveWorkbook.Name
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
xFd.Title = "Select a folder:"
If xFd.Show = -1 Then
xSPath = xFd.SelectedItems(1)
Else
Exit Sub
End If
If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
xCSVFile = Dir(xSPath & "*.csv")
Do While xCSVFile <> ""
Application.StatusBar = "Converting: " & xCSVFile
Workbooks.Open Filename:=xSPath & xCSVFile
ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault
ActiveWorkbook.Close
Windows(xWsheet).Activate
xCSVFile = Dir
Loop
Application.StatusBar = False
Application.DisplayAlerts = True
End Sub
быстро конвертировать или экспортировать диапазон листа для разделения файлов XLS / Word / PDF или других форматов за один раз
|
Обычно Excel не поддерживает возможность быстрого экспорта или сохранения диапазона в виде файла CSV или Excel. Если вы хотите сохранить диапазон данных в виде CSV или книги в Excel, вам может потребоваться использовать макрос VBA для этого или скопировать диапазон в буфер обмена и вставить его в новую книгу, а затем сохранить книгу как CSV или Рабочая тетрадь. Kutools for Excel дополняет Excel с помощью Диапазон экспорта в файл утилита для пользователей Excel, которые хотят быстро выполнить следующие операции : Нажмите для 30-дневная полнофункциональная бесплатная пробная версия! |
![]() |
Kutools for Excel: с более чем удобными надстройками Excel 300, которые можно попробовать бесплатно без ограничений в 30 дней. |
Относительные статьи:
- Как преобразовать файл csv в файл xls или импортировать / открыть файл csv в Excel?
- Как преобразовать текстовый документ в рабочий лист Excel?
Лучшие инструменты для работы в офисе
Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%
- Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
- Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
- Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
- Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
- Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!





































