Код VBA для изменения расширения файла

Код VBA для изменения расширения файла
Оглавление

Измените расширение файла с помощью кода 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 для запуска кода.

Изменить расширение файла


Picture of Anson Antony
Энсон Энтони
Энсон — соавтор и основатель компании www.askeygeek.com. Изучение чего-то нового всегда было его страстью, а ASKEYGEEK.com — результат его страсти к технологиям и бизнесу. Он имеет десятилетний разносторонний опыт в области аутсорсинга бизнес-процессов, финансов и бухгалтерского учета, информационных технологий, операционного совершенствования и бизнес-аналитики. За время своего пребывания в должности он работал в таких организациях, как Genpact, Hewlett Packard, M*Modal и Capgemini, занимая различные должности и обязанности. Помимо бизнеса и технологий, он любитель кино, который часами вместе смотрит и изучает кино, а также кинорежиссер!

2 ответа

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *

Поздравляем!
Ты сделал это,
Не закрывайтесь!

Доступ к UberCreate Creator Pro
бесплатно!!!

Это всплывающее окно не покажет вам решать снова!!!

Share to...