请问这句创建透视表的VBA怎么写??

lsqv

我想在EXCEL中用VBA编写一个自动创建透视表的小过程,但是在实际执行是却出现了"无效的过程调用或参数",不知问题出在什么地方?怎样才能解决?

先谢了

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "销售明细!R1C1:R114C10").CreatePivotTable TableDestination:="[Book2]汇总核对!R6C1", _ TableName:="销售数据透视表", DefaultVersion:=xlPivotTableVersion10

lsqv

录制宏不能解决上述问题,因为这个过程实际上是我修改过的宏过程.请问其他的方法?

lsqv

我要生成指定名字的透视表,而不是生成随机透视表,

taller

ActiveWorkbook.PivotCaches.Add之后用Activesheet.name设定你要求的名字,可以吗?

lsqv

因为随机生成的透视表的名字也是随机的,所以不能用VBA做

FENGJUN

crdotlin 338公仔的做法： ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "[" & thisworkbook.name & "]销售明细!R1C1:R114C10").CreatePivotTable TableDestination:="[Book2]汇总核对!R6C1", _ TableName:="销售数据透视表", DefaultVersion:=xlPivotTableVersion10

似乎存在这样的问题： 初次运行成功。但如果删除刚生成的透视表后再次执行就会报错：无效的过程或参数！

[此贴子已经被作者于2004-6-11 13:26:30编辑过]

lsqv

这就是问题的所在,我想在每一次生成一个指定的EXCEL工作簿后,再生成一个指定的透视表,但用宏只能实现一次,不能重复使用,只有修改下面这个语句才生行(其中strwork是我指定的工作簿).

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "销售明细!R1C1:R114C10").CreatePivotTable TableDestination:="[" & strwork & "]汇总核对!R6C1", _ TableName:="销售数据透视表", DefaultVersion:=xlPivotTableVersion10

不知道这个语句问题出现在什么地方?请大家指教

菱角

dim i as integer dim wb as workbook for i=1 to 10 '生十個 set wb=workbooks.add ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "[" & thisworkbook.name & "]销售明细!R1C1:R114C10").CreatePivotTable TableDestination:="[" & wb.name & "]汇总核对!R6C1", _ TableName:="销售数据透视表", DefaultVersion:=xlPivotTableVersion10 wb.close savechanges:=true next

FENGJUN

以下是引用FENGJUN在2004-6-11 13:26:00的发言：

crdotlin 338公仔的做法： ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "[" & thisworkbook.name & "]销售明细!R1C1:R114C10").CreatePivotTable TableDestination:="[Book2]汇总核对!R6C1", _ TableName:="销售数据透视表", DefaultVersion:=xlPivotTableVersion10

似乎存在这样的问题： 初次运行成功。但如果删除刚生成的透视表后再次执行就会报错：无效的过程或参数！

_______这是个问题 请教版主.

FENGJUN

以下是引用菱角在2004-6-11 14:36:00的发言：

dim i as integer dim wb as workbook for i=1 to 10 '生十個 set wb=workbooks.add ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "[" & thisworkbook.name & "]销售明细!R1C1:R114C10").CreatePivotTable TableDestination:="[" & wb.name & "]汇总核对!R6C1", _ TableName:="销售数据透视表", DefaultVersion:=xlPivotTableVersion10 wb.close savechanges:=true next

引申:

(1) 在多个文件中生成特定名称的多个透视表 Sub MultiPivot() Dim i As Integer Dim wb As Workbook

For i = 1 To 10 '生十個 Set wb = Workbooks.Add ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "[" & ThisWorkbook.Name & "]sheet1!R1C1:R10C3").CreatePivotTable TableDestination:="[" & wb.Name & "]sheet1!R6C1", _ TableName:="销售数据透视表", DefaultVersion:=xlPivotTableVersion10 wb.Close savechanges:=True Next End Sub

(2) 在同一文件的多个工作表中生成特定名称的多个透视表 Sub MultiPivot1() Dim i As Integer Dim wb As Workbook

For i = 1 To 10 '生十個 Set wsht = Worksheets.Add ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "[" & ThisWorkbook.Name & "]sheet1!R1C1:R10C3").CreatePivotTable TableDestination:=wsht.Name & "!R6C1", _ TableName:="销售数据透视表", DefaultVersion:=xlPivotTableVersion10 Next End Sub

[此贴子已经被作者于2004-6-12 10:12:14编辑过]