我正在寻找一种方法来选择当前月份的文件夹并打开一个特定文件,其中当前月份文件夹位于名为" 2017"的文件夹中。并包括所有12个月'文件夹。
我已经可以直接转到特定文件夹,但是尝试编写一个代码,让用户转到2017文件夹,然后代码找到当前月份的文件夹并调用Reject_Review。文件类型并不重要,因为它可能是.csv,.xlsx,.xlsm,具体取决于我们的决定。
以下代码是我用来尝试查找当前月份文件夹的代码。这是共享驱动器上的文件夹路径。
Sub CurrentMonthFolderOpenFile()
Application.DisplayAlerts = False
If Len(Dir("E:xxx_xxSolutions\xxx - xx Governance\xxx Controls\xxx Monitoring\Monthly xxx Review\MonthName(Month(Date), False), vbDirectory)) = 0 Then Call Reject_Review
End If
End Sub