错误 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