gather data from various websites and save it to MS Access.

[talhaparvaiz@yahoo.com]

Hello,
I'm attempting to gather data from various websites and save it to MS Access.
The provided code is provided by one of the experts is functioning to some extent, but it intermittently throws an error. While it successfully extracts data, it occasionally displays an error message when encountering an invalid website. This inconsistency in behavior is causing an issue.






The error message and file is attached:












Thanks

[June7]

Perhaps you should add error handling code. Review http://allenbrowne.com/ser-23a.html

[davegri]

You have to check and see if the tags exist before trying to manipulate them:

    i = InStr(1, htmlContent, "<tr>")
    If i > 0 Then
        htmlContent = Trim$(Mid$(htmlContent, i))
    End If
    i = InStrRev(htmlContent, "</tr>")
    If i > 0 Then
        htmlContent = Trim$(Left$(htmlContent, i - 1))
    End If