Pokud pracujete s Visual Basic for Applications (VBA) v Excelu, možná budete muset otevřít soubor z kódu. Jedním ze způsobů, jak toho dosáhnout, je použití dialogového okna v Excelu, které uživateli umožňuje vybrat soubor, který má otevřít. To je velmi užitečné v případech, kdy je nutné vybrat soubor mezi množinou nebo když se změní cesta k souboru.
Chcete-li otevřít dialogové okno v Excelu prostřednictvím VBA, můžete použít metodu "Getopenfilename" objektu "aplikace". Tato metoda otevře standardní dialogové okno pro otevírání souborů, ve kterém může uživatel vybrat požadovaný soubor. Chcete-li povolit výběr libovolného typu souborů, musíte pouze zadat formát souboru nebo jej nechat prázdný.
Níže je uveden příklad kódu VBA, který otevře dialogové okno pro výběr souboru a zobrazí cestu k vybranému souboru:
Sub OpenFile()
Dim filePath As Variant
filePath = Application.GetOpenFilename
If filePath <> False Then
MsgBox "vybraný soubor:" & filePath
End If
End Sub
Tento příklad kódu otevře dialogové okno pro výběr souboru, uloží cestu k vybranému souboru do proměnné "filePath" a zobrazí jej ve zprávě. Pokud uživatel nezvolil soubor, proměnná "filePath" bude mít hodnotu "False".
Pomocí tohoto příkladu můžete rozšířit funkčnost programu na VBA tím, že uživatelům umožníte vybrat soubory k otevření a manipulaci s obsahem těchto souborů v Excelu.
Instalace VBA Excel
Než začnete používat VBA Excel k automatizaci úloh, musíte se ujistit, že VBA (Visual Basic for Applications) je nainstalována a dostupná v Excelu. Zde je několik kroků k instalaci VBA v Excelu:
| Krok 1: | Otevřete Excel a vyberte kartu Soubor. |
| Krok 2: | V nabídce Soubor vyberte Možnosti. |
| Krok 3: | V okně Možnosti vyberte možnosti práce se soubory. |
| Krok 4: | V seznamu vlevo vyberte "možnosti práce s VBA". |
| Krok 5: | Ujistěte se, že je zaškrtnuto políčko "Zobrazit kartu "Vývojář" na pásu karet. |
| Krok 6: | Pro uložení změn klikněte na "OK". |
Po dokončení těchto kroků se v Excelu zobrazí karta Vývojář, kde můžete pomocí VBA najít nástroje pro vytváření a úpravy Maker. Pokud se karta Vývojář stále nezobrazuje, možná budete muset nainstalovat VBA Excel z dalších komponent Office nebo provést opětovnou instalaci Office.
Nyní, když je VBA nainstalována a k dispozici v Excelu, můžete začít vytvářet a spouštět makra, která automatizují různé operace v tabulkách a pracovních knihách aplikace Excel.
Otevření souboru pomocí dialogového okna
Při práci s VBA Excel je často nutné otevírat soubory. Místo nastavení tvrdé cesty k souboru v kódu lze použít dialogové okno, které uživateli umožňuje vybrat soubor, který má být otevřen.
K otevření souboru pomocí dialogového okna VBA Excel lze použít metodu getopenfilename. Tato metoda otevře standardní dialogové okno pro výběr souboru, kde může uživatel vybrat požadovaný soubor.
Příklad použití metody GetOpenFilename:
Dim fileName As String fileName = Application.Getopenfilename (Title:= "vyberte soubor", FileFilter:= " All Files ( * .*),*.*")
V tomto příkladu, po spuštění kódu, bude proměnná fileName obsahovat cestu k vybranému souboru. Nastavení metody getopenfilename vám umožní nakonfigurovat dialogové okno, například nastavit záhlaví okna a filtr souborů.