试图根据date从path中打开文件

我正在尝试创build一个macros，我从用户指定的date生成的特定文件夹中导入文件。

path如下所示： \\sample\example_group\xxx_REPORTS\APPS\Reports\Regional\APP NAME\ ，在最后一个“\”后面有yyyy / mm / dd格式的今天date。

我试图实现的是提示用户input他正在审查报告的date，然后Excel基于给定的datefind该文件夹​​并打开它。

我有以下代码，但它不考虑userinput。

  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 

任何帮助，将不胜感激！

Answer 1

它不考虑用户的input，因为您将variables名称myval2作为string传递。 因此，应该是这样的：

 dFile.InitialFileName = "\gional\APP NAME\" & myval2 

代替：

 dFile.InitialFileName = "\gional\APP NAME\" & "myval2" 

Answer 2

文件夹名称不能包含正斜杠（ / ），因此您的方法将无法正常工作。 我build议使用格式yyyy-mm-dd 。