Перейти к основному содержанию

Как преобразовать несколько файлов xls в файлы xlsx в Excel?

Чтобы преобразовать старый файл xls Excel в новый файл xlsx, вы можете применить функцию «Сохранить как» в Excel, но, если необходимо преобразовать несколько файлов xls, как можно быстро и легко справиться с этой задачей?


Преобразование нескольких форматов xls в форматы xlsx с помощью функции «Сохранить как» один за другим

Функция «Сохранить как» в Excel может помочь вам преобразовать формат xls старой книги в новый формат xlsx по одному.

1. Откройте книгу, формат которой вы хотите преобразовать.

2. Нажмите Файл > Сохранить какИ Сохранить как появится диалоговое окно, укажите папку для размещения нового формата файла и нажмите Сохранить как выпадающий список для выбора Книга Excel, см. снимок экрана:

3. Затем нажмите Сохранить кнопку, чтобы закрыть диалоговое окно, и этот формат Excel был преобразован из xls в xlsx.

Советы: С этим Сохранить как функция, вы просто конвертируете только один файл Excel за раз, если у вас есть сотни файлов Excel, которые необходимо преобразовать, этот метод не является хорошим выбором.

Преобразование нескольких форматов xls в форматы xlsx одновременно с помощью кода VBA

Если вы хотите преобразовать несколько файлов xls в файлы xlsx одновременно, не сохраняя один за другим, здесь я расскажу вам о коде VBA, выполните следующие действия:

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

Код VBA: одновременное преобразование нескольких форматов xls в форматы xlsx

Sub ConvertToXlsx()
'Updateby Extendoffice
Dim strPath As String
Dim strFile As String
Dim xWbk As Workbook
Dim xSFD, xRFD As FileDialog
Dim xSPath As String
Dim xRPath As String
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.Title = "Please select the folder contains the xls files:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Set xRFD = Application.FileDialog(msoFileDialogFolderPicker)
With xRFD
.Title = "Please select a folder for outputting the new files:"
.InitialFileName = "C:\"
End With
If xRFD.Show <> -1 Then Exit Sub
xRPath = xRFD.SelectedItems.Item(1) & "\"
strPath = xSPath & "\"
strFile = Dir(strPath & "*.xls")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do While strFile <> ""
If Right(strFile, 3) = "xls" Then
Set xWbk = Workbooks.Open(Filename:=strPath & strFile)
xWbk.SaveAs Filename:=xRPath & strFile & "x", _
FileFormat:=xlOpenXMLWorkbook
xWbk.Close SaveChanges:=False
End If
strFile = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3, Затем нажмите F5 нажмите клавишу для запуска этого кода, и появится окно, выберите папку, содержащую файлы xls, которые вы хотите преобразовать, см. снимок экрана:

4. Затем щелкните OK, появится другое окно, выберите путь к папке, в которую вы хотите вывести новые преобразованные файлы, см. снимок экрана:

5. А затем нажмите OK, после завершения конвертации вы можете перейти в указанную папку для предварительного просмотра конвертированного результата, см. скриншоты:


Преобразуйте несколько форматов xls в форматы xlsx одновременно с помощью мощной функции

С этой Kutools for ExcelАвтора Конвертер формата утилита, вы можете конвертировать несколько форматов xls в форматы xlsx или наоборот, она также может помочь вам конвертировать несколько книг в файлы PDF одновременно.

Примечание:Чтобы применить это Конвертер формата, во-первых, вы должны скачать Kutools for Excel, а затем быстро и легко примените эту функцию.

После установки Kutools for Excel, пожалуйста, сделайте так:

1. Нажмите Кутулс Плюс > Workbook > Конвертер формата, см. снимок экрана:

2. Появится всплывающее окно с напоминанием о том, что вам необходимо закрыть книгу, которую вы хотите преобразовать. Смотрите скриншот:

3. Нажмите OK, то в Конвертер форматов файлов диалоговом окне укажите следующие параметры:

  • Под Тип преобразования раскрывающийся список, выберите Excel 97-2003 в Excel 2007 или выше;
  • Затем нажмите Добавить кнопку, чтобы добавить файлы xls, которые вы хотите преобразовать, вы можете добавить книги со своего компьютерного диска или OneDrive по мере необходимости;

4. После вставки файлов xls, все еще в папке Конвертер форматов файлов диалоговое окно, щелкните кнопку, чтобы выбрать путь к одной папке для вывода преобразованных файлов, а затем указать некоторые операции, которые вам нужны, в нижней части диалогового окна, см. снимок экрана:

Заметки: В диалоговом окне выше:
  • Если книги во вложенных папках также необходимо преобразовать, проверьте Включать подпапки при добавлении папок флажок;
  • Если вы хотите удалить исходные файлы после преобразования, проверьте Удалить исходные файлы после конвертации коробка;
  • Если вы хотите сохранить дату изменения исходных файлов, проверьте Сохранить дату изменения исходных файлов коробка;
  • Структуру каталогов файла можно сохранить, установив флажок Структура каталогов файла сохраняется при преобразовании коробка;

5. Затем нажмите OK Чтобы начать преобразование, после завершения преобразования вы можете перейти в определенную папку, чтобы просмотреть преобразованный результат. Смотрите скриншоты:

Лучшие инструменты для офисной работы

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

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Please could you change the VBA code so that it looks in subfolders of the chosen folder.
Could it also output a log file to show everything its converted?
This comment was minimized by the moderator on the site
Thank You!
This comment was minimized by the moderator on the site
Thanks so much for the VBA CODE. Very Useful
This comment was minimized by the moderator on the site
Can you save a xls as a xlsx and maintain 1,048,576 rows and XFD Columns?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations