VBA 运行 Excel 2013 年的时间错误在 Excel 2010 年运行良好

Question

我有一个我们使用多年的宏，在 Excel 2010 年运行良好。但是，现在我们升级到 Excel 2013 年，它会出现运行时间错误9. 以下代码部分在调试后突出显示：

Sheets(1).Copy after:=Workbooks(mfname).Sheets(3)

我已经知道这个错误与范围的可用性有关。问题是是否有任何简单的解决方法？相关代码片段：

Workbooks.Add
mfname= ActiveWorkbook.Name

Workbooks.Open template
template_name = ActiveWorkbook.Name
Sheets(1).Copy after:=Workbooks(mfname).Sheets(3)

Workbooks(mfname).Activate
Sheets(1).Delete
Sheets(1).Delete
Sheets(1).Delete
lapok = Sheets.Count

感谢您的帮助！

Answer 1

我不是 VBA 方面的专家，但很少 google 搜索说错误 9 是下标超出范围错误。

这可能来自 Sheets(3)。我还记得 excel 在这些版本中默认打开 3 张纸。也许现在不是这样，并导致问题。

VBA 运行 Excel 2013 年的时间错误在 Excel 2010 年运行良好

VBA Run Time error in Excel 2013 that works well in Excel 2010

excel-2010

excel-2013