楼主:
home0303 (Blue night)
2014-05-23 10:26:38软件: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
请赐教
谢谢
作者: soyoso (我是耀宗) 2014-05-23 11:39:00
若如果没有这个工作表时就执行另一段来看，是否先将全部工作表名用for each..next读入字串内，再配合if+instr来判断