În acest articol, vom crea o macro pentru a deschide mai multe fișiere cu o casetă de dialog pentru fișiere.
Am creat macro-ul „opening_multiple_file” pentru a deschide mai multe fișiere. Un utilizator poate face clic pe butonul „Deschideți mai multe fișiere” pentru a rula macro-ul.
Explicație logică
Am creat macrocomanda „opening_multiple_file” pentru a deschide mai multe fișiere. Un utilizator poate face clic pe butonul „Deschideți mai multe fișiere” pentru a rula macro-ul. Deschide caseta de dialog a fișierului de unde un utilizator poate selecta mai multe fișiere Excel, pe care dorește să le deschidă.
Odată selectate toate fișierele, faceți clic pe butonul „OK” pentru a deschide toate fișierele selectate.
Explicarea codului
Application.FileDialog (msoFileDialogFilePicker)
Codul de mai sus este utilizat pentru a deschide caseta de dialog a fișierului.
.AllowMultiSelect = Adevărat
În codul de mai sus, proprietatea AllowMultipleSelect este setată true pentru a activa selecția multiplă în caseta de dialog a fișierului.
.Filtre.Adăugați „Fișiere Excel”, „* .xls *”
În codul de mai sus, filtrul pentru caseta de dialog fișier este setat pentru a selecta numai fișiere Excel.
Dacă .Show = True Then
Codul de mai sus este utilizat pentru a verifica dacă un utilizator apasă butonul „OK” sau „Anulare” în caseta de dialog a fișierului.
Cărți de lucru. Deschideți .SelectedItems (i)
Codul de mai sus este utilizat pentru a deschide fișierul Excel selectat.
Vă rugăm să urmați codul de mai jos
Option Explicit Sub opening_multiple_file () Dim i As Integer 'Caseta de dialog Deschidere fișier Cu Application.FileDialog (msoFileDialogFilePicker)' Activarea mai multor fișiere selectați .AllowMultiSelect = True .Filters.Clear 'Doar fișierele Excel pot fi selectate. , "* .xls *" Dacă .Show = True Atunci pentru i = 1 To .SelectedItems.Count 'Deschiderea fișierului selectat Workbooks.Open .SelectedItems (i) Next i End If End With End Sub
Dacă ți-a plăcut acest blog, distribuie-l prietenilor tăi de pe Facebook. De asemenea, ne puteți urmări pe Twitter și Facebook.
Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți munca noastră și o putem îmbunătăți. Scrieți-ne pe site-ul de e-mail