- 帖子
- 3
- 主題
- 2
- 精華
- 0
- 積分
- 6
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- office 2013
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2015-11-26
- 最後登錄
- 2016-4-21
|
我有15個樞紐分析表，每個樞紐分析表的篩選欄位都不相同，資料來源都是同一個sheet，但是來源資料每天都會變更。
我利用下列兩種方法，大概跑到sheets(10)左右，皆會出現"執行階段錯誤5:程序呼叫或引數不正確"。
我嘗試過
1.註解掉sheets(10)，但是變成跑到sheet(11)時出現"執行階段錯誤5:程序呼叫或引數不正確"。
2.註解掉sheets(2)、sheets(3)、sheets(4)、sheets(5)、sheets(6)，則可以從sheets(7)~sheets(15)完全跑完，沒有出現錯誤。
因此可以確認不是sheets()引數、與PivotTables()引數的問題。
方法1
For i=2 to sheets.count
Sheets(i).PivotTables("SR" & (i-1)).ChangePivotCache newDatawo.PivotCaches.Create(xlDatabase, sheets(1).UsedRange.Address, xlPivotTableVersion15)
Next
方法2
'SR1
Sheets(2).PivotTables("SR1").ChangePivotCache newDatawo.PivotCaches.Create(xlDatabase, sheets(1).UsedRange.Address, xlPivotTableVersion15)
'SR2
Sheets(3).PivotTables("SR2").ChangePivotCache newDatawo.PivotCaches.Create(xlDatabase, sheets(1).UsedRange.Address, xlPivotTableVersion15)
'SR3
Sheets(4).PivotTables("SR3").ChangePivotCache newDatawo.PivotCaches.Create(xlDatabase, sheets(1).UsedRange.Address, xlPivotTableVersion15)
'SR4
Sheets(5).PivotTables("SR4").ChangePivotCache newDatawo.PivotCaches.Create(xlDatabase, sheets(1).UsedRange.Address, xlPivotTableVersion15)
'SR5
Sheets(6).PivotTables("SR5").ChangePivotCache newDatawo.PivotCaches.Create(xlDatabase, sheets(1).UsedRange.Address, xlPivotTableVersion15)
'SR6
Sheets(7).PivotTables("SR6").ChangePivotCache newDatawo.PivotCaches.Create(xlDatabase, sheets(1).UsedRange.Address, xlPivotTableVersion15)
'SR7
Sheets(8).PivotTables("SR7").ChangePivotCache newDatawo.PivotCaches.Create(xlDatabase, sheets(1).UsedRange.Address, xlPivotTableVersion15)
'SR8
Sheets(9).PivotTables("SR8").ChangePivotCache newDatawo.PivotCaches.Create(xlDatabase, sheets(1).UsedRange.Address, xlPivotTableVersion15)
'SR9
Sheets(10).PivotTables("SR9").ChangePivotCache newDatawo.PivotCaches.Create(xlDatabase, sheets(1).UsedRange.Address, xlPivotTableVersion15)
'SR10
Sheets(11).PivotTables("SR10").ChangePivotCache newDatawo.PivotCaches.Create(xlDatabase, sheets(1).UsedRange.Address, xlPivotTableVersion15)
'SR11
Sheets(12).PivotTables("SR11").ChangePivotCache newDatawo.PivotCaches.Create(xlDatabase, sheets(1).UsedRange.Address, xlPivotTableVersion15)
'SR12
Sheets(13).PivotTables("SR12").ChangePivotCache newDatawo.PivotCaches.Create(xlDatabase, sheets(1).UsedRange.Address, xlPivotTableVersion15)
'SR13
Sheets(14).PivotTables("SR13").ChangePivotCache newDatawo.PivotCaches.Create(xlDatabase, sheets(1).UsedRange.Address, xlPivotTableVersion15)
'SR14
Sheets(15).PivotTables("SR14").ChangePivotCache newDatawo.PivotCaches.Create(xlDatabase, sheets(1).UsedRange.Address, xlPivotTableVersion15)
'SR15
Sheets(16).PivotTables("SR15").ChangePivotCache newDatawo.PivotCaches.Create(xlDatabase, sheets(1).UsedRange.Address, xlPivotTableVersion15) |
|
發表於 2016-4-21 17:41
| 
