В этой статье мы создадим макрос для открытия нескольких файлов с помощью диалогового окна файла.

Мы создали макрос «open_multiple_file» для открытия нескольких файлов. Пользователь может нажать кнопку «Открыть несколько файлов», чтобы запустить макрос.

ArrowMain

Логическое объяснение

Мы создали макрос «open_multiple_file» для открытия нескольких файлов. Пользователь может нажать кнопку «Открыть несколько файлов», чтобы запустить макрос. Он открывает диалоговое окно файла, в котором пользователь может выбрать несколько файлов Excel, которые он хочет открыть.

ArrowSelectingMultipleFiles

После того, как все файлы выбраны, нажмите кнопку «ОК», чтобы открыть все выбранные файлы.

ArrowOutput

Объяснение кода

Application.FileDialog (msoFileDialogFilePicker)

Приведенный выше код используется для открытия диалогового окна файла.

Filters.Add «Файлы Excel», «.xls»

В приведенном выше коде фильтр для диалогового окна файла настроен на выбор только файлов Excel.

If .Show = True Then Приведенный выше код используется для проверки, нажимает ли пользователь кнопку «ОК» или «Отмена» в диалоговом окне файла.

Workbooks.Open .SelectedItems (i)

Приведенный выше код используется для открытия выбранного файла Excel.

Пожалуйста, введите код ниже

Option Explicit

Sub opening_multiple_file()

Dim i As Integer

'Opening File dialog box

With Application.FileDialog(msoFileDialogFilePicker)

'Enabling multiple files select

.AllowMultiSelect = True

.Filters.Clear



'Only Excel files can be selected

.Filters.Add "Excel Files", ".xls"



If .Show = True Then

For i = 1 To .SelectedItems.Count

'Opening selected file

Workbooks.Open .SelectedItems(i)

Next i

End If



End With

End Sub

Если вам понравился этот блог, поделитесь им с друзьями на Facebook и Facebook.

Мы будем рады услышать от вас, дайте нам знать, как мы можем улучшить нашу работу и сделать ее лучше для вас. Напишите нам на [email protected]