运行时错误 424：需要对象

Question

我在尝试防弹某些东西时犯了一个巨大的错误，不小心保存了工作代码，不知道我做错了什么！

以下是相关代码：

Option Base 1
Dim userRange() as Range
Dim sheetCount as Integer

...（确定用户在此处定义的“sheetCount”的代码）...

ReDim userRange(sheetCount)
Dim r As Integer
For r = 1 To sheetCount
    Sheets(r).Select
    Debug.Print VBA.TypeName(userRange)
    Debug.Print VBA.TypeName(userRange())
    Debug.Print VBA.TypeName(userRange(r))
    Set userRange(r) = Application.InputBox( _
        Prompt:="Select a range to import.", _
        Title:="Select range # " & r, _
        Default:=currentsheet.Range("A1").Address, _
        Type:=8)

引发错误的行是 Set userRange(r)... 为什么 VBA 不能将 userRange(r) 识别为对象？立即窗口打印：

Object()
Object()
Nothing

请帮忙！提前致谢！

JSR

Answer 1

问题不在于userRange。您没有名为 currentSheet 的变量。由于您使用了Sheets(r).Select，因此您可能指的是对象ActiveSheet。我建议始终使用Option Explicit。