Tässä artikkelissa luomme makron avaamaan useita tiedostoja tiedoston valintaikkunan avulla.
Olemme luoneet makron "open_multiple_file" useiden tiedostojen avaamiseksi. Käyttäjä voi suorittaa makron napsauttamalla "Avaa useita tiedostoja" -painiketta.
Looginen selitys
Olemme luoneet makron "open_multiple_file" useiden tiedostojen avaamiseksi. Käyttäjä voi suorittaa makron napsauttamalla "Avaa useita tiedostoja" -painiketta. Se avaa tiedoston valintaikkunan, josta käyttäjä voi valita useita Excel -tiedostoja, jotka hän haluaa avata.
Kun kaikki tiedostot on valittu, avaa kaikki valitut tiedostot napsauttamalla “OK” -painiketta.
Koodin selitys
Application.FileDialog (msoFileDialogFilePicker)
Yllä olevaa koodia käytetään tiedoston valintaikkunan avaamiseen.
.AllowMultiSelect = Totta
Yllä olevassa koodissa AllowMultipleSelect -ominaisuus on asetettu tosi -asentoon, jotta useat valinnat voidaan ottaa käyttöön tiedoston valintaikkunassa.
.Suodattimet.Lisää "Excel -tiedostot", "*.xls*"
Yllä olevassa koodissa tiedoston suodatin -valintaikkuna on asetettu valitsemaan vain Excel -tiedostot.
Jos .Näytä = Tosi sitten
Yllä olevaa koodia käytetään tarkistamaan, painaako käyttäjä ”OK” tai “Peruuta” -painiketta tiedoston valintaikkunassa.
Työkirjat.Avaa .SelectedItems (i)
Yllä olevaa koodia käytetään valitun Excel -tiedoston avaamiseen.
Seuraa koodia alla
Vaihtoehto Explicit Sub open_multiple_file () Dim i As Integer 'Tiedoston avaaminen -valintaikkuna Application.FileDialog (msoFileDialogFilePicker)' Useiden tiedostojen ottaminen käyttöön Valitse .AllowMultiSelect = True .Filters.Clear 'Vain Excel -tiedostot voidaan valita .Filters.Add "Excel Files" ,*.
Jos pidit tästä blogista, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse