如何将ADOD 查询的数据传递给透视表（见附件）

yfzdb

SQL = "SELECT * FROM 款号清单 "
RST.Open SQL, CNN, adOpenKeyset, adLockOptimistic
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=这里要怎么写, Version:=xlPivotTableVersion14).CreatePivotTable _
    TableDestination:="Sheet6!R1C8", TableName:="数据透视表3", DefaultVersion:=xlPivotTableVersion14

以往通过CopyFromRecordset RST 将查询的结果复制到表格里，
现在我想把adod查询的结果直接传递给透视表，通过透视表还可以进行二次分析。
思路是这样，但是数据怎么传递呢？
语句怎么写都不行，，，
还请不吝赐教！！！

已上传附件

[ 本帖最后由 yfzdb 于 2010-8-16 11:53 编辑 ]

cailc1361

请上传附件。。。

yfzdb

附件已上传了。

yfzdb

Dim Tsb As PivotCache  '定义透视表

bt="透视表名"
Set Tsb = ActiveWorkbook.PivotCaches.Add(SourceType:=2)
Set Tsb.Recordset = RST
Set RST = Nothing


If IsTsb(BT) = False Then  '判断是否已存在
With Tsb
    .CreatePivotTable TableDestination:=Range("A10"), TableName:=BT
End With
Else

  如果数据已存在，如何将更新后的数据更新到已有的透视表中？

End If


已找到答案，但新的问题又出现了:
  如果数据已存在，如何将更新后的数据更新到已有的透视表中？
不知谁知道？

yfzdb

补充：If IsTsb(BT) = False Then  '判断透视表是否已存在

yfzdb

判断透视表是否已存在的自定义函数：
Function IsTsb(sh As String) As Boolean
On Error Resume Next
IsTsb = Not ActiveSheet.PivotTables(sh) Is Nothing

End Function