用VBA实现插入数据透视表（程序报错）
答案:1 悬赏:10 手机版
解决时间 2021-01-06 01:57
- 提问者网友：呐年旧曙光
- 2021-01-05 18:09
用VBA实现插入数据透视表（程序报错）
最佳答案
- 五星知识达人网友：玩世
- 2021-01-05 19:12
建立数据透视表用下面的语句就可以了：
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C1:R4C3").CreatePivotTable TableDestination:="", TableName:= _
"数据透视表1", DefaultVersion:=xlPivotTableVersion10你的代码的问题：你先插入了空白表，然后制定数据范围为ActiveSheet.UsedRange，因为这个时候活动表是新插入的，使用空间为空，所以会报错。
追问我不想把source data限定在R1C1:R4C3追答你想设置为多少都可以，明白吗？追问我当然明白。。。我是不想限定在某一范围，而是让它自动选出来，明白吗？追答你要说出来，你想设置为多少，我才可以帮你写代码，不一定是4、3这样的确定数，你可以说A列有内容的最后一行（[A65536).END(XPUP).ROW），你还可以说到第一行有内容的最后一列（MsgBox [IV1].End(xlToLeft).Column）。明白我在说什么吗：你要描述你的需求！
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C1:R4C3").CreatePivotTable TableDestination:="", TableName:= _
"数据透视表1", DefaultVersion:=xlPivotTableVersion10你的代码的问题：你先插入了空白表，然后制定数据范围为ActiveSheet.UsedRange，因为这个时候活动表是新插入的，使用空间为空，所以会报错。
追问我不想把source data限定在R1C1:R4C3追答你想设置为多少都可以，明白吗？追问我当然明白。。。我是不想限定在某一范围，而是让它自动选出来，明白吗？追答你要说出来，你想设置为多少，我才可以帮你写代码，不一定是4、3这样的确定数，你可以说A列有内容的最后一行（[A65536).END(XPUP).ROW），你还可以说到第一行有内容的最后一列（MsgBox [IV1].End(xlToLeft).Column）。明白我在说什么吗：你要描述你的需求！
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