GetOpenFilename metodes izmantošana programmā Excel 2016 VBA

Metode GetOpenFilename izmanto tālāk norādītos neobligātos argumentus.

GetOpenFilename piemērs

Arguments fileFilter nosaka, kas tiek rādīts dialoglodziņa nolaižamajā sarakstā Files of Type. Šis arguments sastāv no failu filtru virkņu pāriem, kam seko aizstājējzīmes faila filtra specifikācija ar komatiem, kas atdala katru daļu un pāri. Ja tas tiek izlaists, šis arguments pēc noklusējuma ir šāds:

Visi faili (*.*), *.*

Ņemiet vērā, ka šī virkne sastāv no divām daļām, kas atdalītas ar komatu:

Visi faili (*.*)

un

*.*

Šīs virknes pirmā daļa ir teksts, kas tiek parādīts nolaižamajā sarakstā Files of Type. Otrā daļa nosaka, kuri faili tiek parādīti dialoglodziņā. Piemēram, *.* nozīmē visus failus.

Kods šajā piemērā atver dialoglodziņu, kurā lietotājam tiek prasīts faila nosaukums. Procedūra nosaka piecus failu filtrus. Ņemiet vērā, ka mainīgā filtra iestatīšanai tiek izmantota VBA rindas turpinājuma secība; tas palīdz vienkāršot šo diezgan sarežģīto argumentu.

Sub GetImportFileName ()
  Dim Finfo As String
  Dim FilterIndex As Long
  Dim Title As String
  Dim Faila nosaukums kā variants
Iestatiet failu filtru sarakstu
  FIinfo = "Teksta faili (*.txt),*.txt" & _
      “Lotus Files (*.prn),*.prn” & _
      “Komatatdalītie faili (*.csv),*.csv” un _
      “ASCII faili (*.asc),*.asc” un _
      "Visi faili (*.*),*.*"
Pēc noklusējuma rādīt *.*
  Filtra indekss = 5
Iestatiet dialoglodziņa parakstu
  Title = “Atlasiet importējamo failu”
Iegūstiet faila nosaukumu
  FileName = Application.GetOpenFilename (FIinfo, _
    FilterIndex, Title)
Apstrādājiet atgriešanas informāciju no dialoglodziņa
  Ja FileName = False, tad
    MsgBox "Netika atlasīts neviens fails."
  Citādi
    MsgBox “Jūs atlasījāt “ & faila nosaukums
  Beigas Ja
Beigu apakš

Workbooks.Open FileName