Selles artiklis loome makro, mis avab mitme faili avamiseks faili dialoogiboksi.
Oleme mitme faili avamiseks loonud makro “open_multiple_file”. Kasutaja saab makro käivitamiseks klõpsata nupul „Ava mitu faili”.
Loogiline seletus
Oleme mitme faili avamiseks loonud makro “open_multiple_file”. Kasutaja saab makro käivitamiseks klõpsata nupul „Ava mitu faili”. See avab faili dialoogiboksi, kust kasutaja saab valida mitu Exceli faili, mida ta soovib avada.
Kui kõik failid on valitud, klõpsake kõigi valitud failide avamiseks nuppu "OK".
Koodi selgitus
Application.FileDialog (msoFileDialogFilePicker)
Ülaltoodud koodi kasutatakse faili dialoogiboksi avamiseks.
.AllowMultiSelect = Tõsi
Ülaltoodud koodis on atribuut AllowMultipleSelect määratud tõeseks, et lubada failide dialoogiboksis mitu valikut.
.Filtrid. Lisage "Exceli failid", "*.xls*"
Ülalolevas koodis on faili dialoogiboksi filter seatud valima ainult Exceli failid.
Kui .Näita = Tõsi siis
Ülaltoodud koodi abil kontrollitakse, kas kasutaja vajutab faili dialoogiboksis nuppu OK või Tühista.
Töövihikud. Avatud .SelectedItems (i)
Ülaltoodud koodi kasutatakse valitud Exceli faili avamiseks.
Palun järgige koodi allpool
Valik Selgesõnaline alam open_multiple_file () Dim i As Integer 'Dialoogiboksi Fail avamine rakendusega Application.FileDialog (msoFileDialogFilePicker)' Mitme faili lubamine valige .AllowMultiSelect = True .Filters.Clear 'Valida saab ainult Exceli faile .Filters.Add "Excel Files" , "*.xls*" If .Show = True Siis i = 1 To .SelectedItems.Count 'Valitud faili töövihikute avamine. Ava
Kui teile see blogi meeldis, jagage seda oma sõpradega Facebookis. Lisaks saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd paremaks muuta ja teie jaoks paremaks muuta. Kirjuta meile meilisaidile