[發問] 如何略過網頁的錯誤訊息?

PKKO

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

1. Function test()
   
2. 
   
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
    
34. 
    
35. End Function

複製代碼