Excel VBA FileDialog

Töötamise ajal võib esineda stsenaariume, kus peame andmete importimiseks või viite saamiseks avama mõned muud töövihikud või muud failid. Faili tee sisestamiseks meie koodis VBA-s on üks meetod, mis avab faili või kausta meie jaoks. Mis juhtuks, kui me ei mäleta seda rada, kuidas saaksime faili avada. Võimalik, et peame kõigepealt otsima selle tee ja seejärel uuesti selle pakkuma. VBA-ga on kaasas lahendus, mida tuntakse nimega FileDialog.

FileDialog on VBA atribuut, mis võimaldab meil avada teelt faili või kausta. Selle atribuudi kasutamisel ei pea kasutaja määrama kausta teed, selle asemel saab kasutaja selle valida. Mitte ainult see, FileDialog on kokku neli omadust. Neid nimetatakse ka selle omaduse konstantideks. Need on järgmised:

  1. msoFileDialogFilePicker : See võimaldab kasutajal faili valida.
  2. msoFileDialogFolderPicker : See võimaldab kasutajal valida kausta.
  3. msoFileDialogOpen : See võimaldab kasutajal faili avada.
  4. msoFileDialogSaveAs: See võimaldab kasutajal faili salvestada.

Selle objekti kasutamise meetod VBA-s on järgmine.

Application.FIledialog (Filedialogi tüüp)

FileDialogi tüüp võib olla ükskõik milline ülaltoodud neljast tüübist. Kasutagem nüüd seda objekti näidetes, et selle objekti omadusi selgemalt tundma õppida.

Kuidas kasutada programmi Excel VBA FileDialog?

Allpool on toodud erinevad näited FileDialogi kasutamiseks Excelis, kasutades VBA-koodi.

Selle VBA FileDialog Exceli malli saate alla laadida siit - VBA FileDialog Exceli mall

Excel VBA FileDialog - näide # 1

Esiteks aitame kasutajal valida sihtkoha hulgast fail. Selles näites valib kasutaja kaustast faili ja me kuvame valitud faili tee.

Exceli VBA FileDialogi kasutamiseks toimige järgmiselt.

1. samm: minge vahekaardile Arendajad ja klõpsake nuppu Visual Basic.

2. samm: avage moodul menüüst Insert (Lisa), nagu allpool näidatud.

3. samm: näite kallal töötamiseks käivitage alamprotsess.

Kood:

 Alamvaliku fail () Lõpeta alam

4. samm: kuulutage muutuja faililogina nagu näidatud allpool.

Kood:

 AlamvalikFail () Dim File as FileDialog End Sub

5. samm: Kasutagem nüüd seda rakenduse Application.Filedialog meetodit järgmiselt.

6. samm: kui oleme sulud avanud, näeme nelja FileDialogi tüübi võimalust, nagu on näidatud alloleval pildil.

7. samm: valige suvandiks Filedialog type msoFileDialogFilePicker

Kood:

 AlamvalikFail () Dim-fail failina FileDialog Määra fail = rakendus.FileDialog (msoFileDialogFilePicker) Lõpeta alamfail

8. samm: nüüd peame tegema selle näite jaoks dialoogiboksi, kasutagem seda koos avaldusega järgmiselt.

Kood:

 AlamvalikFail () Dim-fail failina FileDialog Määra fail = rakendus.FileDialog (msoFileDialogFilePicker), mille fail lõpeb alamkaustaga

9. samm: kui teil on filtreid, peame filtrid tühjendama, panema punktilause ja kirjutama väljavõtte, nagu allpool näidatud.

Kood:

 Alamvaliku failFail () Dim-fail failina FileDialog Määra fail = rakendus.FileDialog (msoFileDialogFilePicker) koos failiga .Filters.Clear End with End Sub

10. samm: kas me soovime, et kasutaja valiks mitu faili korraga või ühe faili? Selle näite puhul jäägem ühe faili juurde korraga, nii et kasutage .Allowmultiselect valet.

Kood:

 AlamvalikFail () Tühjenda fail failinaDialog Määra fail = rakendus.FileDialog (msoFileDialogFilePicker) koos failiga .Filters.Clear .AllowMultiSelect = Vale lõpp alammenüüga

11. samm. Dialoogiboksi kuvamiseks võime kirjutada .show, et näidata dialoogiboksi järgmiselt.

Kood:

 AlamvalikFail () Tühjenda fail failinaDialog Set File = Application.FileDialog (msoFileDialogFilePicker) With File .Filters.Clear .AllowMultiSelect = False .Show End with End Sub

12. samm: Kui oleme ülaltoodud koodi käivitanud, näeme dialoogiboksi järgmiselt.

