Board logo

標題: [發問] 請問要如何設定讓巨集忽略錯誤，繼續跳下一個執行(以解決) [打印本頁]
作者: 棋語鳥鳴    時間: 2011-7-3 17:11     標題: 請問要如何設定讓巨集忽略錯誤，繼續跳下一個執行(以解決)

本帖最後由 棋語鳥鳴 於 2011-7-15 19:34 編輯
  1. Sub Macro1()
  2. '
  3. ' Macro1 Macro
  4. '

  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    時間: 2011-7-3 18:44

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)