Codice VBA per modificare l'estensione del file

Codice VBA per modificare l'estensione del file
Sommario

Change File Extension using VBA Code (with Images)

Che cosa è:

This VBA code will help you change file extension of the files in a particular folder/directory.

For eg. If you want to change the extension of the Excel files received in .xlsx to .xls or visaversa then this VBA code can be used.

Perché:

If you are working on project where you get input files with different file extensions where in you want the files in a standard format for your VBA program to work and you don’t have any control over the input files then this peace of code will be very helpful as you can change extension to any format you want.

Windows Script object is used to change the extension in this code.

How to Change File Extension using VBA code:





Step 1: Open the workbook that need to be protected and press Alt + F11

Passaggio 2: copia e incolla il codice seguente nella finestra dell'editor VBA e salva la cartella di lavoro.

				
					Sub changeExt()

strDir = "C:\myFolder\" 'mention your files folder path here

With CreateObject("wscript.shell")

   .currentdirectory = strDir

   .Run "%comspec% /c ren *.xlsx *.xls", 0, True

End With

End Sub
				
			

 

Step 3: Click F5 to run the code.

Change File Extension


Anson Antonio
Anson Antonio
Anson è un autore collaboratore e fondatore di www.askeygeek.com. Imparare qualcosa di nuovo è sempre stata la sua passione, ASKEYGEEK.com è il risultato della sua passione per la tecnologia e il business. Ha un decennio di esperienza versatile in Business Process Outsourcing, Finanza e Contabilità, Informatica, Eccellenza Operativa e Business Intelligence. Durante il mandato, ha lavorato per organizzazioni come Genpact, Hewlett Packard, M*Modal e Capgemini in vari ruoli e responsabilità. Al di fuori degli affari e della tecnologia, è un appassionato di cinema che trascorre ore insieme guardando e imparando il cinema e anche un regista!

3 risposte

Lascia un commento

Il tuo indirizzo email non sarà pubblicato. I campi obbligatori sono contrassegnati *

Congratulazioni!
L'hai fatta,
Non chiudere!
Inserisci la tua possibilità di vincere 100.000 crediti per personaggi UberTTS
Grazie per la vostra visita!

Questo popup non mostrerà sta a te Ancora!!!

Uovo di Pasqua UberTTS da 100K
Share to...