V tomto článku vytvoříme makro pro otevření více souborů pomocí dialogového okna souboru.
Vytvořili jsme makro „opening_multiple_file“ pro otevření více souborů. Uživatel může makro spustit kliknutím na tlačítko „Otevřít více souborů“.
Logické vysvětlení
Vytvořili jsme makro „opening_multiple_file“ pro otevření více souborů. Uživatel může makro spustit kliknutím na tlačítko „Otevřít více souborů“. Otevře se dialogové okno souboru, kde si uživatel může vybrat více souborů aplikace Excel, které chce otevřít.
Jakmile jsou vybrány všechny soubory, kliknutím na tlačítko „OK“ otevřete všechny vybrané soubory.
Vysvětlení kódu
Application.FileDialog (msoFileDialogFilePicker)
Výše uvedený kód se používá k otevření dialogového okna souboru.
.AllowMultiSelect = True
Ve výše uvedeném kódu je vlastnost AllowMultipleSelect nastavena na hodnotu true, aby bylo možné v dialogovém okně souboru vybrat více položek.
.Filters.Add "Soubory aplikace Excel", "*.xls*"
Ve výše uvedeném kódu je dialogové okno filtr pro soubor nastaveno tak, aby vybíralo pouze soubory aplikace Excel.
Pokud .Show = True Then
Výše uvedený kód slouží ke kontrole, zda uživatel v dialogovém okně souboru stiskne tlačítko „OK“ nebo „Zrušit“.
Sešity. Otevřete .SelectedItems (i)
Výše uvedený kód se používá k otevření vybraného souboru aplikace Excel.
Pro kód prosím postupujte níže
Volba Explicitní Sub otevření_multiple_file () Dim i jako celé číslo 'Dialogové okno Otevřít soubor pomocí Application.FileDialog (msoFileDialogFilePicker)' Povolení výběru více souborů .AllowMultiSelect = True .Filters.Clear 'Lze vybrat pouze soubory aplikace Excel .Filters.Add "Soubory aplikace Excel" , "*.xls*" Pokud .Show = True, pak pro i = 1 až .SelectedItems.Count 'Otevírá vybrané sešity sešitů. Otevřít .SelectedItems (i) Další i Končit If End s End Sub
Pokud se vám tento blog líbil, sdílejte ho se svými přáteli na Facebooku. Také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit naši práci a zlepšit ji pro vás. Napište nám na e -mail