Board logo

標題: [發問] 如何略過網頁的錯誤訊息? [打印本頁]
作者: PKKO    時間: 2016-10-7 12:09     標題: 如何略過網頁的錯誤訊息?

下列模組因為網址錯誤，會產生出網頁的錯誤訊息，要如何略過網頁的錯誤訊息呢?
  1. Function test()

  3. On Error Resume Next '即便錯誤繼續也會出現錯誤訊息
  4. ayear = 2016 '從2016開始
  5. stockid = "6244.tw"
  6. With ActiveSheet.QueryTables.Add(Connection:= _
  7.     "TEXT;http://ichart.finance.yahoo.com/table.csv?s=" & stockid & "&a=00&b=4&c=" & ayear & "&d=" & Month(Date) & "&e=" & Day(Date) & "&f=" & Year(Date) & "&g=d&ignore=.csv" _
  8.     , Destination:=Range("A1"))
  9.     .Name = "stockprice"
  10.     .FieldNames = True
  11.     .RowNumbers = False
  12.     .FillAdjacentFormulas = False
  13.     .PreserveFormatting = True
  14.     .RefreshOnFileOpen = False
  15.     .RefreshStyle = xlOverwriteCells
  16.     .SavePassword = False
  17.     .SaveData = True
  18.     .AdjustColumnWidth = True
  19.     .RefreshPeriod = 0
  20.     .TextFilePromptOnRefresh = False
  21.     .TextFilePlatform = 950
  22.     .TextFileStartRow = 2
  23.     .TextFileParseType = xlDelimited
  24.     .TextFileTextQualifier = xlTextQualifierDoubleQuote
  25.     .TextFileConsecutiveDelimiter = False
  26.     .TextFileTabDelimiter = True
  27.     .TextFileSemicolonDelimiter = False
  28.     .TextFileCommaDelimiter = True
  29.     .TextFileSpaceDelimiter = False
  30.     .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1)
  31.     .TextFileTrailingMinusNumbers = True
  32.     .Refresh BackgroundQuery:=False '這個地方只要網址錯誤就會出現錯誤訊息，如何錯誤之後略過錯誤訊息?
  33. End With

  35. End Function
複製代碼




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