尝试根据日期从路径打开文件

Question

我正在尝试创建一个宏，我从特定文件夹导入文件，该文件夹是在用户指定的日期生成的。

路径看起来像这样： \\sample\example_group\xxx_REPORTS\APPS\Reports\Regional\APP NAME\，在最后一个“\”之后，今天的日期格式为yyyy / mm / dd。

我想要实现的是提示用户输入他正在查看报告的日期，然后让excel根据给定日期找到该文件夹​​并打开它。

我有以下代码，但不考虑用户输入。

 Sub ImportFile()
Dim dFile As FileDialog, result As Integer, it As Variant
Dim myDate As String
Dim myval2 As Variant


myval2 = InputBox("Enter today's date in yyyy/mm/dd format")
myDate = Format(Date, "yyyy/mm/dd")

Set dFile = Application.FileDialog(msoFileDialogOpen)

dFile.InitialFileName = "\\sample\example_group\xxx_REPORTS\APPS\Reports\Regional\APP NAME\" & "myval2"


If dFile.Show = -1 Then
  Debug.Print dFile.SelectedItems(1)
End If


End Sub

任何帮助将不胜感激！