VBA创建多重区域数据源透视表

liuhuo

向各位高手求教，感谢先！

在用VBA创建透视表的时候，理论上可以在类型中选择xlConsolidation——多重区域数据源。可是我在调试的时候，创建透视表的那一行语句过不去，提示“类型不匹配”。请问是为什么呢？——我的理解错了么？

代码如下：
Sub createpivottable()
    Dim mypt As PivotTable
    Dim datarange1 As Range, datarange2 As Range, myrange As Range
    Dim datarange
    Dim i As Integer
   
   
    With Sheets(3)
   
        Set myrange = .Cells(3, 3)
   
        Set datarange1 = Sheets(1).UsedRange
        Set datarange2 = Sheets(2).UsedRange
   
        datarange = Array(datarange1, datarange2)
        
       .PivotTableWizard xlConsolidation, datarange , myrange, "mypt"    '该行提示错误 13，类型不匹配
   
   
    End With
End Sub

[ 本帖最后由 liuhuo 于 2010-9-11 10:07 编辑 ]

liuhuo

补充一个疑问：

用vba建透视表，选择多重区域数据源时，对这多个区域有什么要求呢？比如说列数是否要求一样多？是否要求存在标题行？是否要求列顺序一样？

——自己找了不少资料都没有这些问题的详细说明，程序也调不过去，疑惑中。。。
感谢高手指点！！！

gjj136138139

先录个宏试试

liuhuo

感谢帮助！
录制宏的时候不能选择多重区域啊~

从书上看说使用pivotTableWizard的方法可以建立多重数据源，大家成功用过这个方法么？——有更好的方法？

liuhuo

沉得也太快了，自己都找不到了~~~~~~~~~

大侠们指点一下啊！！

taller

可以使用多重数据区域，请使用下面的代码

1. Sub createpivottable()
   
2.     ' Created by taller@ExcelHome
   
3.     Dim myrange As Range
   
4.     Dim datarange() As String
   
5.     Dim i As Integer
   
6.     With Sheets(3)
   
7.         Set myrange = .Cells(3, 3)
   
8.         ReDim datarange(1)
   
9.         For i = 1 To 2
   
10.             With Sheets(i)
    
11.                 datarange(i - 1) = .Name & "!" & .UsedRange.Address(, , xlR1C1)
    
12.             End With
    
13.         Next
    
14.         .PivotTableWizard xlConsolidation, datarange, myrange, "mypt"
    
15.     End With
    
16. End Sub
    

复制代码

liuhuo

太感动了！！不愧是高手啊！！！佩服+感激~~~

能不能这么理解？
pivottablewizard的第二个参数，应该是一个字符串数组，数组的每个元素记录的是区域的地址。而不能够直接放一个区域数组在上面。

经过一番尝试，多个区域之间的统计关系也弄明白了——收获太大了！！！！感动ing

感谢taller版主！！！！！！！！！！！！！！！！！

taller

帮助中有清楚的描述

1. 
   
2. SourceData 可选 Variant 新报表的数据。它可以是一个 Range 对象、一个区域数组或是代表其他报表名称的一个文本常量。对于外部数据库而言，SourceData 是一个包含 SQL 查询字符串的字符串数组，其中的每个元素最长为 255 个字符。您应该使用 Connection 参数指定 ODBC 连接字符串。为了能与旧版本的 Excel 兼容，SourceData 可以是一个二元数组。第一个元素是用于指定数据的 ODBC 源的连接字符串，第二个元素是用于获取数据的 SQL 查询字符串。如果指定 SourceData，则必须同时指定 SourceType。如果活动单元格位于 SourceData 区域内，则必须同时指定 TableDestination

复制代码

nshui

我如果有几十个表，可以用吗？