Ako používať metódu GetOpenFilename v Exceli 2016 VBA

Ak váš postup VBA musí požiadať užívateľa o zadanie názvu súboru, ste mohli použiť funkciu InputBox a nechať užívateľa Excelu vykonať nejaké písanie. Vstupné pole však zvyčajne nie je najlepším nástrojom na túto prácu, pretože pre väčšinu používateľov je ťažké zapamätať si cesty, spätné lomky, názvy súborov a prípony súborov. Inými slovami, pri písaní názvu súboru je až príliš ľahké sa pokaziť.

Pre lepšie riešenie tohto problému použite metódu GetOpenFilename objektu Application, ktorá zaistí, že váš kód dostane do rúk platný názov súboru vrátane jeho úplnej cesty. Metóda GetOpenFilename zobrazí známe dialógové okno Otvoriť.

1. Syntax pre metódu GetOpenFilename

Oficiálna syntax metódy GetOpenFilename je nasledovná:

object.GetOpenFilename ([filter súboru], [filterIndex], [title], [buttonText], [multiSelect])

1.1. Argumenty metódy

2. Príklad GetOpenFilename

Argument fileFilter určuje, čo sa zobrazí v rozbaľovacom zozname Súbory typu v dialógovom okne. Tento argument pozostáva z párov reťazcov filtra súborov, za ktorými nasleduje špecifikácia filtra súboru so zástupnými znakmi. Ak je tento argument vynechaný, predvolene sa použije toto:

Všetky súbory (*.*), *.*

2.1. Príklad kódu

Sub GetImportFileName()
    Dim Fininfo As String
    Dim FilterIndex As Long
    Dim Title As String
    Dim FileName As Variant

    ' Nastavte zoznam filtrov súborov
    FInfo = "Textové súbory (*.txt),*.txt," & _
            "Lotus Files (*.prn),*.prn," & _
            "Súbory oddelené čiarkou (*.csv),*.csv," & _
            "Súbory ASCII (*.asc),*.asc," & _
            "Všetky súbory (*.*),*.*"
    
    ' Štandardne zobraziť *.*
    FilterIndex = 5
    
    ' Nastavte nadpis dialógového okna
    Title = "Vyberte súbor na import"
    
    ' Získajte názov súboru
    FileName = Application.GetOpenFilename(FInfo, FilterIndex, Title)
    
    ' Spracovanie informácií o vrátení z dialógového okna
    If FileName = False Then
        MsgBox "Nebol vybratý žiadny súbor."
    Else
        MsgBox "Vybrali ste: " & FileName
    End If
End Sub
    

Toto je dialógové okno, ktoré Excel zobrazí po vykonaní tohto postupu. Vzhľad sa môže líšiť v závislosti od verzie systému Windows, ktorú používate.

Metóda GetOpenFilename zobrazí prispôsobiteľné dialógové okno a vráti cestu a názov vybratého súboru, ale neotvorí súbor. V skutočnej aplikácii by ste s názvom súboru urobili niečo zmysluplnejšie, napríklad ho otvoriť pomocou príkazu:

Workbooks.Open FileName

Všimnite si, že premenná FileName je deklarovaná ako typ údajov Variant. Ak používateľ klikne na tlačidlo Zrušiť, táto premenná obsahuje boolovskú hodnotu (False). V opačnom prípade je FileName reťazec. Preto použitie dátového typu Variant zvláda obe možnosti.