Excel VBA FileDialog

A munka közben előfordulhat, hogy néhány adatfüzetet vagy más fájlt kell megnyitnunk, akár adat importálására, akár hivatkozás készítésére. Az egyik módszer a fájl elérési útjának megadására a VBA-kódban, amely megnyitja nekünk a fájlt vagy a mappát. De mi van, ha nem emlékszünk az útvonalra, hogyan lehet megnyitni a fájlt. Előfordulhat, hogy először meg kell keresnünk az utat, majd újra meg kell adnunk az utat. A VBA egy FileDialog néven ismert megoldással rendelkezik.

A FileDialog egy olyan tulajdonság a VBA-ban, amely lehetővé teszi fájl vagy mappa megnyitását egy elérési útból. Ennek a tulajdonságnak a felhasználásával a felhasználónak nem kell megadnia a mappa elérési útját, hanem a felhasználó választhatja ki az elérési utat. Nem csak ez, a FileDialog összesen négy tulajdonsággal rendelkezik. Ezen tulajdonság állandóiként is ismertek. Ezek a következők:

  1. msoFileDialogFilePicker : Ez lehetővé teszi a felhasználó számára a fájl kiválasztását.
  2. msoFileDialogFolderPicker : Ez lehetővé teszi a felhasználó számára, hogy válasszon egy mappát.
  3. msoFileDialogOpen : Ez lehetővé teszi a felhasználó számára egy fájl megnyitását.
  4. msoFileDialogSaveAs: Ez lehetővé teszi a felhasználó számára a fájl mentését.

Ennek az objektumnak a VBA-ban történő használatának módja a következő.

Application.FIledialog (Filedialog típus)

A FileDialog típus a fenti négy típus közül bármelyik lehet. Most használjuk ezt az objektumot példákban az objektum tulajdonságának tisztázása érdekében.

Hogyan kell használni az Excel VBA FileDialog fájlt?

Az alábbiakban bemutatjuk a különféle példákat a FileDialog használatához Excelben VBA-kóddal.

Itt töltheti le a VBA FileDialog Excel sablont - VBA FileDialog Excel sablon

Excel VBA FileDialog - 1. példa

Először hadd segítsünk a felhasználónál a fájl kiválasztásában a rendeltetési helyről. Ebben a példában a felhasználó kiválaszt egy fájlt a mappából, és megmutatjuk a kiválasztott fájl elérési útját.

Az Excel VBA FileDialog használatához kövesse az alábbi lépéseket:

1. lépés: Lépjen a Fejlesztők fülre, és kattintson a Visual Basic elemre .

2. lépés: Nyissa meg a modult a Beszúrás menüből az alább látható módon.

3. lépés: Indítsa el az alfolyamatot, hogy elkezdjen példát.

Kód:

 Sub SelectFile () Sub befejezése

4. lépés: Nyisson meg egy változót Filedialog néven, az alább látható módon.

Kód:

 Sub SelectFile () Fájlok tompítása mint FileDialog End Sub

5. lépés: Most használjuk ezt az objektumot az Application.Filedialog módszerből, az alábbiak szerint.

6. lépés: Miután kinyitottuk a zárójelet, láthatjuk a négy FileDialog típusú opciót, az ábra szerint.

7. lépés: Válassza ki a Filedialog típus msoFileDialogFilePicker néven opcióját

Kód:

 Sub SelectFile () Dim File as FileDialog Set File = Application.FileDialog (msoFileDialogFilePicker) End Sub

8. lépés: Most el kell készítenünk a példa párbeszédpaneljét, használjuk a Nyilatkozatot az alábbiak szerint.

Kód:

 Sub SelectFile () Dim File as FileDialog Set File = Application.FileDialog (msoFileDialogFilePicker) With File End With End Sub

9. lépés: Ha vannak szűrők, ki kell törölnünk a szűrőket, tegyünk egy pontnyilatkozatot, és írjuk az állítást az alábbiak szerint.

Kód:

 Sub SelectFile () Dim File as FileDialog Set File = Application.FileDialog (msoFileDialogFilePicker) With File .Filters.Clear End With End Sub

10. lépés: Most azt akarja, hogy a felhasználó egyszerre több fájlt vagy egyetlen fájlt válasszon ki? Ebben a példában ragaszkodjunk az egyetlen fájlhoz egyszerre, tehát az .Allowmultiselect tévesnek kell lennie.

Kód:

 Sub SelectFile () Halvány fájl mint FileDialog Állítsa be a fájlt = Application.FileDialog (msoFileDialogFilePicker) A .Filters.Clear .AllowMultiSelect = False End with End Sub fájllal.

11. lépés: A párbeszédpanel megjelenítéséhez írhatunk .show-t, hogy a következőképpen jelenítsük meg a párbeszédpanelt.

Kód:

 Sub SelectFile () tompított fájl mint FileDialog Állítsa be a fájlt = Application.FileDialog (msoFileDialogFilePicker) a .Filters.Clear .AllowMultiSelect = False fájllal.

