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

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2011-9-26 15:17 | 只看該作者

找不到巨集

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

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

阿江所有報表.zip (37.28 KB)

樓主熱帖

lone_tiger0303

中學生 Rank: 2

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

13^#

發表於 2011-9-29 16:46 | 只看該作者

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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

12^#

發表於 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 = ""

TOP

lone_tiger0303

中學生 Rank: 2

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

11^#

發表於 2011-9-29 12:48 | 只看該作者

已將完整程式附件上傳
內部資料我有刪除

資料彙整2.zip (832.85 KB)

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 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"

TOP

lone_tiger0303

中學生 Rank: 2

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

9^#

發表於 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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章