EXCEL2000 VBAでGETPIVOTDATA関数を使うには

Excel2000です。
VBAで、GETPIVOTDATA関数を使用したいのですがうまくいきません。
セルですと、例えば=GETPIVOTDATA('sheet1'!A1,"DATA1 DATA2 DATA3")をworksheetfunction.getpivotdata(sheet1.range("A1"), "DATA1 DATA2 DATA3")で表示してもうまくいきません。

代わりに、Seeht1.PivotTables(1).GetData("DATA1 DATA2 DATA3")を記入すると、例えばDATA2（フィールド2）に値がない場合エラーになります。

どなたか、VBAでgetpivotdataと同等な働きをする処理方法を教えていただけませんでしょうか。
よろしくお願いします。

No.2 ベストアンサー 回答者： xls88 回答日時： 2008/10/18 09:19

GETPIVOTDATAはVBAからは使えないようです。

VBAで使用できるワークシート関数一覧
http://www.relief.jp/itnote/archives/001974.php

Application.Evaluateメソッドを使えば良いかもしれません。

この回答へのお礼

回答ありがとうございます。
そうなんですかぁ。でも
Application.Evaluate("=GETPIVOTDATA(Sheet1!A1,""DATA11 DATA2"")")
と、ISERROR関数の組み合わせで結果を得られることができました。

あきらめかけていましたので本当に助かりました。

お礼日時：2008/10/20 13:10

No.1 回答者： xls88 回答日時： 2008/10/08 16:12

こんなのがありましたが関係ないでしょうか。

Office 2000 Service Pack 3 で修正される Excel 2000 の問題
http://support.microsoft.com/kb/326667/ja

この回答へのお礼

ありがとうございます。
確認しましたところ、SP3は入っていましたので、別の問題のようです。。。

お礼日時：2008/10/08 16:37