V tomto kurzu se naučíte, jak získat názvy všech souborů ve složce a vložit je do listu.
Chcete -li se místo toho dozvědět, jak zkontrolovat, zda soubor existuje, můžete kliknout na tento odkaz: Soubor VBA existuje
Použití FileSystemObject k získání seznamu souborů ve složce
VBA vám umožňuje vypsat všechny soubory ze složky pomocí FileSystemObject.
Ukážeme si, jak získat seznam souborů ve složce Složka C: \ VBA a vložte jej do prvního sloupce listu. Tato složka se skládá z 5 souborů, jak ukazuje obrázek 1:
Obrázek 1. Soubory ve složce C: \ VBA Folder
Zde je kód:
| 1234567891011121314151617181920 | Sub LoopThroughFiles ()Dim oFSO jako objektDim oFolder jako objektDim oFile As ObjectDim i As IntegerNastavit oFSO = CreateObject ("Scripting.FileSystemObject")Nastavit oFolder = oFSO.GetFolder ("C: \ VBA Folder")Pro každý oFile v oFolder.FilesBuňky (i + 1, 1) = oFile.Namei = i + 1Další oFileEnd Sub |
V příkladu nejprve vytvořte objekt třídy Scripting.FileSystemObject:
| 1 | Nastavit oFSO = CreateObject ("Scripting.FileSystemObject") |
Potom pomocí metody nastavte složku GetFolder:
| 1 | Nastavit oFolder = oFSO.GetFolder ("C: \ VBA Folder") |
Další smyčka skrz každý soubor v oSložka, použitím oFile.Name to získejte název každého souboru ve složce a napište jej do dalšího prázdného řádku:
| 123456 | Pro každý oFile v oFolder.FilesBuňky (i + 1, 1) = oFile.Namei = i + 1Další oFile |
Obrázek 2. Pracovní list se seznamem souborů ve složce
Jak vidíte na obrázku 2, v prvním sloupci je uvedeno všech 5 souborů ze složky C: \ VBA.
