Sub InsertErrorHandler() '插入錯(cuò)誤處理代碼,如用于函數(shù)則將Exit Sub修改為Exit Function. SendKeys "On Error Goto Err_Handler" & String(3, Chr(10)) SendKeys "Exit_Proc:" & Chr(10) SendKeys "{Tab}" & "Exit Sub" & Chr(10) SendKeys Chr(10) SendKeys "{BACKSPACE}" & "Err_Handler:" & Chr(10) SendKeys "{Tab}" & "Resume Err_handler" End Sub |
|站長(zhǎng)郵箱|小黑屋|手機(jī)版|Office中國(guó)/Access中國(guó)
( 粵ICP備10043721號(hào)-1 )
GMT+8, 2025-7-17 06:06 , Processed in 0.092381 second(s), 23 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.