为什么我不能按名称访问工作表？

Question

我使用的是 Excel 2013。我可以通过遍历工作表并检查 Name 属性来访问工作表，但我无法通过使用工作表名称作为键单独找到它。

我真的必须遍历所有工作表，然后遍历所有数据透视表才能找到我需要刷新的那个吗？

这行得通：

Dim oWorksheet As Worksheet
Dim oPivot As PivotTable

For Each oWorksheet In ActiveWorkbook.Worksheets
    If oWorksheet.Name = "FPSpivot" Then
        For Each oPivot In oWorksheet.PivotTables
            oPivot.PivotCache.Refresh
        Next oPivot
    End If
Next oWorksheet

这不起作用：

Dim oWorksheet As Worksheet
oWorksheet = ActiveWorkbook.Worksheets("FPSpivot")

我得到了老栗子：

对象变量或未设置块变量。

为什么？

理想情况下，我只想要一行：

ActiveWorkbook.Worksheets("FPSpivot").PivotTables("FPSpivot").PivotCache.Refresh

这一定是可能的吗？

Answer 1

错误

对象变量或With块变量未设置。

发生是因为如果您使用对象需要使用Set。

Dim oWorksheet As Worksheet
Set oWorksheet = ActiveWorkbook.Worksheets("FPSpivot")

另外：
你确定你的意思是ActiveWorkbook（具有焦点/在顶部的工作簿）还是你的意思是ThisWorkbook（编写代码的工作簿）？有很大的不同，在大多数情况下你需要ThisWorkbook。