W VBA możemy usunąć dowolny plik obecny na komputerze za pomocą kodów VBA, a kod używany do usunięcia dowolnego pliku jest znany jako polecenie Kill, metoda usuwania dowolnego pliku polega na tym, że najpierw podajemy ścieżkę do pliku, co oznacza, gdzie plik znajduje się na komputerze, a następnie używamy polecenia Kill, aby usunąć plik.
Jak usunąć pliki za pomocą kodu VBA?
VBA jest trudną rzeczą na początku, ale gdy spędzasz więcej czasu z VBA, zaczniesz go kochać tak jak ja. Możemy otwierać pliki z innego folderu komputera, możemy z nimi pracować, a teraz możemy również usuwać pliki za pomocą kodowania VBA. W tym artykule pokażemy, jak usunąć pliki za pomocą kodu VBA w określonym folderze.
Kiedy pracujemy z dużymi projektami, zwykle tworzymy wiele plików pośrednich, aby wspierać nasz proces. Po wykonaniu całej pracy musimy usunąć te pliki, aby uniknąć jakichkolwiek nieporozumień w przyszłości.
Jeden scenariusz polega na tym, że zwykle otrzymujemy wiadomość e-mail, zapisujemy załączniki do naszej zwykłej pracy lub po prostu chcemy zobaczyć raport z tego momentu, a później może być konieczne usunięcie tych plików.
Ręczne usunięcie tych plików zajmie trochę czasu lub możemy zapomnieć o zapisaniu i zajmie miejsce na naszym komputerze. Pokażemy Ci, jak usunąć te pliki za pomocą prostych kodów VBA.
Zabij metodę usuwania plików w folderze za pomocą kodu VBA
Prosta funkcja KILL usuwa folder, określony plik, wszystkie pliki programu Excel itp. Spójrz na składnię metody KILL w języku VBA. Metoda Kill nie może usunąć plików tylko do odczytu.
Nazwa ścieżki : nazwa ścieżki to nic innego jak ścieżka do folderu na komputerze, aby usunąć pliki.
Uwaga: nazwa ścieżki może również zawierać symbole wieloznaczne. W programie Excel możemy użyć gwiazdki (*) i znaków zapytania (?) Jako symboli wieloznacznych.
Gwiazdka (*) jest przydatna do dopasowania dowolnego ciągu o dowolnej długości, nawet zero jest brane pod uwagę.
Znak zapytania (?) Jest przydatny do dopasowania tylko jednego znaku.
Usuń określoną nazwę pliku
Na przykład mam folder taki jak poniżej.
W tym folderze chcę usunąć plik o nazwie „Plik 5”. Uruchom kod funkcją KILL.
Kod:
Sub Delete_Files () Kill (PathName) End Sub
Skopiuj i wklej ścieżkę do folderu.
I wklej w podwójnych cudzysłowach.
Zabij „E: \ Pliki Excel”
Teraz umieść jeszcze jeden ukośnik w tył (\) i wprowadź nazwę pliku z rozszerzeniem.
Zabij „E: \ Pliki Excel \ Plik5.xlsx”
Po uruchomieniu tego kodu usunie on plik o nazwie „Plik 5.xlsx” we wspomnianej ścieżce folderu.
Usuń wszystkie pliki programu Excel
Aby usunąć wszystkie pliki Excela w folderze za pomocą VBA, musimy użyć symboli wieloznacznych z funkcją KILL. Po podaniu ścieżki folderu musimy wspomnieć o pliku jako „* .xl *”
Kod:
Zabij „E: \ Pliki Excel \ *. Xl *”
Uruchomienie tego kodu spowoduje usunięcie wszystkich plików programu Excel w folderze.
Widzieliśmy, jak możemy usunąć pojedynczy plik programu Excel i wszystkie pliki programu Excel. Ale jeśli chcemy usunąć wszystkie pliki w folderze, jak możemy go usunąć. Skoro używamy Excel VBA, czy może on usunąć inne pliki?
Odpowiedź brzmi tak!!! Użyj poniższego kodu, aby usunąć wszystkie pliki w folderze.
Kod:
Zabij „E: \ Pliki Excel \ *. *”
Usuń tylko cały folder
Czy można usunąć cały folder?
Tak to mozliwe.
Aby to zrobić, pierwszą rzeczą, którą musimy zrobić, jest usunięcie wszystkich plików w folderze za pomocą funkcji KILL, a następnie, aby usunąć folder, musimy użyć jeszcze jednej funkcji o nazwie RmDir .
Kod:
RmDir "E: \ Pliki Excel \"
Tutaj RmDir usunie tylko pusty folder, jeśli jest tam jakiś podfolder, nie może ich usunąć.
Usuń wszystkie pliki tekstowe w folderze
Aby usunąć wszystkie pliki tekstowe w folderze, użyj poniższego kodu.
Kod:
Zabij „E: \ Pliki Excel \ *. Txt”
Usuń pliki tylko do odczytu
Jak powiedziałem, funkcja KILL nie może usunąć plików „tylko do odczytu” w folderze. W takim przypadku musimy użyć dwóch pozostałych funkcji „Dir $” i funkcji „SetAttr”. Poniżej znajduje się przykładowy kod służący do usuwania plików tylko do odczytu.
Kod:
Sub Delete_Files1() Dim DeleteFile As String DeleteFile = " E:\Excel Files\" If Len(Dir$(DeleteFile)) > 0 Then SetAttr DeleteFile, vbNormal Kill DeleteFile End If End Sub
You can download this VBA Delete File Excel Template from here – VBA Delete File Excel Template
