VBA: n avulla voit valita avattavan tiedoston käyttämällä Application.GetOpenFilename menetelmä. Tässä opetusohjelmassa opit avaamaan tiedostoikkunan ja asettamaan parametrit.
Jos haluat oppia avaamaan ja sulkemaan tiedoston, voit napsauttaa tätä linkkiä: VBA Avaa/sulje tiedosto
Avaa Tiedosto -valintaikkuna VBA: ssa
Jos haluat avata tiedoston VBA: ssa, sinun on ensin avattava tiedoston valintaikkuna tiedoston valitsemiseksi. Tässä on koodi:
| 123 | Dim strFile merkkijononastrFile = Application.GetOpenFilename ( |
Kuten näette, menetelmällä on useita parametreja. FileFilter voit suodattaa tarvitsemasi tiedostotyypit, tässä tapauksessa .xlsx -tiedostot.
Kohteessa Otsikko parametri, voit asettaa valintaikkunan otsikon. Jos haluat sallia useiden tiedostojen avaamisen, sinun on määritettävä UseitaValitse Tosi. Jos et määritä tätä parametria, voit valita vain yhden tiedoston.
Kuva 1. Avaa tiedostoikkuna
Kuten kuvassa 1 näkyy, valintaikkuna tulee näkyviin otsikon kanssa Valitse Excel -tiedosto. Vain Excel -tiedostot suodatetaan ja voimme valita useita tiedostoja.
Avaa Tiedosto -valintaikkuna tietyssä kansiossa
Jos haluat avata valintaikkunan tietyssä kansiossa, sinun on käytettävä menetelmää .FileDialog parametrin kanssa msoFileDialogFilePicker. Esimerkissä avaamme kansion valintaikkunan C: \ VBA -kansio. Tässä on koodi:
| 123456789101112131415161718192021 | Dim fd Office.FileDialoginaDim strFile merkkijononaAseta fd = Application.FileDialog (msoFileDialogFilePicker)Fd: n kanssa.Suodattimet.Suodattimet.Lisää "Excel -tiedostot", "*.xlsx?", 1.Title = "Valitse Excel -tiedosto".AllowMultiSelect = Väärä.InitialFileName = "C: \ VBA -kansio"Jos .Näytä = Tosi sittenstrFile = .SelectedItems (1)Loppu JosLopeta |
Ensin sinun on ilmoitettava muuttuja fd tyyppi Office.FileDialog ja merkkijonomuuttuja tiedostojen ottamista varten:
| 12 | Dim fd Office.FileDialoginaDim strFile merkkijonona |
Tämän jälkeen sinun on asetettava fd kohteeseen Application.FileDialog (msoFileDialogFilePicker):
| 1 | Aseta fd = Application.FileDialog (msoFileDialogFilePicker) |
Nyt sisällä Fd End With, voimme asettaa useita parametreja:
| 1234567 | .Suodattimet.Suodattimet.Lisää "Excel -tiedostot", "*.xlsx?", 1.Title = "Valitse Excel -tiedosto".AllowMultiSelect = Väärä |
Tässä tyhjennetään tiedostosuodattimet (.Suodattimet) ja aseta se .xlsx (.Filters.Add “Excel Files”, “*.xlsx?”, 1).
Voimme myös asettaa valintaikkunan otsikon: .Title = "Valitse Excel -tiedosto".
Voimme rajoittaa käyttäjän valitsemaan vain yhden tiedoston:.AllowMultiSelect = False
Jos haluat avata haluamasi kansion valintaikkunan, meidän on lisättävä tämä koodirivi:
| 1 | .InitialFileName = "C: \ VBA -kansio" |
Lopuksi avaamme vain valintaikkunan, jossa on kaikki aiemmin asetetut parametrit:
| 12345 | Jos .Näytä = Tosi sittenstrFile = .SelectedItems (1)Loppu Jos |
Kun suoritamme tämän koodin, tiedoston avaamisen valintaikkuna näkyy kansiossa C: \ VBA -kansio:
Kuva 2. Avaa tiedoston valintaikkuna tietyssä kansiossa
