Измените расширение файла с помощью кода VBA (с изображениями)
Что это:
Этот код VBA поможет вам изменить расширение файлов в определенной папке/каталоге.
Например, Если вы хотите изменить расширение файлов Excel, полученных в формате .xlsx, на .xls или Visaversa, можно использовать этот код VBA.
Почему:
Если вы работаете над проектом, в котором вы получаете входные файлы с разными расширениями файлов, и вы хотите, чтобы файлы в стандартном формате для вашей программы VBA работали, и у вас нет никакого контроля над входными файлами, тогда этот кусок кода будет очень полезно, так как вы можете изменить расширение на любой формат, который захотите.
Объект Windows Script используется для изменения расширения в этом коде.
Как изменить расширение файла с помощью кода VBA:
Шаг 1. Откройте книгу, которую необходимо защитить, и нажмите Альт + Ф11
Шаг 2. Скопируйте и вставьте приведенный ниже код в окно редактора VBA и сохраните книгу.
SubchangeExt() strDir = "C:\myFolder\" 'укажите здесь путь к папке с вашими файлами With CreateObject("wscript.shell") .currentdirectory = strDir .Run "%comspec% /c ren *.xlsx *.xls", 0, Настоящий конец с конечным переводом
Шаг 3: Нажмите F5 для запуска кода.
2 Responses
что, если… файлы изначально не имели расширений… и вы хотите, чтобы все они добавляли расширение .xls?
Добрый день
Как изменить конкретное расширение файла?
Поскольку этот код меняет все файлы в папке
Спасибо