Board logo

標題: 找不到巨集 [打印本頁]
作者: lone_tiger0303    時間: 2011-9-26 15:17     標題: 找不到巨集

本帖最後由 GBKEE 於 2011-9-26 15:20 編輯

請問GBKEE
當我執行阿江所有報表中的"匯入資料"鍵時會出現
找不到巨集   
"資料彙整-2.xls!Sheet1.CommandButton7_Click"
麻煩您協助解答~~謝謝
另外我的信現在都MAIL不過去
作者: GBKEE    時間: 2011-9-26 15:28

回復 1# lone_tiger0303
請附上  "資料彙整-2.xls"  以便偵錯
作者: lone_tiger0303    時間: 2011-9-26 15:43

抱歉~~以為已經上傳了
作者: GBKEE    時間: 2011-9-26 15:58

回復 3# lone_tiger0303
資料彙整-2.xls  這 - 的關係 ,另存檔名不要有這符號吧
作者: lone_tiger0303    時間: 2011-9-26 16:53

將"-"刪除後執行變成出現
超出索引陣列範圍
作者: GBKEE    時間: 2011-9-26 16:58

回復 5# lone_tiger0303
資料彙整-2.xls-> 改另存檔名:  資料彙整2.xls  ,程式中也要一併更改呀 .
作者: lone_tiger0303    時間: 2011-9-26 17:37

更改後還是一樣耶~~
超出索引陣列範圍
Run "資料彙整2.xls!Sheet1.CommandButton7_Click"←←問題所在
作者: Hsieh    時間: 2011-9-26 20:03

回復 7# lone_tiger0303


    請確認資料彙整2.xls已經開啟
作者: lone_tiger0303    時間: 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
作者: GBKEE    時間: 2011-9-28 17:23

回復 9# lone_tiger0303
請檢查  資料彙整2.xls 中的Sheets
Run "資料彙整2.xls!Sheet1.CommandButton7_Click"
Run "資料彙整2.xls!Sheet2.CommandButton11_Click"
Run "資料彙整2.xls!Sheet3.CommandButton5_Click"
作者: lone_tiger0303    時間: 2011-9-29 12:48

已將完整程式附件上傳
內部資料我有刪除
作者: GBKEE    時間: 2011-9-29 12:57

本帖最後由 GBKEE 於 2011-9-29 13:00 編輯

回復 11# lone_tiger0303
有錯誤時 按F8逐行查看找出錯誤點看看
資料彙整-2.xls-> 改另存檔名:  資料彙整2.xls  ,程式中也要一併更改呀    你沒改正
這是你剛傳上檔案中的程式碼
Workbooks("資料彙整-2.xls").Worksheets("技師保母").Range("d4:k30000").Value = ""
Workbooks("資料彙整-2.xls").Worksheets("技師保母").Range("n4:t30000").Value = ""
Workbooks("資料彙整-2.xls").Worksheets("技師保母").Range("be4:bo30000").Value = ""
作者: lone_tiger0303    時間: 2011-9-29 16:46

抱歉~~傳錯份了
剛剛有用GBKEE老師的方式 按F8 果然發現問題了
另外如有檔名有"-"也會無法執行
又學到一招了
感謝二位老師的熱心協助~~
另外GBKEE老師你的MAIL我傳不過去~~你可以MAIL一封信給我試看看嗎
謝謝



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