Šajā rakstā mēs izveidosim makro, lai atvērtu vairākus failus ar failu dialoglodziņu.
Mēs esam izveidojuši makro “open_multiple_file”, lai atvērtu vairākus failus. Lai palaistu makro, lietotājs var noklikšķināt uz pogas “Atvērt vairākus failus”.
Loģisks skaidrojums
Mēs esam izveidojuši makro “open_multiple_file”, lai atvērtu vairākus failus. Lai palaistu makro, lietotājs var noklikšķināt uz pogas “Atvērt vairākus failus”. Tas atver dialoglodziņu ar failu, no kura lietotājs var atlasīt vairākus Excel failus, kurus viņš vēlas atvērt.
Kad visi faili ir atlasīti, noklikšķiniet uz pogas “Labi”, lai atvērtu visus atlasītos failus.
Koda skaidrojums
Application.FileDialog (msoFileDialogFilePicker)
Iepriekš minēto kodu izmanto, lai atvērtu faila dialoglodziņu.
.AllowMultiSelect = Patiess
Iepriekš minētajā kodā rekvizīts AllowMultipleSelect ir iestatīts kā patiess, lai dialoglodziņā failu iespējotu vairākas izvēles.
.Filtri. Pievienojiet "Excel failus", "*.xls*"
Iepriekš minētajā kodā dialoglodziņš faila filtrs ir iestatīts, lai atlasītu tikai Excel failus.
Ja .Rādīt = Patiess
Iepriekš minēto kodu izmanto, lai pārbaudītu, vai lietotājs faila dialoglodziņā nospiež pogu “Labi” vai “Atcelt”.
Darbgrāmatas. Atvērt .SelectedItems (i)
Iepriekš minēto kodu izmanto, lai atvērtu atlasīto Excel failu.
Lūdzu, sekojiet tālāk norādītajam kodam
Opcija Explicit Sub open_multiple_file () Dim i As Integer 'Dialoglodziņa Atvēršana fails ar Application.FileDialog (msoFileDialogFilePicker)' Vairāku failu iespējošana izvēlieties .AllowMultiSelect = True .Filters.Clear 'Var atlasīt tikai Excel failus .Filters.Add "Excel Files" , "*.xls*". Ja
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē