麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 樞紐分析表更新資料來源問題 [打印本頁]

作者: joime 時間: 2016-4-21 17:41 標題: 樞紐分析表更新資料來源問題

我有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)

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)