12. lépés: A fenti kód végrehajtása után a következőképpen láthatjuk a párbeszédpanelt.

13. lépés: Mivel meg kell jelenítenünk a kiválasztott felhasználói útvonalat, deklaráljunk egy másik változót karakterlánccal a kódban.

Kód:

 Sub SelectFile () Halvány fájl mint FileDialog Halvány út mint karakterlánckészlet Fájl = Application.FileDialog (msoFileDialogFilePicker) Fájl .Filters.Clear .AllowMultiSelect = Hamis.

14. lépés: Kiválasztott elemek utasításával fogjuk megtalálni a kiválasztott fájl felhasználó elérési útját, és a következőképpen tároljuk a változóban.

Kód:

 Sub SelectFile () Halvány fájl mint FileDialog Halvány út mint karakterlánckészlet Fájl = Application.FileDialog (msoFileDialogFilePicker) File .Filters.Clear .AllowMultiSelect = False .Mutatás elérési útja = .SelectedItems (1) befejezésével az alsó rész végével

15. lépés: A Nyilatkozat után használja az msgbox funkciót a kiválasztott fájl címének megjelenítéséhez.

Kód:

 Sub SelectFile () Halvány fájl mint FileDialog Halvány út mint karakterlánckészlet Fájl = Application.FileDialog (msoFileDialogFilePicker) Fájl .Filters.Clear .AllowMultiSelect = Hamis .Mutatási út = .SelectedItems (1) befejezése MsgBox elérési út végével Sub

16. lépés: Végezzük el a fenti kódot, válasszunk ki egy fájlt, és nyomjuk meg az ok gombot, hogy az elérési út a következő legyen.

Excel VBA FileDialog - 2. példa

Most nézzük meg a VBA FileDialog objektum másik lehetőségét, amely az msoFileDialogSaveAs. Ez a tulajdonság egy fájl mentésére szolgál bármely útvonalon. Az Excel VBA FileDialog használatához kövesse az alábbi lépéseket.

1. lépés: Ugyanazon modulban írjunk egy másik al eljárást a fájl mentéséhez az alábbiak szerint.

Kód:

 Sub SaveFile () Sub

2. lépés: Jelentsen be két változót egyikként karakterlánccal, a másik egésztel.

Kód:

 Sub SaveFile () Dim Choice As Egger, Path As String End Sub

3. lépés: Most tegyük láthatóvá a párbeszédpanelt a felhasználó számára a show tulajdonság felhasználásával, az alábbiak szerint.

Kód:

 Sub SaveFile () Dim Choice egész szám, Elérés String Choice = Application.FileDialog (msoFileDialogSaveAs) .Show befejezése Sub

4. lépés: Most használja az IF utasítást a felhasználó választásának meghatározásához az alábbiak szerint.

Kód:

 Sub SaveFile () Dim Choice egész szám, Elérés String Choice = Application.FileDialog (msoFileDialogSaveAs) .Mutatja, ha a Choice 0, majd vége az Sub

5. lépés: Most kapjuk meg a felhasználó által kiválasztott utat az elérési útváltozónkban, az alábbiak szerint.

Kód:

 Sub SaveFile () Dim Choice egész számként, Path as String Choice = Alkalmazás.FileDialog (msoFileDialogSaveAs) .Mutatja, ha a választás 0, majd Útvonal = Alkalmazás.FileDialog (msoFileDialogSaveAs) .SelectedItems (1) Befejezés Al

6. lépés: Most mutassa meg az eredményt az msgbox funkció használatával, és fejezze be az IF hurkot.

Kód:

 Sub SaveFile () Dim Choice egész számként, Path as String Choice = Alkalmazás.FileDialog (msoFileDialogSaveAs) .Mutatja, ha Choice 0, majd Path = Application.FileDialog (msoFileDialogSaveAs) .SelectedItems (1) MsgBox elérési út vége, ha a rész vége

7. lépés: Most hajtsa végre a fenti kódot, és látja az eredményt, és megnyílik egy párbeszédpanel a fájl mentéséhez.

8. lépés: Adjon meg egy fájlnevet, és nyomja meg a Mentés gombot. Ez megadja a fájl elérési útját az alábbiak szerint.

Dolgok, amikre emlékezni kell

  • A FileDialog a VBA objektumtulajdonsága.
  • Nem kell megadnunk a kód elérési útját az objektum használatával.
  • A dot operátor segítségével láthatjuk és felhasználhatjuk az objektum IntelliSense tulajdonságait.

Ajánlott cikkek

Ez a VBA FileDialog útmutatója. Itt tárgyaljuk, hogyan lehet a FileDialog objektumot Excelben használni VBA-kóddal, néhány gyakorlati példával és letölthető Excel sablonnal együtt. Megnézheti más javasolt cikkeinket -

  1. A VBA ellenőrző fájl létezik
  2. Oldja meg az egyenletet Excelben
  3. VBA Fájl törlése
  4. Hogyan nyomtathatunk címkéket az Excelből?
  5. Példák VBA kód írására

Kategória:

VBA