Zmiana rozszerzenia pliku za pomocą kodu VBA (z obrazami)
Co czy to:
Ten kod VBA pomoże ci zmienić rozszerzenie plików w określonym folderze/katalogu.
Na przykład, jeśli chcesz zmienić rozszerzenie plików Excela otrzymanych w formacie .xlsx na .xls lub visaversa, możesz użyć tego kodu VBA.
Dlaczego:
Jeśli pracujesz nad projektem, w którym otrzymujesz pliki wejściowe z różnymi rozszerzeniami plików, w których chcesz, aby pliki w standardowym formacie działały w programie VBA i nie masz żadnej kontroli nad plikami wejściowymi, ten kod będzie bardzo pomocny, ponieważ możesz zmienić rozszerzenie na dowolny format.
Obiekt Windows Script jest używany do zmiany rozszerzenia w tym kodzie.
Jak zmienić rozszerzenie pliku za pomocą kodu VBA:
Krok 1: Otwórz skoroszyt, który ma być chroniony i naciśnij przycisk Alt + F11
Krok 2: Skopiuj i wklej poniższy kod w oknie edytora VBA i zapisz skoroszyt.
Sub changeExt()
strDir = "C:\myFolder\" 'podaj tutaj ścieżkę do folderu z plikami
With CreateObject("wscript.shell")
.currentdirectory = strDir
.Run "%comspec% /c ren *.xlsx *.xls", 0, True
End With
End Sub
Krok 3: Kliknij F5 aby uruchomić kod.
2 Responses
A co jeśli... pliki nie miały żadnych rozszerzeń na początku... i chcesz, aby wszystkie miały rozszerzenie .xls?
Miłego dnia
Jak zmienić określone rozszerzenie pliku?
Ponieważ ten kod zmienia wszystkie pliki w folderze
Dzięki