ms-access - vba 错误 : object variable or with block variable not set

Question

运行以下代码时，我收到“对象变量或未设置 block 变量”错误消息。它在 Access 中，指的是 Excel 电子表格。代码有什么问题？

wsTest.Range("A11").Activate    

Do Until IsEmpty(ActiveCell)
    intX = intX + wsTest.Cells(ActiveCell.Row, "L") 'error occurs on this line
    intY = intY + wsTest.Cells(ActiveCell.Row, "I")
    ActiveCell.Offset(1, 0).Select ' Step down 1 row to the next cell.
Loop

第一次运行代码，没有错误，只有第二次。关闭并重新打开 Access “修复”了该问题。这怎么可能与这段代码有关？

Answer 1

您需要定义工作表，如下所示:

Dim wsTest As Worksheet

Set wsTest = Sheets("Sheet1")