I den här artikeln kommer vi att skapa ett makro för att öppna flera filer med en fildialogruta.
Vi har skapat makrot "opening_multiple_file" för att öppna flera filer. En användare kan klicka på knappen "Öppna flera filer" för att köra makrot.
Logisk förklaring
Vi har skapat makrot "opening_multiple_file" för att öppna flera filer. En användare kan klicka på knappen "Öppna flera filer" för att köra makrot. Det öppnar fildialogrutan varifrån en användare kan välja flera excel -filer som han vill öppna.
När alla filer är markerade klickar du på "OK" -knappen för att öppna alla valda filer.
Kodförklaring
Application.FileDialog (msoFileDialogFilePicker)
Ovanstående kod används för att öppna dialogrutan för filer.
.AllowMultiSelect = True
I koden ovan är egenskapen AllowMultipleSelect satt till att aktivera flera val i fildialogrutan.
.Filters.Lägg till "Excel -filer", "*.xls*"
I koden ovan är filtret för fil dialogrutan inställd på att bara välja Excel -filer.
Om .Show = True Då
Ovanstående kod används för att kontrollera om en användare trycker på "OK" eller "Avbryt" -knappen i fildialogrutan.
Workbooks.Open .SelectedItems (i)
Ovanstående kod används för att öppna den valda Excel -filen.
Följ koden nedan
Alternativ Explicit Sub opening_multiple_file () Dim i As Integer 'Dialogrutan Öppningsfil med Application.FileDialog (msoFileDialogFilePicker)' Aktivera flera filer välj .AllowMultiSelect = True .Filters.Clear 'Endast Excel -filer kan väljas .Filters.Add "Excel -filer" , "*.xls*" If .Show = True Then For i = 1 To .SelectedItems.Count 'Öppnar vald fil Workbooks.Open .SelectedItems (i) Nästa i End If End with End Sub
Om du gillade den här bloggen, dela den med dina vänner på Facebook. Du kan också följa oss på Twitter och Facebook.
Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra vårt arbete och göra det bättre för dig. Skriv till oss på e -postwebbplatsen