V tem članku bomo ustvarili makro za odpiranje več datotek z pogovornim oknom za datoteke.
Ustvarili smo makro »opening_multiple_file« za odpiranje več datotek. Uporabnik lahko za zagon makra klikne gumb »Odpri več datotek«.
Logična razlaga
Ustvarili smo makro »opening_multiple_file« za odpiranje več datotek. Uporabnik lahko za zagon makra klikne gumb »Odpri več datotek«. Odpre se pogovorno okno za datoteke, v katerem lahko uporabnik izbere več datotek Excel, ki jih želi odpreti.
Ko so izbrane vse datoteke, kliknite gumb »V redu«, da odprete vse izbrane datoteke.
Razlaga kode
Application.FileDialog (msoFileDialogFilePicker)
Zgornja koda se uporablja za odpiranje pogovornega okna datoteke.
.AllowMultiSelect = True
V zgornji kodi je lastnost AllowMultipleSelect nastavljena na true, da omogoči večkratno izbiro v pogovornem oknu datoteke.
.Filters.Dodajte "Excel datoteke", "*.xls*"
V zgornji kodi je pogovorno okno za filter datoteke nastavljeno tako, da izbere samo datoteke Excel.
Če je .Show = res, potem
Zgornja koda se uporablja za preverjanje, ali uporabnik pritisne gumb »V redu« ali »Prekliči« v pogovornem oknu datoteke.
Delovni zvezki. Odprite .Izbrane postavke (i)
Zgornja koda se uporablja za odpiranje izbrane datoteke Excel.
Za kodo sledite spodaj
Možnost Explicit Sub opening_multiple_file () Dim i As Integer 'Pogovorno okno za odpiranje datoteke z Application.FileDialog (msoFileDialogFilePicker)' Omogočanje izbire več datotek .AllowMultiSelect = True .Filters.Clear 'Izberete lahko samo datoteke Excel. , "*.xls*" Če je .Show = True Potem za i = 1 Za .SelectedItems.Count 'Odpiranje izbrane datoteke Delovni zvezki.Odprite .SelectedItems (i) Naprej i Konec Če Končaj s Konec Sub
Če vam je bil ta blog všeč, ga delite s prijatelji na Facebooku. Prav tako nam lahko sledite na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo svoje delo in ga izboljšamo za vas. Pišite nam na spletnem mestu e -pošte