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 代碼）。