A VBA lehetővé teszi a megnyitni kívánt fájl kiválasztását a Application.GetOpenFilename módszer. Ebben az oktatóanyagban megtudhatja, hogyan kell megnyitni a fájl párbeszédpanelt és beállítani a paramétereket.
Ha meg szeretné tanulni, hogyan kell megnyitni és bezárni egy fájlt, kattintson erre a linkre: VBA Fájl megnyitása/bezárása
Nyisson meg egy fájl párbeszédpanelt a VBA -ban
Ha egy fájlt szeretne megnyitni a VBA -ban, először meg kell nyitnia egy fájl párbeszédpanelt a fájl kiválasztásához. Itt a kód:
| 123 | Dim strFile karakterlánckéntstrFile = Application.GetOpenFilename ( |
Mint látható, a módszer számos paraméterrel rendelkezik. FileFilter lehetővé teszi a szükséges fájltípusok szűrését, esetünkben .xlsx fájlokat.
Ban,-ben Cím paraméter, beállíthatja a párbeszédpanel címét. Ha engedélyezni szeretné több fájl megnyitását, be kell állítania MultiSelect Igaz. Ha nem állítja be ezt a paramétert, csak egy fájl választható ki.
Kép 1. Nyisson meg egy fájl párbeszédpanelt
Amint az 1. képen látható, megjelenik a párbeszédpanel a címmel Válasszon egy Excel fájlt. Csak az Excel fájlokat szűrjük, és több fájlt is kiválaszthatunk.
Nyisson meg egy fájl párbeszédpanelt egy adott mappában
Ha egy adott mappában szeretne megnyitni egy párbeszédpanelt, akkor ezt a módszert kell használnia .FileDialog paraméterrel msoFileDialogFilePicker. A példában megnyitunk egy párbeszédpanelt a mappában C: \ VBA mappa. Itt a kód:
| 123456789101112131415161718192021 | Dim fd Office.FileDialog névenDim strFile karakterlánckéntÁllítsa be az fd = Application.FileDialog (msoFileDialogFilePicker)Az fd -vel.Szűrők.Tiszta.Szűrők. Adja hozzá az "Excel fájlokat", "*.xlsx?", 1.Title = "Válasszon egy Excel fájlt".AllowMultiSelect = Hamis.InitialFileName = "C: \ VBA mappa"Ha .Mutassa = Igaz AkkorstrFile = .SelectedItems (1)Vége HaVége ezzel |
Először deklarálnia kell a változót fd típus Office.FileDialog és a karakterlánc változó a fájlkészítéshez:
| 12 | Dim fd Office.FileDialog névenDim strFile karakterláncként |
Ezek után be kell állítani fd nak nek Application.FileDialog (msoFileDialogFilePicker):
| 1 | Állítsa be az fd = Application.FileDialog (msoFileDialogFilePicker) |
Most, belül Fd End With -val, több paramétert is beállíthatunk:
| 1234567 | .Szűrők.Tiszta.Szűrők. Adja hozzá az "Excel fájlokat", "*.xlsx?", 1.Title = "Válasszon egy Excel fájlt".AllowMultiSelect = Hamis |
Itt töröljük a fájlszűrőket (.Szűrők.Tiszta), és állítsa be .xlsx (.Filters.Add "Excel Files", "*.xlsx?", 1).
Ezenkívül beállíthatjuk a párbeszédpanel címét: .Title = „Válasszon egy Excel fájlt”.
Korlátozhatjuk a felhasználót, hogy csak egy fájlt válasszon:.AllowMultiSelect = Hamis
A kívánt mappában egy párbeszédpanel megnyitásához be kell írnunk a kód következő sorát:
| 1 | .InitialFileName = "C: \ VBA mappa" |
A végén csak megnyitjuk a párbeszédpanelt az összes korábban beállított paraméterrel:
| 12345 | Ha .Mutassa = Igaz AkkorstrFile = .SelectedItems (1)Vége Ha |
Amikor végrehajtjuk ezt a kódot, megjelenik a fájl megnyitásához szükséges párbeszédpanel a mappában C: \ VBA mappa:
Kép 2. Nyisson meg egy fájl párbeszédpanelt egy adott mappában
