找不到巨集

帖子: 76
主題: 19
精華: 0
積分: 145
點名: 0
作業系統: win xp
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2010-5-24
最後登錄: 2014-6-24

2^#

發表於 2011-9-26 15:43 | 顯示全部帖子

抱歉~~以為已經上傳了

資料彙整-2.zip (495.08 KB)

帖子: 76
主題: 19
精華: 0
積分: 145
點名: 0
作業系統: win xp
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2010-5-24
最後登錄: 2014-6-24

3^#

發表於 2011-9-26 16:53 | 顯示全部帖子

將"-"刪除後執行變成出現
超出索引陣列範圍

帖子: 76
主題: 19
精華: 0
積分: 145
點名: 0
作業系統: win xp
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2010-5-24
最後登錄: 2014-6-24

4^#

發表於 2011-9-26 17:37 | 顯示全部帖子

更改後還是一樣耶~~
超出索引陣列範圍
Run "資料彙整2.xls!Sheet1.CommandButton7_Click"←←問題所在

帖子: 76
主題: 19
精華: 0
積分: 145
點名: 0
作業系統: win xp
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2010-5-24
最後登錄: 2014-6-24

5^#

發表於 2011-9-28 16:28 | 顯示全部帖子

執行時資料彙整2.xls 是在開啟狀態

Sub 匯入資料()
Application.Calculation = xlCalculationManual '手動計算
Workbooks.Open Filename:="C:\Documents and Settings\k1489.KT_DOMAIN\桌面\李鎮江\來源資料\資料彙整2.xls" '開檔
Run "資料彙整2.xls!Sheet1.CommandButton7_Click"
Run "資料彙整2.xls!Sheet2.CommandButton11_Click"
Run "資料彙整2.xls!Sheet3.CommandButton5_Click"
ActiveWorkbook.PrecisionAsDisplayed = False
ActiveSheet.Calculate
End Sub