| |
ピボットテーブルを自動で作成するマクロを個別に３０個作成してあります。
その３０個のマクロを１つのマクロにして実行すると、２つ目のピボットテーブルを作成するマクロの途中（PivotCache）でエラーとなってしまいます。
エラー箇所は、以下の☆マークです。
皆さんのお知恵を貸してください。
尚、個別にマクロを実行するとエラーなく正常に終了します。
エラーメッセージ
実行時エラー'-2147417848(80010108)':
'CreatePivotTable' メソッドは失敗しました: 'PivotCache' オブジェクト
以下マクロの抜粋
Sub EUC()
Kill ("C:\EUC\*.xls") '前回ファイルの削除
Call Macro2A
Call Macro2B
Call Macro3A
・
・
・
End Sub
Sub Macro2A()
With ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
.Connection = Array(Array( _
"ODBC;DBQ=C:\EUC\Uriage2008b.mdb;DefaultDir=C:\EUC;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;MaxBufferSize=2048;M" _
), Array( _
"axScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"))
.CommandType = xlCmdSql
.CommandText = Array( _
"SELECT q_200902.ブロック, q_200902.金額, q_200902.計上日付, q_200902.受注事業所, q_200902.数量, q_200902.販売事業所, q_200902.販売店, q_200902.商品, q_200902.商品名" _
& "FROM `C:\EUC\Uriage2008b`.q_200902 q_200902" & Chr(13) & "" & Chr(10) & "WHERE (q_200902.ブロック='2A')" _
)
.CreatePivotTable TableDestination:=Range("A3"), TableName:= _
"ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1", DefaultVersion:=xlPivotTableVersion10
End With
・
・
・
ChDir "C:\EUC"
ActiveWorkbook.SaveAs Filename:="C:\EUC\200902_2A.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close
Workbooks.Add
End Sub
Sub Macro2B()
With ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
.Connection = Array(Array( _
"ODBC;DBQ=C:\EUC\Uriage2008b.mdb;DefaultDir=C:\EUC;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;MaxBufferSize=2048;M" _
), Array( _
"axScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"))
.CommandType = xlCmdSql
.CommandText = Array( _
"SELECT q_200902.ブロック, q_200902.金額, q_200902.計上日付, q_200902.受注事業所, q_200902.数量, q_200902.販売事業所, q_200902.販売店, q_200902.商品, q_200902.商品名" _
& "FROM `C:\EUC\Uriage2008b`.q_200902 q_200902" & Chr(13) & "" & Chr(10) & "WHERE (q_200902.ブロック='2B')" _
)
☆ .CreatePivotTable TableDestination:=Range("A3"), TableName:= _
☆ "ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1", DefaultVersion:=xlPivotTableVersion10
End With
・
・
・
ChDir "C:\EUC"
ActiveWorkbook.SaveAs Filename:="C:\EUC\200902_2B.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close
Workbooks.Add
End Sub
Sub Macro3A()
以下マクロが同様に続きます。
|
|
ひろゆき
- 09/3/2(月) 17:31 -
