对象变量未设置错误-Excel VBA

我已经编写了以下代码。我得到以下错误“未设置块变量的对象变量”。我似乎不明白为什么

Dim ResizeRange1 As Long
Dim ResizeRange2 As Long


Dim CurrentWorkSheet As Worksheet
Set CurrenWorkSheet = ActiveWorkbook.Worksheets("RådatatillTable3")

Dim Table1 As ListObject
Dim Table2 As ListObject

Set Table1 = CurrentWorkSheet.ListObjects("Table10")
Set Table2 = CurrentWorkSheet.ListObjects("Table13")

ResizeRange1 = Worksheets("PivotTable3").Cells(2, "D").Value + 1
ResizeRange2 = Worksheets("PivotTable for Tabell2").Cells(2, "H").Value + 1

Table1.Resize CurrentWorkSheet.Range("A1:E" & ResizeRange1)
Table2.Resize CurrentWorkSheet.Range("J1:M" & ResizeRange2)

---

您缺少一个

t

-

设置当前工作表

难以置信。。花了好几个小时想弄明白。谢谢你把它放在每个模块的顶部。它强制执行变量声明，并在编译时报告未声明或拼写错误的变量/常量。要在新模块中自动执行此操作，请在VBA编辑器中设置该选项。这对于VBA开发来说确实是必须的/断线记录