[發問] 請問要如何設定讓巨集忽略錯誤，繼續跳下一個執行(以解決)

棋語鳥鳴

1. Sub Macro1()
   
2. '
   
3. ' Macro1 Macro
   
4. '
   
5. 
   
6. '
   
7.     Workbooks.OpenText Filename:= _
   
8.         Range("C4"), Origin:= _
   
9.         950, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
   
10.         ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
    
11.         Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3 _
    
12.         , 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers:=True
    
13.             ActiveWindow.SmallScroll Down:=15
    
14.     Range("F32:G40").Select
    
15.     Selection.Copy
    
16.     Windows("test.xlsb").Activate
    
17.     Sheets("sample1 (1)").Select
    
18.     Range("B2").Select
    
19.     ActiveSheet.Paste
    
20.     Windows("Report.TXT").Activate
    
21.     ActiveWindow.Close
    
22.     Sheets("set print").Select
    
23.     Range("B1").Select
    
24.     Workbooks.OpenText Filename:= _
    
25.         Range("C5"), Origin:= _
    
26.         950, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
    
27.         ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
    
28.         Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3 _
    
29.         , 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers:=True
    
30.             ActiveWindow.SmallScroll Down:=15
    
31.     Range("F32:G40").Select
    
32.     Selection.Copy
    
33.     Windows("test.xlsb").Activate
    
34.     Sheets("sample1 (2)").Select
    
35.     Range("B2").Select
    
36.     ActiveSheet.Paste
    
37.     Windows("Report.TXT").Activate
    
38.     ActiveWindow.Close
    
39.     Sheets("set print").Select
    
40.     Range("B1").Select
    
41.     Workbooks.OpenText Filename:= _
    
42.         Range("C6"), Origin:= _
    
43.         950, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
    
44.         ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
    
45.         Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3 _
    
46.         , 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers:=True
    
47.             ActiveWindow.SmallScroll Down:=15
    
48.     Range("F32:G40").Select
    
49.     Selection.Copy
    
50.     Windows("test.xlsb").Activate
    
51.     Sheets("sample1 (3)").Select
    
52.     Range("B2").Select
    
53.     ActiveSheet.Paste
    
54.     Windows("Report.TXT").Activate
    
55.     ActiveWindow.Close
    
56.     Sheets("set print").Select
    
57.     Range("B1").Select
    
58. End Sub

複製代碼

請問要如何讓此段巨集，出現錯誤時，忽略錯誤，繼續跳下一行執行，不要跳出除錯視窗???
感謝"a8350070" 大大指導~~

a8350070

On Error Resume Next '不偵錯
Macro......
On Error GoTo 0 '回復偵錯