※ [本文轉錄自 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