V tomto článku vytvoríme makro na otvorenie viacerých súborov pomocou dialógového okna súboru.
Vytvorili sme makro „opening_multiple_file“ na otváranie viacerých súborov. Užívateľ môže makro spustiť kliknutím na tlačidlo „Otvoriť viac súborov“.
Logické vysvetlenie
Vytvorili sme makro „opening_multiple_file“ na otváranie viacerých súborov. Užívateľ môže makro spustiť kliknutím na tlačidlo „Otvoriť viac súborov“. Otvorí sa dialógové okno súboru, v ktorom môže používateľ vybrať viacero súborov programu Excel, ktoré chce otvoriť.
Keď sú vybraté všetky súbory, kliknutím na tlačidlo „OK“ otvoríte všetky vybraté súbory.
Vysvetlenie kódu
Application.FileDialog (msoFileDialogFilePicker)
Vyššie uvedený kód sa používa na otvorenie dialógového okna súboru.
.AllowMultiSelect = True
Vo vyššie uvedenom kóde je vlastnosť AllowMultipleSelect nastavená na hodnotu true, aby bol v dialógovom okne súboru povolený viacnásobný výber.
.Filtre. Pridajte „súbory programu Excel“, „*.xls*“
Vo vyššie uvedenom kóde je dialógové okno Filter pre súbor nastavené tak, aby vyberalo iba súbory programu Excel.
Ak .Show = True Potom
Vyššie uvedený kód sa používa na kontrolu, či používateľ v dialógovom okne súboru stlačí tlačidlo „OK“ alebo „Zrušiť“.
Zošity. Otvorte .SelectedItems (i)
Vyššie uvedený kód sa používa na otvorenie vybraného súboru programu Excel.
Pri kódovaní postupujte podľa nižšie uvedených pokynov
Možnosť Explicitná čiastková otváracia_množina_súboru () Dim i ako celé číslo „Dialógové okno na otvorenie súboru pomocou Application.FileDialog (msoFileDialogFilePicker)“ Povolenie výberu viacerých súborov .AllowMultiSelect = True .Filters.Clear 'Je možné vybrať iba súbory programu Excel .Filters.Add "Súbory programu Excel" , "*.xls*" Ak .Show = True, potom pre i = 1 do .SelectedItems.Count 'Otváranie vybraných zošitov. Otvorte .SelectedItems (i) Ďalej i Koniec, ak koniec s koncovkou Sub
Ak sa vám tento blog páčil, zdieľajte ho so svojimi priateľmi na Facebooku. Môžete nás tiež sledovať na Twitteri a Facebooku.
Budeme radi, ak sa nám ozvete, dajte nám vedieť, ako môžeme zlepšiť našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku