Excel VBA FileDialog

Med delom lahko obstajajo nekateri scenariji, ko moramo odpreti nekatere druge delovne zvezke ali druge datoteke bodisi za uvoz podatkov bodisi za sklicevanje. Obstaja ena metoda za zagotavljanje poti datoteke v naši kodi v VBA, ki bo odprla datoteko ali mapo za nas. Kaj pa, če se ne spomnimo poti, kako lahko odpremo datoteko. Morda bomo morali najprej iskati pot in nato spet zagotoviti pot. VBA ponuja rešitev, ki je znana kot FileDialog.

FileDialog je lastnost v VBA, ki nam omogoča, da odpremo datoteko ali mapo s poti. Z uporabo te lastnosti uporabniku ni treba določiti poti mape, temveč lahko uporabnik izbere pot. FileDialog ne samo to, ima skupaj štiri lastnosti. Znane so tudi kot konstante za to nepremičnino. To so:

  1. msoFileDialogFilePicker : To uporabniku omogoča izbiro datoteke.
  2. msoFileDialogFolderPicker : To uporabniku omogoča izbiro mape.
  3. msoFileDialogOpen : To uporabniku omogoča odpiranje datoteke.
  4. msoFileDialogSaveAs: To uporabniku omogoča shranjevanje datoteke.

Način uporabe tega predmeta v VBA je naslednji.

Application.FIledialog (vrsta datotekedijalog)

Vrsta FileDialog je lahko katera koli od zgornjih štirih vrst. Zdaj uporabimo ta predmet v primerih, da se bolj jasno seznanimo s to lastnostjo predmeta.

Kako uporabljati Excel VBA FileDialog?

Spodaj so različni primeri uporabe FileDialog v Excelu z uporabo kode VBA.

To predlogo VBA FileDialog Excel lahko prenesete tukaj - VBA Predloga FileDialog Excel

Excel VBA FileDialog - Primer 1

Najprej pomagamo uporabniku, da izbere datoteko s cilja. V tem primeru bo uporabnik izbral datoteko iz mape in prikazali bomo pot do izbrane datoteke.

Če želite uporabiti excel VD FileDialog, sledite spodnjim korakom:

1. korak: Pojdite na zavihek Developers in kliknite na Visual Basic.

2. korak: Odprite modul v meniju Vstavi, kot je prikazano spodaj.

3. korak: Zaženite podprocesuro, da začnete delati na primeru.

Koda:

 Sub SelectFile () Konec pod

4. korak: Označite spremenljivko kot Filedialog, kot je prikazano spodaj.

Koda:

 Pod SelectFile () Dimna datoteka kot FileDialog End Sub

5. korak: Zdaj uporabimo ta predmet iz metode Application.Filedialog, kot sledi.

Korak 6: Ko odpremo oklepaje, lahko vidimo možnost za štiri vrste FileDialog, kot je prikazano na spodnji sliki.

7. korak: Izberite možnost vrste Filedialog kot msoFileDialogFilePicker

Koda:

 Pod SelectFile () Dima datoteka kot FileDialog Set File = Application.FileDialog (msoFileDialogFilePicker) End Sub

Korak 8: Zdaj moramo narediti pogovorno okno za ta primer, uporabimo pa z Izjavo, kot sledi.

Koda:

 Pod SelectFile () Dimna datoteka kot FileDialog nastavi datoteko = Application.FileDialog (msoFileDialogFilePicker) s končnico datoteke s končnim pod

9. korak: Če obstajajo kakšni filtri, jih moramo očistiti, vstaviti izjavo s piko in napisati izjavo, kot je prikazano spodaj.

Koda:

 Pod SelectFile () Dimna datoteka kot FileDialog nastavi datoteko = Application.FileDialog (msoFileDialogFilePicker) z datoteko .Filters.Clear End s konec Sub

10. korak: Ali želimo, da uporabnik izbere več datotek hkrati ali eno datoteko? Za ta primer se držimo posamezne datoteke hkrati, zato uporabite .Allowmultiselect kot napačno.

Koda:

 Pod SelectFile () Dimna datoteka kot FileDialog nastavi datoteko = Application.FileDialog (msoFileDialogFilePicker) z datoteko .Filters.Clear .AllowMultiSelect = False End with End Sub

Korak 11: Zdaj, da se prikaže pogovorno okno, ki ga lahko napišemo. Pokažemo, da se pogovorno okno prikaže na naslednji način.

Koda:

 Pod SelectFile () Dimna datoteka kot FileDialog nastavi datoteko = Application.FileDialog (msoFileDialogFilePicker) z datoteko .Filters.Clear .AllowMultiSelect = False. Pokaži konec s končnim pod

12. korak: Ko izvedemo zgornjo kodo, lahko vidimo pogovorno okno, kot sledi.

Korak 13: Ker moramo prikazati izbrano pot uporabnika, označimo še eno spremenljivko kot niz v kodi.

Koda:

 Pod SelectFile () Zatemnjena datoteka kot FileDialog Dim pot kot niz String Set File = Application.FileDialog (msoFileDialogFilePicker) z datoteko .Filters.Clear .AllowMultiSelect = False. Pokaži konec s konec Sub

14. korak: Z izbranim stanjem bomo uporabili stavek za izbranega uporabnika datoteke in ga shranili v našo spremenljivko na naslednji način.

Koda:

 Pod SelectFile () Dim datoteka kot FileDialog Dim Path as String Set File = Application.FileDialog (msoFileDialogFilePicker) z datoteko .Filters.Clear .AllowMultiSelect = False .Show Path = .SelectedItems (1) End with End Sub

Korak 15: Po uporabi izjave uporabite funkcijo msgbox za prikaz naslova izbrane datoteke.

Koda:

 Pod SelectFile () Dim File kot FileDialog Dim Path as String Set File = Application.FileDialog (msoFileDialogFilePicker) z datoteko .Filters.Clear .AllowMultiSelect = False .Show Path = .SelectedItems (1) Konča se z MsgBox Path End Sub

16. korak: Izvedemo zgornjo kodo in izberemo datoteko ter pritisnemo ok, da vidimo pot, kot sledi.

Excel VBA FileDialog - primer # 2

Zdaj si oglejmo še eno možnost objekta VBA FileDialog, ki je msoFileDialogSaveAs. Ta lastnost se uporablja za shranjevanje datoteke na katero koli pot. Sledite spodnjim korakom za uporabo odličnega VBA FileDialog.

Korak 1: V isti modul napišemo še en postopek, da shranimo datoteko na naslednji način.

Koda:

 Sub SaveFile () Konec Sub

2. korak: Zdaj dve deklaraciji spremenite kot niz, drugi pa kot celo število.

Koda:

 Sub SaveFile () Dim Choice As Integer, Pot kot String End Sub

3. korak: Zdaj omogočimo, da bo pogovorno okno vidno za uporabnika z uporabo lastnosti show na naslednji način.

Koda:

 Pod SaveFile () Dim izbire kot celoten, pot kot izbira niza = Application.FileDialog (msoFileDialogSaveAs). Pokaži konec pod

4. korak: Zdaj uporabite stavek IF, da določite izbiro uporabnika na naslednji način.

Koda:

 Pod SaveFile () Zatemnitev izbire kot celost, pot kot izbira nizov = Application.FileDialog (msoFileDialogSaveAs). Pokaži, če izbira 0, nato pa končaj Sub

Korak 5: Zdaj bomo v naši spremenljivki poti izbrali pot, ki jo je uporabnik izbral na naslednji način.

Koda:

 Pod SaveFile () Dim izbira kot celoten, pot kot izbira nizov = Application.FileDialog (msoFileDialogSaveAs). Pokaži, če je izbira 0 Potem Path = Application.FileDialog (msoFileDialogSaveAs) .SelectedItems (1) End Sub

6. korak: Zdaj prikažemo rezultat s funkcijo msgbox in zaključimo IF Loop.

Koda:

 Pod SaveFile () Dim izbira kot celoten, pot kot izbira nizov = Application.FileDialog (msoFileDialogSaveAs). Pokaži, če je izbira 0 Potem Path = Application.FileDialog (msoFileDialogSaveAs) .SelectedItems (1) MsgBox Path End Če konec Sub

7. korak: Zdaj izvedite zgornjo kodo in si oglejte rezultat, odpre pogovorno okno za shranjevanje datoteke.

Korak 8: Vnesite ime datoteke in pritisnite Save, da nam bo podala pot za datoteko, kot sledi.

Stvari, ki jih je treba zapomniti

  • FileDialog je lastnost predmeta VBA.
  • Ni treba določiti poti do kode s tem objektom.
  • S pomočjo operaterja pik lahko vidimo in uporabimo lastnosti predmeta IntelliSense.

Priporočeni članki

To je vodnik za datoteko VBA FileDialog. Tukaj razpravljamo o uporabi predmeta FileDialog v Excelu z uporabo kode VBA skupaj z nekaj praktičnimi primeri in naloženo predlogo excela. Ogledate si lahko tudi druge naše predlagane članke -

  1. VBA Preverite datoteko
  2. Rešite enačbo v Excelu
  3. VBA Izbriši datoteko
  4. Kako tiskati nalepke iz Excela?
  5. Primeri za pisanje kode VBA

Kategorija:

VBA