错误13类型不匹配在VBA中分配工作表变量

Question

Dim AN As Workbook
Set AN = Sheets("ANData")

好的，第二行是我尝试运行GUI时突出显示的行。上周工作正常，但现在我收到了错误13类型不匹配的错误。我试图让它引用名为“ ANData”的电子表格。

Answer 1

如评论中所述，Sheet是一个变量，WorkBook是另一个变量：

Public Sub TestMe()

    Dim ws As Worksheet
    Dim wb As Workbook

    Set wb = ThisWorkbook
    Set ws = wb.Sheets("ANData")

    MsgBox ws.Name & " is in " & wb.Name

End Sub