I denne artikkelen vil vi lage en makro for å åpne flere filer med en fil -dialogboks.
Vi har laget makroen “opening_multiple_file” for å åpne flere filer. En bruker kan klikke på "Åpne flere filer" -knappen for å kjøre makroen.
Logisk forklaring
Vi har laget makroen “opening_multiple_file” for å åpne flere filer. En bruker kan klikke på "Åpne flere filer" -knappen for å kjøre makroen. Den åpner fildialogboksen hvorfra en bruker kan velge flere excel -filer, som han vil åpne.
Når alle filene er valgt, klikker du på "OK" -knappen for å åpne alle de valgte filene.
Kode forklaring
Application.FileDialog (msoFileDialogFilePicker)
Koden ovenfor brukes til å åpne dialogboksen for filer.
.AllowMultiSelect = True
I koden ovenfor er egenskapen AllowMultipleSelect satt til å aktivere flere valg i dialogboksen for filer.
.Filters.Legg til "Excel -filer", "*.xls*"
I koden ovenfor er filter for fil -dialogboksen satt til å velge Excel -filer bare.
Hvis .Show = True Then
Koden ovenfor brukes til å kontrollere om en bruker trykker på "OK" eller "Avbryt" -knappen i fildialogboksen.
Workbooks.Open .SelectedItems (i)
Koden ovenfor brukes til å åpne den valgte Excel -filen.
Følg koden nedenfor
Option Explicit Sub opening_multiple_file () Dim i As Integer 'Åpningsfil -dialogboks Med Application.FileDialog (msoFileDialogFilePicker)' Aktivering av flere filer velg .AllowMultiSelect = True .Filters.Clear 'Bare Excel -filer kan velges .Filters.Add "Excel Files" , "*.xls*" If .Show = True Then For i = 1 To .SelectedItems.Count 'Åpne valgt fil Workbooks.Open .SelectedItems (i) Next i End If End With End Sub End
Hvis du likte denne bloggen, del den med vennene dine på Facebook. Du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre arbeidet vårt og gjøre det bedre for deg. Skriv til oss på e -post