作者ryanben ()
看板Visual_Basic
标题[算表] VBA的枢纽写法
时间Sun Apr 10 21:21:09 2011
※ [本文转录自 Office 看板 #1DeQtv_s ]
作者: ryanben () 看板: Office
标题: [算表] VBA的枢纽写法
时间: Sun Apr 10 21:17:43 2011
软体:excel
版本:2003 2010
我跟着"办公室Excel VBA 256招"这本书里
想写出枢纽分析
想照个书上的写法
用我自己的data来写出枢纽
想说应该只是改一改栏位名称就好
但是很怪的是
我如果照着书自己写
一定都会有错
但是我把书中附上的范例copy过来 改一改栏位名称
巨集就可以跑
我已经每个字都在核对了,完全都没有错
但是就是用copy的可以跑 ,我自己写的就不能跑
请问有人可以帮我看看吗?
Sub 制作枢纽分析表()
Dim st As Range
Dim fi As PivotCache, se As PivotTable
Set st = Worksheets("dbm").Range("A1").CurrentRegion
Worksheets.Add After:=Worksheets(Sheets.Count)
ActiveSheet.Name = "有够难"
Set fi = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase,_
SourceData:=st)
Set se = fi.CreatePivotTable(TableDestination:=Range("A1"),_
TableName:="Privot1")
With se
.PivotFields("专柜名称").Orientation = xlPageField
.PivotFields("单据名称").Orientation = xlPageField
.PivotFields("品号类别kk").Orientation = xlColumnField
.PivotFields("姓名").Orientation = xlRowField
.PivotFields("标准售价").Orientation = xlDataField
End With
End Sub
不但我自己写的有错,每当我改一改或是重写一次,错的地方居然都不一样
请问为什麽vba会这样呢@@?
最多错误的地方
1.
Set se = fi.CreatePivotTable(TableDestination:=Range("A1"),_
TableName:="Privot1")
错误说明如下!
(执行阶段错误'1004':
枢纽分析表栏位名称无效 若要建立枢纽分析表,必须要使用包含有栏位名称
的清单资料 如果您要变更枢纽分析表栏位的名称 您必须输入新的名称)
我看过我的data的栏位名称,并没有重覆或是有什麽错阿,请问为什麽会这样呢?
先谢谢版上各位大大对我的帮忙
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.115.135.122
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.115.135.122
1F：推 sueadolph:我试的时候是都可以正常执行，不懂你的问题点是什麽？ 04/15 17:44
2F：→ sueadolph:你错误最多的那栏，会有问题的话，也只有你的表格不是a1 04/15 17:45
3F：→ sueadolph:开始。 04/15 17:45