对象变量不能设置错误 - 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)

来源

2017-08-01 Jordan

认沽['选项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

你缺少一个t - Set CurrenWorkSheet

来源

2017-08-01 11:33:52 braX

不相信..花了几个小时试图弄清楚。谢谢 – Jordan

对象变量不能设置错误 - Excel VBA

回答

相关问题