在名称中激活具有月份和年份的工作簿

Question

我正在编写一个VBA宏，我需要激活一个名为月度管理报告2017年6月的工作簿（月份将始终是上个月）。 我使用以下代码

Windows("Monthly Life Management Report " & Format(Date, "mmm yyyy") & ".xlsm").Activate

但我收到了一个超出范围错误的下标。

Answer 1

尝试以下代码：

Dim wb As Workbook

Set wb = Workbooks("Monthly Life Management Report " & Format(DateAdd("m", -1, Date), "mmm yyyy") & ".xlsm")
wb.Activate

注意：工作簿的名称应保存为"Jun 2017"而不是"June 2017"。

如果您有一个完整的月份作为文件名，请改用下面的行：

Set wb = Workbooks("Monthly Life Management Report " & Format(DateAdd("m", -1, Date), "mmmm yyyy") & ".xlsm")