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

Question

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

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

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

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 专家，但谷歌搜索很少说错误 9 是下标超出范围错误。

这可能来自Sheets(3)。我还记得 excel 在这些版本中默认打开了 3 张工作表。也许现在情况并非如此，并导致了问题。