创建动态数据透视表 问题

Strivalibimore

本人参考《Excel数据透视表应用大全》这本书第9章9.3新字段自动进入数据透视表布局的VBA代码方法，代码如下（代码完全按照书上写的）：

Private Sub Worksheet_Activate()

    Dim pv As PivotTable, rng As Range, dFld As PivotField

    Set pv = Sheet1.[b3].PivotTable

    pv.RefreshTable

    For Each rng In Worksheets("数据源").Range("Data").Rows(1).Cells

        If VBA.InStr(1, strFld, "," & VBA.Trim(rng)) = 0 Then _

            pv.AddDataField pv.PivotFields(rng.Value), "" & rng.Value, xlSum

    Next rng

    pv.ManualUpdate = False

    Application.ScreenUpdating = True

End Sub

Private Sub Worksheet_Deactivate()

    Dim pv As PivotTable

    Set pv = Sheet1.[b3].PivotTable

    For Each dFld In pv.PivotFields

        strFld = strFld & "," & dFld.Name

    Next

End Sub
总是出现如下错误：

不知什么原因，麻烦高手不吝赐教，谢谢

Strivalibimore

经过本人测试，终于发现该段程序的问题了，主要有以下问题：
①dFld As PivotField应放在第二个过程中定义；
②先将“数据源”工作表中的第一行定义为名称“Data”；
③再将“数据源”工作表中的数据区域转化为列表（Excel2010中叫着“表”），即利用该书“创建动态数据透视表”的第二个方法——列表法；
④语句【pv.AddDataField pv.PivotFields(rng.Value), " " & rng.Value, xlSum】中的【"" & rng.Value】这句的双引号中必须要有空格；
⑤在模块中输入的声明语句（Public strFld As String）也可放在第一个过程前。
我已测试通过了改后的程序，并做了部分解释，其代码如下：
Public strFld As String
Private Sub Worksheet_Activate()
    Dim pv As PivotTable, rng As Range
    Set pv = Sheet1.[b3].PivotTable
    pv.RefreshTable
    '在"DataSource"工作表"Data"区域第一行的所有单元格进行循环
    For Each rng In Worksheets("数据源").Range("Data").Rows(1).Cells
        'Trim函数去掉指定字符串的前导和尾随空白后，将该字符串转化为Variant数据类型的字符串
        'InStr函数查找strFld在"," & VBA.Trim(rng)中的位置
        '判断strFld的长度是否为零或是否找到"," & VBA.Trim(rng)
        '若strFld的长度为零或是无法找到"," & VBA.Trim(rng)，
        '则执行Then后的语句
        If VBA.InStr(1, strFld, "," & VBA.Trim(rng)) = 0 Then _
            'PivotTable.PivotFields返回一个字段
            'PivotTable.AddDataField将数据字段pv.PivotFields(rng.Value)添加到数据透视表中，
            '并在数据透视表中将该数据字段更改为" " & rng.Value，
            '对该字段执行指定的分类汇总函数xlSum即总计函数
            pv.AddDataField pv.PivotFields(rng.Value), " " & rng.Value, xlSum
        End If
    Next rng
    pv.ManualUpdate = False
    Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_Deactivate()
    Dim pv As PivotTable, dFld As PivotField
    Set pv = Sheet1.[b3].PivotTable
    For Each dFld In pv.PivotFields
        strFld = strFld & "," & dFld.Name
    Next
End Sub
但我仍然对Set pv = Sheet1.[b3].PivotTable这段语句中的[b3].PivotTable无法理解，希望有人赐教，先谢谢了！