I denne artikel vil vi oprette en makro til at åbne flere filer med en fildialogboks.
Vi har oprettet makroen "opening_multiple_file" for at åbne flere filer. En bruger kan klikke på knappen "Åbn flere filer" for at køre makroen.
Logisk forklaring
Vi har oprettet makroen "opening_multiple_file" for at åbne flere filer. En bruger kan klikke på knappen "Åbn flere filer" for at køre makroen. Det åbner fildialogboksen, hvorfra en bruger kan vælge flere excel -filer, som han vil åbne.
Når alle filerne er markeret, skal du klikke på knappen "OK" for at åbne alle de valgte filer.
Kode forklaring
Application.FileDialog (msoFileDialogFilePicker)
Ovenstående kode bruges til at åbne dialogboksen for filer.
.AllowMultiSelect = Sandt
I ovenstående kode er egenskaben AllowMultipleSelect indstillet til at aktivere flere valg i fildialogboksen.
.Filters.Tilføj "Excel -filer", "*.xls*"
I ovenstående kode er filteret til fil -dialogboksen indstillet til kun at vælge Excel -filer.
Hvis .Show = True derefter
Ovenstående kode bruges til at kontrollere, om en bruger trykker på "OK" eller "Annuller" -knappen i fildialogboksen.
Workbooks.Open .SelectedItems (i)
Ovenstående kode bruges til at åbne den valgte Excel -fil.
Følg venligst nedenstående for koden
Option Eksplicit Sub opening_multiple_file () Dim i As Integer 'Åbningsfil dialogboks Med Application.FileDialog (msoFileDialogFilePicker)' Aktivering af flere filer vælg .AllowMultiSelect = True .Filters.Clear 'Kun Excel -filer kan vælges .Filters.Add "Excel Files" , "*.xls*" If .Show = True Then For i = 1 To .SelectedItems.Count 'Åbning af valgt fil Workbooks.Open .SelectedItems (i) Næste i End If End with End Sub Sub
Hvis du kunne lide denne blog, kan du dele den med dine venner på Facebook. Du kan også følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet