Как выполнить пакетное преобразование нескольких файлов 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: с более чем 300 удобными надстройками Excel, вы можете попробовать бесплатно без ограничений в течение 30 дней. |
Относительные статьи:
- Как преобразовать файл csv в файл xls или импортировать / открыть файл csv в Excel?
- Как преобразовать текстовый документ в рабочий лист Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!