返回列表 上一主題 發帖

[發問] 樞紐分析表更新資料來源問題

joime

帖子
3 
主題
2 
精華
0 
積分
6 
點名
0  
作業系統
Windows 7 
軟體版本
office 2013 
閱讀權限
10 
性別
男 
註冊時間
2015-11-26 
最後登錄
2016-4-21 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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)
收藏 分享

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
返回列表 上一主題