Jedno z najbardziej korzystnych zastosowań Excela VBA w naszym codziennym życiu jest to, że możemy sprawdzić, czy plik istnieje na naszym komputerze, czy nie używając go.W tym artykule pokażę Ci, jak można sprawdzić, czy plik istnieje lub nie na naszych komputerach za pomocą Excela VBA .

Kod VBA do sprawdzenia czy plik istnieje czy nie (szybki podgląd)

 Sub Check_If_a_File_Exists() File_Name = "E:\ExcelWIKI\\B1.xlsm" File_Name = Dir(File_Name) If File_Name = "" Then MsgBox "Plik nie istnieje." Else MsgBox "Plik istnieje." End If End Sub. 

Pobierz Zeszyt ćwiczeń

Pobierz ten zeszyt ćwiczeń, aby ćwiczyć podczas czytania tego artykułu.

Przegląd kodu VBA do sprawdzania czy plik istnieje czy nie (analiza krok po kroku)

Tak więc, bez dalszej zwłoki, przejdźmy do naszej głównej dyskusji dzisiaj.Rozbijemy VBA kod krok po kroku, aby dowiedzieć się jak sprawdzić czy dany plik istnieje czy nie na naszym komputerze.

⧪ Krok 1: Wprowadzanie niezbędnych danych wejściowych

Na samym początku kodu musimy wstawić do niego niezbędne dane wejściowe. W tym kodzie wymagane jest tylko jedno wejście, a jest nim nazwa pliku, którego szukamy. Wstawiamy pełną nazwę pliku (Wraz z powiązanym katalogiem).

 File_Name = "C:ExcelWIKI.xlsm" 

⧪ Krok 2: Wyodrębnienie nazwy pliku za pomocą funkcji VBA Dir

Następnie użyjemy małej sztuczki - wykorzystamy VBA Funkcja Dir aby wyodrębnić nazwę pliku. Jeśli taki plik nie istnieje, to Funkcja Dir zwróci ciąg pusty.

 File_Name = Dir(File_Name) 

⧪ Krok 3: Sprawdzenie, czy plik istnieje za pomocą bloku if

To jest najważniejszy krok. Powiedzieliśmy wcześniej, że jeśli żaden plik o podanej nazwie nie istnieje, funkcja Dir zwraca łańcuch null. Użyjemy tej właściwości w ramach polecenia If-block aby sprawdzić czy plik istnieje czy nie.

 If File_Name = "" Then MsgBox "Plik nie istnieje." Else MsgBox "Plik istnieje." End If 

Tak więc kompletny VBA kod będzie:

⧭ VBA Kod:

 Sub Check_If_a_File_Exists() File_Name = "E:\ExcelWIKI\\B1.xlsm" File_Name = Dir(File_Name) If File_Name = "" Then MsgBox "Plik nie istnieje." Else MsgBox "Plik istnieje." End If End Sub. 

⧭ Wyjście:

Uruchom kod, na moim komputerze pojawi się okno z komunikatem, "Plik istnieje" , ponieważ faktycznie istnieje na mojej maszynie.

Na twoim komputerze wyjście może być różne w zależności od tego, czy plik istnieje, czy nie.

Read More: Excel VBA: Sprawdź, czy arkusz istnieje (2 proste metody)

Tworzenie makra do sprawdzania, czy zakres plików istnieje, czy nie, przy użyciu VBA w Excelu

Mamy tu zestaw danych w arkuszu Excela, który zawiera nazwy niektórych plików wraz z katalogami w zakresie B4:B8 .

Naszym celem jest stworzenie Makro, które będzie pisało Istnieje / nie istnieje obok każdego z nich po sprawdzeniu, czy istnieją na komputerze, czy nie.

⧪ Krok 1: Otwarcie okna VBA

Naciśnij ALT + F11 na klawiaturze, aby otworzyć Visual Basic okno.

⧪ Krok 2: Wstawianie nowego modułu

Idź do Insert> Moduł na pasku narzędzi. kliknij na Moduł Nowy moduł o nazwie Moduł1 (lub cokolwiek innego, w zależności od Twojej dotychczasowej historii) zostanie otwarty.

⧪ Krok 3: Umieszczenie kodu VBA

To jest najważniejszy krok. Wstawić VBA kod w module.

⧭ VBA Kod:

 Sub Check_If_a_Range_of_File_Exist() Set Rng = ActiveSheet.Range("B4:B8") For i = 1 To Rng.Rows.Count File_Name = Dir(Rng.Cells(i, 1)) If File_Name = "" Then Rng.Cells(i, 2) = "Doesn't Exist" Else Rng.Cells(i, 2) = "Exists" End If Next i End Sub 

⧪ Krok 5: Uruchomienie kodu

Kliknij na Run Sub / UserForm narzędzie z powyższego paska narzędzi.

Kod zostanie uruchomiony. I otrzymasz "Istnieje" dla plików, które istnieją, oraz "Nie istnieje" dla plików, które nie istnieją.

Read More: Jak sprawdzić, czy wartość istnieje w zakresie w Excelu (8 sposobów)

Wniosek

Dlatego jest to proces mający na celu opracowanie Makro aby wysłać e-mail z Excela z załącznikiem. Jeśli masz jakieś pytania, śmiało zadawaj je nam. I nie zapomnij odwiedzić naszej strony ExcelWIKI po więcej postów i aktualizacji.