W tym samouczku dowiesz się, jak uzyskać nazwy wszystkich plików w folderze i umieścić je w Arkuszu.
Zamiast tego, jeśli chcesz dowiedzieć się, jak sprawdzić, czy plik istnieje, możesz kliknąć ten link: VBA File Exists
Używanie FileSystemObject do pobrania listy plików w folderze
VBA umożliwia wyświetlenie listy wszystkich plików z folderu za pomocą Obiekt systemu plików.
Pokażemy, jak uzyskać listę plików w folderze C:\Folder VBA i umieść go w pierwszej kolumnie Arkusza. Ten folder składa się z 5 plików, jak pokazano na obrazku 1:
Obraz 1. Pliki w folderze C:\Folder VBA
Oto kod:
| 1234567891011121314151617181920 | Podrzędne pliki pętli ()Dim FSO jako obiektDim ofFolder As ObjectPrzyciemnij plik jako obiektDim i jako liczba całkowitaSet ofFSO = CreateObject("Scripting.FileSystemObject")Ustaw oFolder = oFSO.GetFolder("C:\Folder VBA")Dla każdego pliku w folderze oFolder.FilesKomórki(i + 1, 1) = oPlik.Nazwaja = ja + 1Następny plikNapis końcowy |
W tym przykładzie najpierw utwórz obiekt klasy Scripting.FileSystemObject:
| 1 | Set ofFSO = CreateObject("Scripting.FileSystemObject") |
Następnie ustaw folder za pomocą metody Pobierz folder:
| 1 | Ustaw oFolder = oFSO.GetFolder("C:\Folder VBA") |
Następna pętla przez każdy plik w oFolder, za pomocą oFile.Name to pobierz nazwę każdego pliku w folderze i zapisz go w następnym pustym wierszu:
| 123456 | Dla każdego pliku w folderze oFolder.FilesKomórki(i + 1, 1) = oPlik.Nazwaja = ja + 1Następny plik |
Obraz 2. Arkusz roboczy z listą plików w folderze
Jak widać na obrazku 2, wszystkie 5 plików z folderu C: \ VBA są wymienione w pierwszej kolumnie.
