在每月文件夹名称（每周更改）中打开所有文件

我有12个文件夹（月），并在每个月的文件夹，每个星期有一个文件夹。 在每周的文件夹中都有一些excel文件。

在每周的基础上，我需要打开本周文件夹中的所有文件，以便数据填充间接匹配公式。 希望通过点击button来做到这一点…

有没有办法引用指向相关月份和星期的path？ 例如，我更新了主文件中的一个单元格，它提出了月份和星期，VBA指向那里，并打开这些文件？ 我试图适应一些VBA的另一个主文件，我只是留在相同的文件夹位置。

Public Sub test() 'DECLARE AND SET VARIABLES Dim wbk As Workbook Dim Filename As String Dim Path As String Path = "S:\Accounts\FP&A\1. Weekly Sales Figures\FY 18\" Filename = Dir(Path & "*.xlsm") 'Optimize Macro Speed Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual '-------------------------------------------- 'OPEN EXCEL FILES Do While Len(Filename) > 0 'IF NEXT FILE EXISTS THEN Set wbk = Workbooks.Open(Path & Filename) ' ' CODE GOES HERE ' Filename = Dir ResetSettings: 'Reset Macro Optimization Settings Application.EnableEvents = True Loop ThisWorkbook.Activate End Sub 

非常感谢，本

文件夹结构在\ FY18 \（显示在上面的文件path）后，我有12个文件夹（例如'03 – 2017年4月'04 – 2017年5月'，然后在'04 – 2017年5月'例如，我有几个星期.. （例如“04.05.2017”，“11.05.2017”，“18.05.2017”

希望能帮助Max？ 谢谢

Answer 1

你可以用这样的东西作为起点来定义你的文件path，

  Dim MonthFolder as String Dim DayFolder as String Dim Path As String ' These could be referenced from the Current Date or Cell Values, Input Boxes... ' as long as they match your folder structure. MonthFolder = May DayFolder = 26 Path = "S:\Accounts\FP&A\" & MonthFolder & "\" & DayFolder & "\"