excel - 工作表不起作用

Question

我正在尝试编写一个 Excel Visual Basic 宏。

我的问题是这段代码有效:

Dim x As String
x = Worksheets("Abgabe").Cells(20, 3).Value

但这不是:

Dim y As Worksheet
y = Worksheets("Abgabe")

此外，如果我使用 ActiveWorkbook，代码将无法工作。

Dim y As Worksheet
y = ActiveWorkbook.Worksheets("Abgabe")

我收到此错误:

Object variable or With block variable not set

可能是什么问题？

Answer 1

Dim y As Worksheet

y = Worksheets("Abgabe")

使用这个(您必须使用Set)

Dim y As Worksheet
Set y = Worksheets("Abgabe")

来自 MSDN (http://msdn.microsoft.com/en-us/library/aa192490.aspx):

Set Keyword: In VBA, the Set keyword is necessary to distinguish between 
assignment of an object and assignment of the default property of the object.