为什么这段代码会导致“Object required”错误？

我在Excel中有以下代码作为macros。 我以为第二行宣布对象logging，然后第三行设置它的价值。 但是，我总是得到一个“对象需要”的错误。

Sub requiredFill() Dim records As Integer Set records = Sheets("Sheet 3").Range("B2").Integer 

谢谢你的帮助！

Answer 1

如果我尝试：

 Set records = Sheets("Sheet 3").Range("B2").Integer 

要么

 Set records = Sheets("Sheet 3").Range("B2").Value 

我得到了Object所需的消息。

如果我尝试：

 records = Sheets("Sheet 3").Range("B2").Value 

我不。 如果你删除了Set ，我不明白你的失败。

然而：

• 你参考“表3”。 你的意思是“Sheet3”。
• 你的代码依赖于包含一个整数值的单元格B2。

考虑以下

 Sub requiredFill() Dim records As Integer With Sheets("Sheet3").Range("B2") If IsNumeric(.Value) Then records = .Value Else records = 0 End If End With Debug.Print records End Sub