VBA基础用户求助：如何实现按周自动打开对应周报文件

嘿，作为VBA初学者，你这个动态周数的需求其实很好实现，咱们一步步来调整你的代码：

核心思路 #

我们需要先根据当前日期计算出对应的周数（匹配你给出的规则：2018年3月29日为第13周，4月2日为第14周），然后把路径里固定的WK13替换成动态计算的周数即可。

完整修改后的代码 #

Sub refresh()
    ' 1. 计算当前日期对应的周数（周一作为每周起始，匹配你的周数规则）
    Dim currentWeek As Integer
    currentWeek = WorksheetFunction.WeekNum(Date, 2)
    
    ' 2. 动态构建文件路径：把固定的WK13替换成WK+周数
    Dim filePath As String
    filePath = "C:\Users\GMM\Desktop\weekly report\SUMMARY 2018\WK" & currentWeek & " 2018\WK" & currentWeek & "SUMMARY.xlsm"
    
    ' 3. 打开目标文件（保持你原来的参数）
    Workbooks.Open Filename:=filePath, Notify:=False
    
    ' 4. 激活指定工作簿（和你原来的代码一致）
    Windows("board (002) protect.xlsm").Activate
End Sub

代码解释 #

• 周数计算部分：WorksheetFunction.WeekNum(Date, 2)是关键。Date会获取系统当前日期，参数2指定周一作为每周的第一天，这样刚好匹配你说的3月29日（周四）属于第13周，4月2日（周一）自动进入第14周的规则。
• 动态路径构建：通过&符号把字符串和变量拼接起来，把原来固定的WK13替换成WK" & currentWeek，这样每次运行代码时，路径里的周数都会自动更新。
• 可选优化：动态年份：如果以后年份变更不想手动改代码，可以把路径里的2018换成Year(Date)，这样会自动取当前年份：

  filePath = "C:\Users\GMM\Desktop\weekly report\SUMMARY " & Year(Date) & "\WK" & currentWeek & " " & Year(Date) & "\WK" & currentWeek & "SUMMARY.xlsm"
  

测试小技巧 #

你可以手动指定日期来验证代码是否正确，比如把Date换成DateSerial(2018, 3, 29)，运行代码后应该会打开第13周的文件；换成DateSerial(2018, 4, 2)则会打开第14周的文件，确保逻辑没问题后再用Date自动获取当前日期。

内容的提问来源于stack exchange，提问作者Gibran Mahargasari