• Użytkownik po włączeniu makra wklei ścieżkę do odpowiedniego folderu.
• Wszystkie pliki Excela z rozszerzeniem „.xlsx” zostaną znalezione (TUTAJ dowiesz się więcej na temat pracy z arkuszami Excel).
• Każdy z tych plików będzie otwarty, w komórce A1 zostanie zapisana liczba 100 i następnie plik zostanie zamknięty.

Sub Przeszukaj_folder()

    Sciezka = InputBox("Wklej ścieżkę folderu") & "\"
    plik = Dir(Sciezka & "*.xlsx")
    
    Do While plik <> ""
        Workbooks.Open Sciezka & plik
            ActiveWorkbook.Range("A1") = 100
        Workbooks(plik).Close Savechanges:=False
    Loop

End Sub

 

Sciezka = InputBox(„Wklej ścieżkę folderu”) & „\”

InputBox wyświetla okno, w którym można wkleić ścieżkę do folderu. Na końcu ścieżko powinien znaleźć się znak „\”, który nie pojawia się, gdy kopiujemy ścieżkę z okna w Windowsie, dlatego od razy ten znak dodany jest do wyniki InputBoxa (na końcu linii kodu).

 

plik = Dir(Sciezka & „*.xlsx”)

Funkcja Dir otrzymuje jako argument ścieżkę do folderu oraz nazwę pliku podaną w sposób ogólny, tzn. określający jakiego typu pliki są poszukiwane – tutaj, z rozszerzeniem „.xlsx”. Znak „*” oznacza, że to co znajduje się przed rozszerzeniem, czyli nazwa pliku, może być dowolna. Rezultatem funkcji Dir jest sama nazwa pliku z rozszerzeniem (ale bez ścieżko folderu)

 

Do While plik <> „”

Pętla wykonuje się tak długo, jak długo warunek jest prawdziwy, czyli gdy w zmienna plik nie jest pusta, czyli tak długo, jak funkcja Dir znajduje kolejne pliki w katalogu.