VBA 下标超出范围 - Excel 中的错误 9

Question

我在尝试运行我的代码时遇到了这个错误，有趣的是每次我在我的电脑上运行它时都不会出现这个错误，有时代码会运行，有时它不会运行，我尝试使用 Cells()而不是范围，但它给了我同样的错误，我不知道为什么。 这是我的代码：

Dim wbOrigen As Workbook, _
wsOrigen As Excel.Worksheet, _
wsDestino As Excel.Worksheet, _
rngOrigen As Excel.Range, _
rngDestino As Excel.Range
Reporte = Application.Workbooks(1).Worksheets("Datos").Range("B2").Value

Set wbOrigen = Workbooks.Open(ActiveWorkbook.Path & "/" & Reporte & ".xlsx")
Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & "/Tabla Maestra Invemer.xlsm")

ThisWorkbook.Activate

'Initial Data
Set wsOrigen = wbOrigen.Worksheets("DATOS INICIALES")
Set wsDestino = wbDestino.Worksheets("Datos")

Answer 1

当您使用ActiveWorkbook或在给定时间打开多个工作簿时，这是一个典型的错误。

1. 尽量避免使用ActiveWorkbook ，您可以键入ThisWorkbook
2. 关闭所有其他工作簿，如果您打开它们（或单击工作簿，其中执行 VBA 代码）。