|
いろいろ調べているのですが、手掛かりがつかめません。初めての質問ですがよろしくお願いいたします。
下記コードの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
原因の絞り込みに関するヒントなどのご教示をいただけると助かります。
|
|