在本文中，我们将创建一个宏以使用文件对话框打开多个文件。

我们创建了宏“ opening_multiple_file”来打开多个文件。用户可以单击“打开多个文件”按钮来运行宏。

ArrowMain

逻辑解释

我们创建了宏“ opening_multiple_file”来打开多个文件。用户可以单击“打开多个文件”按钮来运行宏。它将打开文件对话框，用户可以从中选择多个要打开的Excel文件。

ArrowSelectingMultipleFiles

选择所有文件后，单击“确定”按钮以打开所有选定的文件。

ArrowOutput

代码说明

Application.FileDialog（msoFileDialogFilePicker）

上面的代码用于打开文件对话框。

Filters。添加“ Excel文件”，“。xls”

在上面的代码中，“文件过滤器”对话框设置为仅选择“ Excel文件”。

如果.Show = True，则上面的代码用于检查用户是否在文件对话框中按下“确定”或“取消”按钮。

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]