В тази статия ще създадем макрос за отваряне на множество файлове с диалогов прозорец за файл.
Създадохме макроса „opening_multiple_file“ за отваряне на множество файлове. Потребителят може да кликне върху бутона „Отваряне на няколко файла“, за да стартира макроса.
Логично обяснение
Създадохме макроса „opening_multiple_file“ за отваряне на множество файлове. Потребителят може да кликне върху бутона „Отваряне на няколко файла“, за да стартира макроса. Той отваря диалоговия прозорец на файла, от който потребителят може да избере множество Excel файлове, които иска да отвори.
След като всички файлове са избрани, щракнете върху бутона „OK“, за да отворите всички избрани файлове.
Обяснение на кода
Application.FileDialog (msoFileDialogFilePicker)
Горният код се използва за отваряне на диалоговия прозорец на файла.
.AllowMultiSelect = Вярно
В горния код свойството AllowMultipleSelect е зададено като true, за да се даде възможност за многократен избор в диалоговия прозорец на файла.
.Filters.Add "Excel Files", "*.xls*"
В горния код диалоговият прозорец за филтър за файл е настроен да избира само файлове на Excel.
Ако .Show = Вярно Тогава
Горният код се използва за проверка дали потребителят натиска бутона „OK“ или „Отказ“ в диалоговия прозорец на файла.
Работни книги. Отворете. SelectedItems (i)
Горният код се използва за отваряне на избрания Excel файл.
Моля, следвайте кода по -долу
Опция Изрично под отваряне_мултиплетен_файл () Dim i As Integer 'Диалогов прозорец за отваряне на файл с Application.FileDialog (msoFileDialogFilePicker)' Активиране на избор на множество файлове .AllowMultiSelect = True. , "*.xls*" If .Show = True then For i = 1 To .SelectedItems.Count 'Отваряне на избрания файл Workbooks.Open .SelectedItems (i) Next i End If End With End Sub
Ако този блог ви е харесал, споделете го с приятелите си във Facebook. Също така можете да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим работата си и да я направим по -добра за вас. Пишете ни на имейл сайта