VBA-不存在的Web资源的错误处理（雅虎财务）

Question

My macro generates yahoo ticker download URL's for specific companies. I generate 3 URL's per ticker, each having a different date segment for the data download.

The problem that I have, is that data does not exist for some of the dates, hence an error is returned from Yahoo which causes my Macro to crash.

I've attempted the following with a GOTO label:-

On Error GoTo error_handler
Workbooks.Open Filename:=("http://chart.finance.yahoo.com/table.csv?s=FAN.L&a=2&b=04&c=2014&d=2&e=21&f=2014&g=d&ignore=.csv")

however this does not work, it does not GOTO the label.

Any ideas would be greatly appreciated.

Answer 1

Here is some example of error handling. Replace your code with the Debug.print 5/0 and it should work.

Public Sub ErrorHandlingExample()

    On Error GoTo ErrorHandlingExample_Error

    Debug.Print 5 / 0

    On Error GoTo 0
    Debug.Print "No error"

    Exit Sub

ErrorHandlingExample_Error:

    Debug.Print "Error was found - " & Err.Description

End Sub

Answer 2

Try this:

On Error Resume Next
Workbooks.Open Filename:=("http://chart.finance.yahoo.com/table.csv?s=FAN.L&a=2&b=04&c=2014&d=2&e=21&f=2014&g=d&ignore=.csv")
On Error GoTo error_handler

The On Error Resume Next will allow it to the skip ahead.

Answer 3

Download the file with seperate error handling and then if-check

    If Dir(MyFileName) <> "" Then 
        Workbooks.Open Filename:="C:\123.xls"             
    Else 
        MsgBox "Spreadsheet could not be found in C:\", vbCritical + vbOKOnly, "File not found" 
    End If