KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

Как пакетно преобразовать несколько 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 for Applications, и выберите Вставка > Модуль. См. снимок экрана:
Окно Microsoft Visual Basic for Applications

Примечание: Убедитесь, что все 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-файлами, которые нужно преобразовать. См. снимок экрана:
Диалоговое окно для выбора указанной папки, содержащей CSV-файлы, которые необходимо преобразовать

4. Нажмите кнопку ОК — и все CSV-файлы из выбранной папки будут преобразованы в XLS-файлы в той же папке.
Все 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 или другой Тип файла. Для этого пришлось бы либо использовать макрос VBA, либо вручную скопировать диапазон в Новая рабочая книга, а затем сохранить его.Kutools для Excelупрощает этот процесс с помощью своей Экспорт диапазона в файлутилиты, позволяя быстро и легко выполнять такие операции всего за несколько кликов.

Интерфейс экспорта диапазона в файл

Kutools для Excel— Расширьте возможности Excel более чем 300 незаменимыми инструментами, чтобы ускорить и упростить свою работу, а также используйте функции ИИ для более интеллектуальной обработки данных и повышения продуктивности.Получить сейчас

Связанные статьи:

Лучшие инструменты повышения продуктивности в Office

🤖KUTOOLS AI Помощник: Преобразуйте Анализ данных с помощью:Интеллектуального выполнения   |  Генерации кода|  Создания пользовательские формулы  |  Анализа данных и построения диаграмм|  Вызова Расширенные функции…
Популярные функции:Поиск, выделение или Отметить дубликаты   |  Удалить пустые строки   |  Объединить столбцы или ячеек без потери данных   |  Округление без использования формул…
Супер ПОИСК:VLookup по нескольким критериям  |  VLookup по нескольким значениям  |   VLookup по нескольким листам   |   Распознавание нечетких соответствий…
Расширенный раскрывающийся список:Быстрое создание выпадающего списка   |  Зависимый выпадающий список   |  Выпадающий список с множественным выбором…
Управление столбцами:Добавление заданного количества столбцов|Перемещение столбцов|Переключение видимости скрытых столбцов|Сравнение диапазонов и столбцов…
Избранные функции:Сетка фокусировки   |  Просмотр дизайна   |Улучшенная строка формулы   | Управление рабочими книгами и листами   |  Библиотека ресурсов(автотекст)|  Выбор даты   |  Объединить листы  |  Шифрование/Расшифровать ячейки   | Отправка писем по списку   |  Супер фильтр   |   Специальный фильтр(Фильтр ячеек с жирным шрифтом/курсив/зачёркивание…) …
Лучшие наборы инструментов 15:12 Текстовыеинструменты(Добавить текст,Удалить определенные символы, …)|   50+Типыдиаграмм(Диаграмма Ганта, …)|   40+ Практические формулы(Рассчитать возраст на основе даты рождения, …)|   19 Инструментывставки(Вставить QR-код,Вставка изображения по пути, …)|   12 Инструментыпреобразования(Преобразовать в слова,Конвертация валют, …)|   7 Объединить и разделитьИнструменты(Расширенное объединение строк,Разделить ячейки, …)|… и многое другое
Используйте Kutools на предпочитаемом языке — поддержка английского, испанского, немецкого, французского, китайского и ещё 40+ языков!

Раскройте весь потенциал 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.

ExcelWordOutlookTabsPowerPoint
  • Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
  • Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
  • Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
  • 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
  • Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек