使用Visual Basic和用户窗体将文件夹中的多个文件内容提取到一个文件中以选择文件夹

Question

我想在Visual Basic中创建一个宏，该宏将从文件夹中选择所有Excel文件并将它们放入单个文件中。我使用了带有按钮的表单，它将打开一个窗口来选择文件夹。

这是按钮代码，在这里我只能选择文件而不是文件夹：

Private Sub importer_Click()
    Dim file As String
    file = Application.GetOpenFilename("excel (*.xlsx),*.xlsx", , "Chose", , True)

    If (LCase(file) <> "Faux" And file <> "0") Then

        liste_elements.AddItem (file)

    End If
End Sub

Answer 1

要选择多个文件，应将MultiSelect参数设置为true。

在此处详细了解：Application.GetOpenFilename Method (Excel)