在名称中以月份和年份激活工作簿

我正在编写一个VBAmacros，我需要激活一个名为月度pipe理报告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")