Question

我想使用VBA代码打开保存在同一文件夹下的4个不同的Excel文件，但文件夹路径不固定。

让我们说，我有4个名为A.xlsx，B.xlsx，C.xlsx＆amp; D.xlsx在名为22-Feb-15的文件夹下（此文件夹名称将每天更改，但文件名将保持不变）。

我想要VBA代码，以便我可以手动选择文件夹，一旦选中，所有4个文件将逐个打开（还有其他文件，但我只需要打开这4个文件）。

Answer 1

请参阅以下内容：

Sub FolderSelect()
Dim intResult As Integer
Dim fldrPath As String
intResult = Application.FileDialog(msoFileDialogFolderPicker).Show
    If intResult <> 0 Then
        fldrPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
        Workbooks.Open Filename:=fldrPath & "\" & "A.xlsx"
        Workbooks.Open Filename:=fldrPath & "\" & "B.xlsx"
        Workbooks.Open Filename:=fldrPath & "\" & "C.xlsx"
        Workbooks.Open Filename:=fldrPath & "\" & "D.xlsx"
    End If
End Sub

您可以按照相同的结构更改文件名和/或添加新文件

使用VBA从可变位置打开多个文件

1 个答案: