返回列表 上一主題 發帖

[發問] VBA有辦法顯示"哪一行"錯誤並加以記錄嗎?

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2014-11-22 00:04 | 只看該作者

[發問] VBA有辦法顯示"哪一行"錯誤並加以記錄嗎?

假設A不懂VBA,B為撰寫者
但A操作此巨集有問題
  1. Sub test()
  2.     Workbooks.Open ("C:\表1.xlsm")
  3.     Workbooks.Open ("C:\表2.xlsm")
  4.     Workbooks.Open ("C:\表3.xlsm")
  5.     Workbooks.Open ("C:\表4.xlsm")
  6. End Sub
複製代碼
有辦法準確的得知哪一行錯誤嗎?
就可以加以紀錄在某sheet內,待程式撰寫者處理?
ex:sheets("Sheet1").range("a1").value= "錯誤的那行程式碼"  or 錯誤的程式碼為第幾行

或是可透過何種方法達成相同效果,(A操作有問題,B不必重新操作即可透過程式得知發生的問題)
收藏 分享
PKKO

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
5#
發表於 2014-11-22 19:39 | 只看該作者
回復 4# luhpro


    感謝大大!
PKKO

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
4#
發表於 2014-11-22 14:44 | 只看該作者
回復 3# PKKO
程式撰寫,本來就要像大大一樣每行都設定偵錯,才有辦法知道哪邊錯誤~?  <===

據我所知 Excel VBA 本身似乎並沒有提供抓取現在執行到第幾列指令之類的函式或系統變數,
這可從系統錯誤訊息只會秀錯誤代碼與錯誤原因來得知.

雖然有單步偵錯模式可以追蹤,
但有時單步模式與實際執行情形還是會有落差.

所以這部分我覺得可能還是要程式設計師自己定義辨別的方式,
最簡單的方法是在每個問題可能發生的關鍵點之前將判斷變數內容設定好,
這樣錯誤處理區才能提供相關訊息(或是顯示相關訊息後, 直接用 Resume Next 略過錯誤)給程式設計師.

實務上我是建議多參考2#中第一種方式將程式簡化,
利用各種方式把相似功能整合在一起處理,
而非純粹用條列循序的方式執行程式,
這樣會比較容易修改及調整程式.

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2014-11-22 02:01 | 只看該作者
回復 2# luhpro


    luhpro 大您好,感謝您的回覆,可能是我主題的部分表達的不清楚
若程式有三百行,或是互相呼叫N個巨集,不太可能用上述的方式撰寫
有其他方式可達成相同效果嗎?

還是說~程式撰寫,本來就要像大大一樣每行都設定偵錯,才有辦法知道哪邊錯誤~?
PKKO

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2014-11-22 00:40 | 只看該作者
本帖最後由 luhpro 於 2014-11-22 00:45 編輯
假設A不懂VBA,B為撰寫者
但A操作此巨集有問題有辦法準確的得知哪一行錯誤嗎?
就可以加以紀錄在某sheet內, ...
PKKO 發表於 2014-11-22 00:04
  1. Sub test()
  2.   Dim iI%
  3.   Dim sFlNm()
  4.   
  5.   On Error GoTo ErrHand
  6.   sFlNm = Array("C:\表1.xlsm", "C:\表2.xlsm", "C:\表3.xlsm", "C:\表4.xlsm")
  7.   For iI = 0 To UBound(sFlNm)
  8.     Workbooks.Open sFlNm(iI)
  9.   Next
  10. Exit Sub

  12. ErrHand:
  13.   sheets("Sheet1").range("a1")= sFlNm(iI)
  14.   Resume Next
  15. End Sub
複製代碼
  1. Sub test()
  2.   Dim iI%
  3.   Dim sFlNm()
  4.   
  5.   On Error GoTo ErrHand
  6.   
  7.   sFlNm = "C:\表1.xlsm"
  8.   Workbooks.Open sFlNm
  9.   
  10.   sFlNm = "C:\表2.xlsm"
  11.   Workbooks.Open sFlNm
  12.   
  13.   sFlNm = "C:\表3.xlsm"
  14.   Workbooks.Open sFlNm
  15.   
  16.   sFlNm = "C:\表4.xlsm"
  17.   Workbooks.Open sFlNm
  18. Exit Sub

  20. ErrHand:
  21.    sheets("Sheet1").range("a1")= sFlNm
  22.   Resume Next
  23. End Sub
複製代碼

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
返回列表 上一主題