Jak používat metodu GetOpenFilename v aplikaci Excel 2016 VBA

Metoda GetOpenFilename přebírá volitelné argumenty níže.

Příklad GetOpenFilename

Argument fileFilter určuje, co se zobrazí v rozevíracím seznamu Soubory typu dialogového okna. Tento argument se skládá z párů řetězců filtru souborů následovaných specifikací filtru souboru se zástupnými znaky s čárkami oddělujícími každou část a pár. Pokud je tento argument vynechán, výchozí hodnota je následující:

Všechny soubory (*.*), *.*

Všimněte si, že tento řetězec se skládá ze dvou částí oddělených čárkou:

Všechny soubory (*.*)

a

*.*

První část tohoto řetězce je text zobrazený v rozevíracím seznamu Soubory typu. Druhá část určuje, které soubory dialogové okno zobrazí. Například *.* znamená všechny soubory.

Kód v následujícím příkladu otevře dialogové okno, které uživatele požádá o název souboru. Postup definuje pět filtrů souborů. Všimněte si, že sekvence pokračování řádku VBA se používá k nastavení proměnné Filtr; když to uděláte, pomůže to zjednodušit tento poměrně komplikovaný argument.

Sub GetImportFileName ()
  Dim Fininfo As String
  Dim FilterIndex As Long
  Ztlumit název jako řetězec
  Dim FileName as Variant
' Nastavte seznam filtrů souborů
  FInfo = “Textové soubory (*.txt),*.txt,” & _
      "Lotus Files (*.prn),*.prn," & _
      "Comma Separated Files (*.csv),*.csv," & _
      "Soubory ASCII (*.asc),*.asc," & _
      "Všechny soubory (*.*),*.*"
' Ve výchozím nastavení zobrazit *.*
  Index filtru = 5
' Nastavte titulek dialogového okna
  Title = „Vyberte soubor k importu“
'Získejte název souboru
  FileName = Application.GetOpenFilename (FInfo, _
    FilterIndex, Title)
' Zpracovat návratové informace z dialogového okna
  If FileName = False Then
    MsgBox "Nebyl vybrán žádný soubor."
  Jiný
    MsgBox „Vybrali jste“ & FileName
  End If
End Sub

Workbooks.Open FileName