Excel 2003 VBA 中的简单变量赋值答案

【问题标题】：Simple variable assignment in Excel 2003 VBAExcel 2003 VBA 中的简单变量赋值
【发布时间】：2010-03-14 02:37:49
【问题描述】：

我是 Excel 中的 VBA 新手。我正在设置一个简单的宏

Option Explicit

Sub Macro1()
   Dim sheet
   sheet = Worksheets.Item(1)  ' This line has the error
End Sub

在出现错误的那一行，我得到“运行时错误'438'对象不支持此属性或方法”

我可以使用 Watch 窗口查看“Worksheets.Item(1)”是一个有效对象。我尝试将其更改为“将工作表变暗”但结果相同。

好的，那我错过了什么？为什么会出现这个错误？

谢谢！

-迈克

【问题讨论】：

不是 100% 确定，但我认为它正在谈论的对象是“工作表”，它试图告诉您它不支持“项目”属性/方法。这是基于您找到的一些示例代码吗？
不，我正在从头开始编写代码。如果我输入“工作表”。我得到了“Item(” 的智能感知
好问题。您需要Set 的原因是因为sheet 是一个对象而不是简单类型（如整数、字符串等）。您还可以按名称引用工作表，例如Set sheet = Worksheets("Sheet1")。

标签： excel vba

【解决方案1】：

您需要一个Set 语句（当您分配参考时）：

Option Explicit

Sub Macro1()
   Dim sheet As Worksheet
   Set sheet = Worksheets.Item(1) 

   '' ... Use sheet

   Set sheet = Nothing
End Sub

【讨论】：