Excel VBA将变量设置为工作表

Question

我正在尝试将Worksheet变量设置为Activesheet但出现错误

未设置对象变量或带块变量

这是我的语法-这样做的合适方法是什么？

Sub TestIt()
 Dim ws2 As Worksheet, ws1 As Worksheet

  ws2 = ActiveWorkbook.ActiveSheet
  ws1 = "Belgium"

  Debug.Print ws2
  Debug.Print ws1
End Sub

Answer 1

1-您需要使用Set关键字来分配对象变量。

2-您不能直接将工作表变量分配给字符串，但需要在Worksheets集合中建立索引

3-您不能Debug.Print工作表，只能Debug.Print其名称或其中的某些单元格

Sub TestIt()
    Dim ws2 As Worksheet, ws1 As Worksheet

    Set ws2 = ActiveWorkbook.ActiveSheet
    Set ws1 = ThisWorkbook.Worksheets("Belgium")

    Debug.Print ws2.Name
    Debug.Print ws1.Cells(1,1).Value
End Sub