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

时间:2015-02-21 11:01:20

标签: vba excel-vba excel

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

让我们说,我有4个名为A.xlsx,B.xlsx,C.xlsx& D.xlsx在名为22-Feb-15的文件夹下(此文件夹名称将每天更改,但文件名将保持不变)。

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

1 个答案:

答案 0 :(得分:0)

请参阅以下内容:

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

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