In questo articolo, creeremo una macro per aprire più file con una finestra di dialogo file.
Abbiamo creato la macro “opening_multiple_file” per aprire più file. Un utente può fare clic sul pulsante "Apri più file" per eseguire la macro.
Spiegazione logica
Abbiamo creato la macro “opening_multiple_file” per aprire più file. Un utente può fare clic sul pulsante "Apri più file" per eseguire la macro. Apre la finestra di dialogo del file da cui un utente può selezionare più file excel che desidera aprire.
Una volta selezionati tutti i file, fare clic sul pulsante "OK" per aprire tutti i file selezionati.
Spiegazione del codice
Application.FileDialog(msoFileDialogFilePicker)
Il codice sopra viene utilizzato per aprire la finestra di dialogo del file.
.AllowMultiSelect = True
Nel codice sopra, la proprietà AllowMultipleSelect è impostata su true per abilitare la selezione multipla nella finestra di dialogo del file.
.Filtri.Aggiungi "File Excel", "*.xls*"
Nel codice sopra, la finestra di dialogo Filtro per file è impostata per selezionare Solo file Excel.
Se .Mostra = Vero Allora
Il codice sopra viene utilizzato per verificare se un utente preme il pulsante "OK" o "Annulla" nella finestra di dialogo del file.
Cartelle di lavoro.Apri .SelectedItems(i)
Il codice sopra viene utilizzato per aprire il file Excel selezionato.
Si prega di seguire sotto per il codice
Option Explicit Sub opening_multiple_file() Dim i As Integer 'Aprire la finestra di dialogo File With Application.FileDialog(msoFileDialogFilePicker) 'Abilitare più file select .AllowMultiSelect = True .Filters.Clear 'Solo file Excel possono essere selezionati .Filters.Add "File Excel" , "*.xls*" If .Show = True Then For i = 1 To .SelectedItems.Count 'Apre il file selezionato Workbooks.Open .SelectedItems(i) Next i End If End With End Sub
Se ti è piaciuto questo blog, condividilo con i tuoi amici su Facebook. Inoltre, puoi seguirci su Twitter e Facebook.
Ci piacerebbe avere tue notizie, facci sapere come possiamo migliorare il nostro lavoro e renderlo migliore per te. Scrivici al sito di posta elettronica