Kako uporabljati metodo GetOpenFilename v Excelu 2016 VBA

Metoda GetOpenFilename sprejme spodnje izbirne argumente.

Primer GetOpenFilename

Argument fileFilter določa, kaj se prikaže na spustnem seznamu Files of Type v pogovornem oknu. Ta argument je sestavljen iz parov nizov filtra datotek, ki jim sledi specifikacija filtra datotek z nadomestnimi znaki, z vejicami, ki ločujejo vsak del in par. Če je izpuščen, je ta argument privzeto naslednji:

Vse datoteke (*.*), *.*

Upoštevajte, da je ta niz sestavljen iz dveh delov, ločenih z vejico:

Vse datoteke (*.*)

in

*.*

Prvi del tega niza je besedilo, prikazano na spustnem seznamu Files of Type. Drugi del določa, katere datoteke prikaže pogovorno okno. Na primer, *.* pomeni vse datoteke.

Koda v naslednjem primeru odpre pogovorno okno, ki uporabnika vpraša za ime datoteke. Postopek definira pet filtrov datotek. Upoštevajte, da se za nastavitev spremenljivke Filter uporablja zaporedje nadaljevanja vrstice VBA; to pomaga poenostaviti ta precej zapleten argument.

Sub GetImportFileName ()
  Dim Finfo kot niz
  Dim FilterIndex As Long
  Dim Title kot niz
  Dim FileName kot različica
' Nastavite seznam filtrov datotek
  FInfo = »Besedilne datoteke (*.txt),*.txt« & _
      »Datoteke Lotus (*.prn),*.prn« & _
      »Datoteke, ločene z vejico (*.csv),*.csv« & _
      »Datoteke ASCII (*.asc),*.asc« & _
      "Vse datoteke (*.*),*.*"
' Privzeto prikaži *.*
  Indeks filtra = 5
' Nastavite napis pogovornega okna
  Naslov = "Izberite datoteko za uvoz"
' Pridobite ime datoteke
  Ime datoteke = Application.GetOpenFilename (FInfo, _
    FilterIndex, Naslov)
' Obravnava povratne informacije iz pogovornega okna
  Če je Ime datoteke = False, potem
    MsgBox "Nobena datoteka ni bila izbrana."
  Drugače
    MsgBox »Izbrali ste« & Ime datoteke
  Konec Če
Končni sub

Delovni zvezki. Odprite FileName