对象变量不能设置错误 - Excel VBA
问题描述：
我写了下面这段代码。我收到以下错误“With block variable not set的对象变量”。我似乎无法弄清楚为什么。对象变量不能设置错误 - 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)
认沽['选项Explicit'（https://msdn.microsoft.com/en-us/library/bw9t3484%28v=vs.84%29 .aspx）放在每个模块的顶部。 它在编译时执行变量声明并报告未声明或拼写错误的变量/常量。 要在新模块中自动执行此操作，请在VBA编辑器中设置[需要变量声明]（http://www.fmsinc.com/microsoftaccess/modules/options/index.html）选项。 这对VBA开发来说确实是必须的。/brokenRecord – Andre