尝试访问工作表范围时出现 VBA 运行时错误 1004

我正在构建一个小型 vba 脚本，该脚本将多个工作簿中的表合并到另一个工作簿的一个工作表中。当我尝试设置目标范围的值时，出现错误：

wksPivotData.Range(wksPivotData.Cells(CurrentRow, 1)).Resize(tbl.ListRows.Count, tbl.ListColumns.Count).Value = _
    tbl.Range.Value

错误：“运行时错误‘1004’：应用程序定义或对象定义的错误”

我遇到了类似的问题，一般答案是我在this one https://stackoverflow.com/questions/28324921/vba-run-time-error-1004-when-trying-to-copy-paste-cells-in-a-separate-sheet：所选单元格属于另一个工作表，而不是所需的工作表。

虽然这是完全有道理的，但我仍然无法弄清楚为什么我的代码会崩溃，因为我只使用数字参考（CurrentRow是一个长）和Resize，这应该可以防止我犯这样的错误。

此外，我在“立即”窗口中运行了一些快速测试，结果表明，虽然工作表wksPivotData存在，我可以访问它的名称和单元格值，范围函数根本不起作用：

Debug.Print wksPivotData.Name
    PivotData

Debug.Print wksPivotData.Cells(1, 1).Value
    123

这两个都有效，但下一个不起作用：

Debug.Print wksPivotData.Range(1, 1).Value

你的最后一行，Debug.Print wksPivotData.Range(1, 1).Value不会打印，因为你用错了Range()。我猜你想要A1？

使用时Range(1,1)，你指的是一个不存在的范围。如果你想做单元格A1，你需要

With wksPivotData
   myData = .Range(.Cells(1,1),.Cells(1,1)).Value
End with

由于您使用多个工作表，我会使用with声明如上。写同样的东西的另一种方法是wksPivotData.Range(wksPivotData.Cells(1,1),wksPivotData.Cells(1,1))（使用时需要明确告诉Excel要引用哪个工作表Range() and cells().

最后，对于您的调整大小，如果我没记错的话，您将必须添加相同的内容Cell()两次在你的范围内：

wksPivotData.Range(wksPivotData.Cells(CurrentRow, 1),ksPivotData.Cells(CurrentRow, 1)).Resize(tbl.ListRows.Count, tbl.ListColumns.Count).Value = _
    tbl.Range.Value

或者，对于同一件事，但采取不同的方式：

With wksPivotData
    .Range(.Cells(currentRow, 1), .Cells(currentRow, 1)).Resize(tbl.ListedRows.Count, tbl.ListColumns.Count).Value = tbl.Range.Value
End With