Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2559 / 76807

←次へ　｜　前へ→


	【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)日本語版の２台の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

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

1 hits

▼

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