V tomto návode sa naučíte, ako získať názvy všetkých súborov v priečinku a vložiť ich do pracovného hárka.
Ak sa chcete namiesto toho dozvedieť, ako skontrolovať, či súbor existuje, môžete kliknúť na tento odkaz: Súbor VBA existuje
Použitie FileSystemObject na získanie zoznamu súborov v priečinku
VBA vám umožňuje zobraziť zoznam všetkých súborov z priečinka pomocou súboru FileSystemObject.
Ukážeme si, ako získať zoznam súborov v priečinku Priečinok C: \ VBA a vložte ho do prvého stĺpca pracovného hárka. Tento priečinok pozostáva z 5 súborov, ako je znázornené na obrázku 1:
Obrázok 1. Súbory v priečinku C: \ VBA priečinok
Tu je kód:
| 1234567891011121314151617181920 | Sub LoopThroughFiles ()Dim oFSO ako objektDim oFolder ako objektDim oFile As ObjectDim i As IntegerNastaviť oFSO = CreateObject ("Scripting.FileSystemObject")Nastaviť oFolder = oFSO.GetFolder ("Priečinok C: \ VBA")Pre každý oFile v oFolder.FilesBunky (i + 1, 1) = oFile.Namei = i + 1Ďalší oFileKoniec pod |
V príklade najskôr vytvorte objekt triedy Scripting.FileSystemObject:
| 1 | Nastaviť oFSO = CreateObject ("Scripting.FileSystemObject") |
Potom pomocou tejto metódy nastavte priečinok GetFolder:
| 1 | Nastaviť oFolder = oFSO.GetFolder ("Priečinok C: \ VBA") |
Nasledujúca slučka cez každý súbor v o Priečinok, použitím oFile.Name to získajte názov každého súboru v priečinku a napíšte ho do nasledujúceho prázdneho riadka:
| 123456 | Pre každý oFile v oFolder.FilesBunky (i + 1, 1) = oFile.Namei = i + 1Ďalší oFile |
Obrázok 2. Pracovný list so zoznamom súborov v priečinku
Ako vidíte na obrázku 2, v prvom stĺpci je uvedených všetkých 5 súborov z priečinka C: \ VBA.
