VBA Excel问题-使用条件打开文件夹和文件

目前正在尝试使用VBA脚本来处理我创建的新报表。问题是要全面完成这份报告，每月需要224份个人报告中的信息

现在我可以去手动提取信息，但VBA将是一个更快的选择。所有信息都被下载并存储在代表商店名称的单独文件夹中，然后按月份进一步细分。 （C:Folder\Reports\ShopName\January）等

我想做的是设置一个条件，或者至少创建一个选项，搜索由用户在表单开始时确定的带有ShopName和Month的文件夹。（他们只需在电子表格的某个区域键入这两个详细信息）然后VBA就会从相关的文件夹和文件中导出信息

我可以运行VBA来格式化、选择和显示我需要的数据，但我无法确定如何让VBA自己进入这些文件夹

我编写了一个VBA检查，以查看文件夹是否存在，但这是由我在宏中定义的位置决定的

在本例中，我只是检查文件夹是否存在

Sub sbCheckingIfAFolderExists()

Dim FSO
Dim sFolder As String

sFolder = "W:\Simon Docs\Shop Reports\Weston Favell\Jan" 
Set FSO = CreateObject("Scripting.FileSystemObject")

If FSO.FolderExists(sFolder) Then
MsgBox "Specified Folder Is Available", vbInformation, "Exists!"
Else
MsgBox folder & "Specified Folder Not Found", vbInformation, "Not Found!"
End If

End Sub

我需要在上面更改的是Weston Favell\Jan的位置…如果有意义的话，需要是=A1\=A2？A1和A2是要提取的用户输入位置

任何人能给予的任何帮助都将是伟大的

---

谢谢

店铺名称和月份可以作为变量添加到您编写的报表中：

Sub sbCheckingIfAFolderExists()

Dim FSO
Dim sFolder As String
Vshop = Range("B1").value
Vmonth = Range("B2").value

sFolder = "W:\Simon Docs\Shop Reports\" & Vshop & "\" & Vmonth 
Set FSO = CreateObject("Scripting.FileSystemObject")

If FSO.FolderExists(sFolder) Then
MsgBox "Specified Folder Is Available", vbInformation, "Exists!"
Else
MsgBox folder & "Specified Folder Not Found", vbInformation, "Not Found!"
End If

End Sub