VBA中如何实现动态的数据透视表数据源

willylucy

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "处理结果!R1C1:R1000000C10"
改为：
"处理结果!Range("A" & (Range("F" & Rows.Count).End(xlUp).Row), "F" & (Range("F" & Rows.Count).End(xlUp).Row))"

我开始是这样想的，然后就错的离谱了，谁知道为啥错？
然后看到别人是下面这样的，我就留下作为注释来看看：


'Dim strSourceData As String, iR As Integer, iC As Integer

'iR = Sheets("处理结果").Range("A65536").End(xlUp).Row       '获取请假明细工作表最下行的行名称
'iC = Sheets("处理结果").Range("J1").End(xlToLeft).Column   '获取请假明细工作表最右列的列名称

'strSourceData = "请假明细!R1C1:R" & iR & "C" & iC           '生成SourceData的参数(String格式)----这个是预先声明参数的方法，但是不是很实用，不如直接弄10万行就行了
   

Aaron.Ma

這個最後是怎麼解決的？

mavin

版主的方法，VBA获得了一个固定的地址，将来手动调整数据源时，透视表的区域就不对了吧。

应该还是依靠VBA 自定义一个动态数据源（OFFSET），然后创建的透视表引用这个动态数据源。

贴一段我的代码：创建透视表。   


Set sjsht = ActiveSheet  '数据源表
        
'定义数据源名称
    k = 0
    Do
        flag = True
        flag_Z = False  '已经定义过动态数据源
        k = k + 1
        For Each NA In ActiveWorkbook.Names
            If NA.Value = "=OFFSET(" & sjsht.Name & "!$A$1,,,COUNTA(" & sjsht.Name & "!$A:$A),COUNTA(" & sjsht.Name & "!$1:$1))" Then
                flag_Z = True
                NAname = NA.Name
                Exit For
            End If
            If NA.Name = "数据源" & k And flag_Z = False Then
                flag = False
                Exit For
            End If
        Next NA
        
        If flag = True And flag_Z = False Then
            NAname = "数据源" & k   '数据源名称
            ActiveWorkbook.Names.Add Name:=NAname, RefersToR1C1:= _
            "=OFFSET(" & sjsht.Name & "!R1C1,,,COUNTA(" & sjsht.Name & "!C1),COUNTA(" & sjsht.Name & "!R1))"
        End If
    Loop While flag = False And flag_Z = False