Šiame straipsnyje mes sukursime makrokomandą, kad atidarytume kelis failus naudodami failo dialogo langą.
Sukūrėme makrokomandą „open_multiple_file“, kad atidarytume kelis failus. Norėdami paleisti makrokomandą, vartotojas gali spustelėti mygtuką „Atidaryti kelis failus“.
Loginis paaiškinimas
Sukūrėme makrokomandą „open_multiple_file“, kad atidarytume kelis failus. Norėdami paleisti makrokomandą, vartotojas gali spustelėti mygtuką „Atidaryti kelis failus“. Atidaromas failo dialogo langas, kuriame vartotojas gali pasirinkti kelis „Excel“ failus, kuriuos jis nori atidaryti.
Pasirinkę visus failus, spustelėkite mygtuką „Gerai“, kad atidarytumėte visus pasirinktus failus.
Kodo paaiškinimas
Application.FileDialog (msoFileDialogFilePicker)
Aukščiau pateiktas kodas naudojamas failo dialogo langui atidaryti.
.AllowMultiSelect = Tiesa
Pirmiau pateiktame kode „AllowMultipleSelect“ ypatybė nustatyta kaip „true“, kad dialogo lange būtų galima pasirinkti kelis failus.
.Filtrai. Pridėkite „Excel“ failus “,„*.xls*“
Aukščiau pateiktame kodelyje dialogo lango failo filtras nustatytas pasirinkti tik „Excel“ failus.
Jei .Rodyti = Tiesa tada
Aukščiau pateiktas kodas naudojamas patikrinti, ar vartotojas dialogo lange Failo paspaudžia mygtuką „Gerai“ arba „Atšaukti“.
Darbaknygės. Atviras .SelectedItems (i)
Aukščiau pateiktas kodas naudojamas pasirinktam „Excel“ failui atidaryti.
Sekite toliau pateiktą kodą
Parinktis „Explicit Sub“ open_multiple_file () Dim i As Integer 'Dialogo lango atidarymas su Application.FileDialog (msoFileDialogFilePicker)' Įgalinus kelis failus pasirinkite .AllowMultiSelect = True .Filters.Clear 'Galima pasirinkti tik „Excel“ failus. Filtrai. Pridėti „Excel“ failus “ , "*.xls*" Jei .Show = True Tada For i = 1 To .SelectedItems.Count 'Pasirinkto failo darbo knygų atidarymas.
Jei jums patiko šis tinklaraštis, pasidalykite juo su draugais „Facebook“. Be to, mus galite sekti „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime pagerinti savo darbą ir padaryti jį geresnį. Rašykite mums el