U ovom ćemo članku stvoriti makro za otvaranje više datoteka s dijaloškim okvirom datoteke.
Napravili smo makronaredbu "opening_multiple_file" za otvaranje više datoteka. Korisnik može kliknuti gumb "Otvori više datoteka" za pokretanje makronaredbe.
Logično objašnjenje
Napravili smo makronaredbu "opening_multiple_file" za otvaranje više datoteka. Korisnik može kliknuti gumb "Otvori više datoteka" za pokretanje makronaredbe. Otvara dijaloški okvir datoteke u kojem korisnik može odabrati više excel datoteka koje želi otvoriti.
Nakon što su odabrane sve datoteke, kliknite gumb "U redu" da biste otvorili sve odabrane datoteke.
Objašnjenje koda
Application.FileDialog (msoFileDialogFilePicker)
Gornji kôd koristi se za otvaranje dijaloškog okvira datoteke.
.AllowMultiSelect = Tačno
U gornjem kodu svojstvo AllowMultipleSelect postavljeno je na true kako bi se omogućio višestruki odabir u dijaloškom okviru datoteke.
.Filteri.Dodajte "Excel datoteke", "*.xls*"
U gornjem kodu dijaloški okvir filtar za datoteku postavljen je za odabir samo Excel datoteka.
Ako je .Show = Istina
Gornji kôd koristi se za provjeru pritiska li korisnik tipke "OK" ili "Cancel" u dijaloškom okviru datoteke.
Radne bilježnice. Otvorite. Izabrane stavke (i)
Gornji kôd koristi se za otvaranje odabrane Excel datoteke.
Molimo slijedite dolje za kôd
Opcija Eksplicitno Sub opening_multiple_file () Dim i As Integer 'Dijaloški okvir za otvaranje datoteke s Application.FileDialog (msoFileDialogFilePicker)' Omogućavanje odabira više datoteka .AllowMultiSelect = True .Filters.Clear 'Mogu se odabrati samo Excel datoteke. Filters.Add "Excel File" , "*.xls*" If .Show = True then For i = 1 To .SelectedItems.Count 'Otvaranje odabrane datoteke Workbooks.Open .SelectedItems (i) Next i End If End With End Sub
Ako vam se dopao ovaj blog, podijelite ga sa svojim prijateljima na Facebooku. Također, možete nas pratiti na Twitteru i Facebooku.
Voljeli bismo vas čuti, javite nam kako možemo poboljšati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte