In dit artikel zullen we een macro maken om meerdere bestanden te openen met een bestandsdialoogvenster.
We hebben de macro "opening_multiple_file" gemaakt om meerdere bestanden te openen. Een gebruiker kan op de knop "Meerdere bestanden openen" klikken om de macro uit te voeren.
Logische uitleg
We hebben de macro "opening_multiple_file" gemaakt om meerdere bestanden te openen. Een gebruiker kan op de knop "Meerdere bestanden openen" klikken om de macro uit te voeren. Het opent het bestandsdialoogvenster van waaruit een gebruiker meerdere Excel-bestanden kan selecteren die hij wil openen.
Zodra alle bestanden zijn geselecteerd, klikt u op de knop "OK" om alle geselecteerde bestanden te openen.
Code uitleg
Application.FileDialog(msoFileDialogFilePicker)
De bovenstaande code wordt gebruikt om het bestandsdialoogvenster te openen.
.AllowMultiSelect = True
In bovenstaande code is de eigenschap AllowMultipleSelect ingesteld op true om meervoudige selectie in het bestandsdialoogvenster in te schakelen.
.Filters.Voeg "Excel-bestanden", "*.xls*" toe
In bovenstaande code is het dialoogvenster Filter voor bestand ingesteld om alleen Excel-bestanden te selecteren.
Als .Toon = Waar Dan
De bovenstaande code wordt gebruikt om te controleren of een gebruiker op de knop "OK" of "Annuleren" in het bestandsdialoogvenster drukt.
Werkmappen.Open .SelectedItems(i)
De bovenstaande code wordt gebruikt om het geselecteerde Excel-bestand te openen.
Volg hieronder voor de code:
Optie Explicit Sub opening_multiple_file() Dim i As Integer 'Bestand openen dialoogvenster Met Application.FileDialog(msoFileDialogFilePicker) 'Meerdere bestanden inschakelen selecteer .AllowMultiSelect = True .Filters.Clear 'Alleen Excel-bestanden kunnen worden geselecteerd .Filters.Add "Excel-bestanden" , "*.xls*" If .Show = True Then For i = 1 To .SelectedItems.Count 'Openen geselecteerd bestand Workbooks.Open .SelectedItems(i) Next i End If End With End Sub
Als je deze blog leuk vond, deel hem dan met je vrienden op Facebook. Ook kunt u ons volgen op Twitter en Facebook.
We horen graag van u, laat ons weten hoe we ons werk kunnen verbeteren en voor u kunnen verbeteren. Schrijf ons op de e-mailsite