Для вас очень легко преобразовать файл CSV в файл XLS или XLSX, применив функцию «Сохранить как». Однако преобразование нескольких файлов CSV в файлы XLS или XLSX из папки занимает много времени, так как их можно сохранять по одному вручную. Здесь я представляю код макроса для быстрого пакетного преобразования всех файлов 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 дней. |