13. samm: kuna peame kuvama valitud kasutaja tee, kuulutage koodis stringina mõni muu muutuja.

Kood:

 AlamvalikFail () Pimendusfail failinaDialog Pimendusraam stringikomplektina Fail = Application.FileDialog (msoFileDialogFilePicker) koos failiga .Filters.Clear .AllowMultiSelect = Vale .Show End with End Sub

14. samm. Valitud faili kasutaja tee leidmiseks kasutame valitud üksuse avaldust ja salvestame selle oma muutujasse järgmiselt.

Kood:

 Alamvaliku failFail () Pimendusfail failinaDialog Pimendusrada stringina Määra fail = Application.FileDialog (msoFileDialogFilePicker) koos failiga .Filters.Clear .AllowMultiSelect = False .Show Path = .SelectedItems (1) End with End Sub

15. samm. Pärast väljavõttega Koos avaldusega kasutage valitud faili aadressi kuvamiseks funktsiooni msgbox.

Kood:

 AlamvalikFail () Tühjenda fail failinaDialog Tühjenda tee stringina Määra fail = Application.FileDialog (msoFileDialogFilePicker) koos failiga .Filters.Clear .AllowMultiSelect = False .Show Path = .SelectedItems (1) End with MsgBox Path End Sub

16. samm: käivitagem ülaltoodud kood ja valige fail ja vajutage ok, et näha rada järgmiselt.

Excel VBA FileDialog - näide # 2

Nüüd vaatame objekti VBA FileDialog teist võimalust, mis on msoFileDialogSaveAs. Seda omadust kasutatakse faili salvestamiseks mis tahes teele. Exceli VBA FileDialogi kasutamiseks toimige järgmiselt.

1. samm: kirjutage samas moodulis teine ​​alamprotseduur faili salvestamiseks järgmiselt.

Kood:

 Alam SalvestaFail () Lõpeta alam

2. samm: kuulutage nüüd kaks muutujat ühena stringina ja teist täisarvuna.

Kood:

 Alam SalvestaFail () Tühjenda valik täisarvuna, Tee kui string Lõpp-alam

3. samm: Tehke nüüd dialoogiboks kasutajale nähtavaks, kasutades kuvamisomadust järgmiselt.

Kood:

 Alam SalvestaFail () Tühjendage valik täisarvuna, Teekond kui stringi valik = Rakendus.FileDialog (msoFileDialogSaveAs) .Show End Sub

4. samm: kasutage IF-lause abil kasutaja valiku järgmiselt.

Kood:

 Alam SalvestaFail () Tühjendage valik täisarvuna, Teekond kui stringi valik = Rakendus.FileDialog (msoFileDialogSaveAs) .Näita, kui valik on 0, siis lõpeta alamhulk

5. samm: saagem nüüd kasutaja valitud tee meie muutujasse järgmiselt.

Kood:

 Alam SalvestaFail () Tühjendage valik täisarvuna, Teekond kui stringi valik = Application.FileDialog (msoFileDialogSaveAs) .Näita valikut Choice 0 Siis Path = Application.FileDialog (msoFileDialogSaveAs) .SelectedItems (1) End Sub

6. samm: Nüüd kuvame tulemuse, kasutades funktsiooni msgbox, ja lõpetage IF-silmus.

Kood:

 Alam SalvestaFail () Tühjendage valik täisarvuna, Teekond kui stringi valik = Rakendus.FailDialog (msoFileDialogSaveAs) .Näita valikut Choice 0 Siis Path = Application.FileDialog (msoFileDialogSaveAs) .SelectedItems (1) MsgBox Path End End End Sub Sub End

7. samm. Nüüd käivitage ülaltoodud kood ja vaadake tulemust. Faili salvestamiseks avatakse dialoogiboks.

8. samm: andke failinimi ja vajutage Salvesta, et saada meile faili tee järgmiselt.

Asjad, mida meeles pidada

  • FileDialog on VBA objekti omadus.
  • Me ei pea selle objekti abil koodi määrama.
  • Punktioperaatori abil näeme ja saame kasutada objekti IntelliSense'i omadusi.

Soovitatavad artiklid

See on VBA FileDialogi juhend. Siin arutatakse, kuidas kasutada FileDialogi objekti Excelis, kasutades VBA-koodi, koos mõnede praktiliste näidete ja allalaaditava excelimalliga. Võite vaadata ka meie teisi soovitatud artikleid -

  1. VBA kontrollfail on olemas
  2. Lahendage võrrand Excelis
  3. VBA Kustuta fail
  4. Kuidas printida silte Excelist?
  5. Näited VBA koodi kirjutamiseks

Kategooria:

VBA