Excel VBA質問箱 IV

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

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


118 / 74366 ←次へ | 前へ→

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

引用なし
パスワード
   いろいろ調べているのですが、手掛かりがつかめません。初めての質問ですがよろしくお願いいたします。

下記コードのPivotCache.Createで Runtime error '13' type mismatch が返ります。
Excel2013英語版(Win7 32bit)、1台のPCで発生し、同2016(Win10 64bit)日本語版の2台のPCでは発生しません。
アドイン上にコードはあり、ブックRSB.xlsm上のシートDBのレコード数が変化するデータベースからシートPRへピボットテーブルを出力する手順です。

Sub SampleCode()
Dim pvtCache As PivotCache
Dim pvtTbl As PivotTable
Dim DBTop As Range
Dim tblTop As Range

Set DBTop = Workbooks("RSB.xlsm").Sheets("DB").Range("A1")
Set tblTop = Workbooks("RSB.xlsm").Sheets("PR").Range("A1")

Workbooks("RSB.xlsm").Sheets("PR").Cells.Delete

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

Set pvtTbl = pvtCache.CreatePivotTable( _
          TableDestination:=tblTop, _
          TableName:="PReport", _
          DefaultVersion:=xlPivotTableVersion12)
....
End Sub

原因の絞り込みに関するヒントなどのご教示をいただけると助かります。

38 hits

【79891】PivotCache.Create で type mismatch エラー hoyahoyamachine 18/5/19(土) 17:07 質問[未読]
【79892】Re:PivotCache.Create で type mismatch エ... γ 18/5/19(土) 17:35 発言[未読]
【79893】Re:PivotCache.Create で type mismatch エ... hoyahoyamachine 18/5/19(土) 17:49 発言[未読]
【79894】Re:PivotCache.Create で type mismatch エ... γ 18/5/19(土) 18:19 発言[未読]
【79897】Re:PivotCache.Create で type mismatch エ... hoyahoyamachine 18/5/19(土) 20:21 発言[未読]
【79895】Re:PivotCache.Create で type mismatch エ... マナ 18/5/19(土) 18:59 発言[未読]
【79896】Re:PivotCache.Create で type mismatch エ... hoyahoyamachine 18/5/19(土) 19:53 発言[未読]
【79898】Re:PivotCache.Create で type mismatch エ... マナ 18/5/19(土) 21:54 発言[未読]
【79899】Re:PivotCache.Create で type mismatch エ... マナ 18/5/20(日) 10:08 発言[未読]
【79900】Re:PivotCache.Create で type mismatch エ... hoyahoyamachine 18/5/21(月) 12:10 お礼[未読]

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