作者home0303 (Blue night)
看板Office
標題[算表] Excel VBA On Error的用法
時間Fri May 23 10:26:38 2014
軟體:Excel
版本:2007
On Error Resume Next的用法大家都知道的
我現在的需求是,如果出現報錯,除了當句跳過以外
還要多跳過二句
例如
orkbooks.Open Filename:=MM & "\ntrade.xls"
Range(Cells(6, "A"), Cells(100, "I")).Copy
ThisWorkbook.Activate
Sheets("ntrade").Select →這句出現報錯
[A2].Select
Selection.PasteSpecial Paste:=xlValues
Workbooks.Open Filename:=MM & "\comm.xls" →希望接下來執行這句
Range(Cells(6, "A"), Cells(100, "I")).Copy
ThisWorkbook.Activate
Sheets("comm").Select
[A2].Select
Selection.PasteSpecial Paste:=xlValues
請賜教
謝謝
--
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 59.124.41.19
※ 文章網址: http://www.ptt.cc/bbs/Office/M.1400812001.A.12E.html
→ soyoso:用on error goto 05/23 11:00
→ home0303:有想過,但這樣的結構約有10個,可能出現不止一次報錯 05/23 11:25
→ soyoso:若如果沒有這個工作表時就執行另一段來看,是否先將全部工 05/23 11:39
→ soyoso:作表名用for each..next讀入字串內,再配合if+instr來判斷 05/23 11:40
→ home0303:瞭解您的思路,多謝 05/23 14:45