Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


22 / 13144 ツリー ←次へ | 前へ→

【79891】PivotCache.Create で type mismatch エラー hoyahoyamachine 18/5/19(土) 17:07 質問[未読]

【79899】Re:PivotCache.Create で type mismatch エ... マナ 18/5/20(日) 10:08 発言[未読]
【79900】Re:PivotCache.Create で type mismatch エ... hoyahoyamachine 18/5/21(月) 12:10 お礼[未読]

【79899】Re:PivotCache.Create で type mismatch...
発言  マナ  - 18/5/20(日) 10:08 -

引用なし
パスワード
   ▼hoyahoyamachine さん:

ht tps://msdn.microsoft.com/ja-jp/vba/excel-vba/articles/pivotcaches-create-method-excel?f=255&MSPPError=-2147217396

ここでは、

> 文字列を使用してブック、ワークシート、およびセル範囲を指定するか、
> 名前付き範囲を設定して名前を文字列として渡すことをお勧めします。
> Range オブジェクトを渡すと、"型の不一致" エラーが予期せず発生します。

としか記載されていませんが
検索すると、↓を指定している事例ばかりでしたので、
ReferenceStyle:=xlR1C1

もし、うまくいかない場合は、試してみてください。

【79900】Re:PivotCache.Create で type mismatch...
お礼  hoyahoyamachine  - 18/5/21(月) 12:10 -

引用なし
パスワード
   ▼マナ さん:
>▼hoyahoyamachine さん:
>
>ht tps://msdn.microsoft.com/ja-jp/vba/excel-vba/articles/pivotcaches-create-method-excel?f=255&MSPPError=-2147217396
>
>ここでは、
>
>> 文字列を使用してブック、ワークシート、およびセル範囲を指定するか、
>> 名前付き範囲を設定して名前を文字列として渡すことをお勧めします。
>> Range オブジェクトを渡すと、"型の不一致" エラーが予期せず発生します。
>
>としか記載されていませんが
>検索すると、↓を指定している事例ばかりでしたので、
>ReferenceStyle:=xlR1C1
>
>もし、うまくいかない場合は、試してみてください。

たいへんご丁寧なアドバイスありがとうございました。

ピボットテーブル作成のマクロ記録を眺めると、SourceTypeとTableDestinationは外部参照かつR1C1形式の文字列で記録されおり、
貴方アドバイスの二条件を追加した以下のコードでうまくいきました。

Set pvtCache = Workbooks("RSB.xlsm").PivotCaches.Create( _
          SourceType:=xlDatabase, _
          SourceData:=DBTop.CurrentRegion.Address(External:=True, ReferenceStyle:=xlR1C1), _
          Version:=xlPivotTableVersion12)

Set pvtTbl = pvtCache.CreatePivotTable( _
          TableDestination:=tblTop.Address(External:=True, ReferenceStyle:=xlR1C1), _
          TableName:="PReport", _
          DefaultVersion:=xlPivotTableVersion12)

他のコード上にあるメッソドでも範囲指定のパラメータにRangeオブジェクトを書いていて、本来エラーだけどもエラーが発生していない場合があるかもしれないと、ナニゲに思った次第です。

22 / 13144 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free