对象variables不能设置错误 – Excel VBA

我写了下面这段代码。 我得到以下错误“With block variable not set的对象variables”。 我似乎无法弄清楚为什么。

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) 

Answer 1

你缺less一个t – Set CurrenWorkSheet