主题：[求助] 窗体加载的网页，如何屏蔽脚本运行错误？

尽量使修改内核

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=84931&skin=0

贴出你写的代码，或者说明你是如何导入数据的。

或者做一个例子发上来说明。

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("https://kodakalaris.my.salesforce.com/00O16000007eXrD")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

'取数据
Dim Cols() As String = { "第一列","第二列","第三列","第四列","第五列","第六列","第七列","第八列","第九列","第十列","第十一列","第十二列","第十三列","第十四列"}
Dim elems As object = web.Document.GetElementsByTagName("table")(5).GetElementsByTagName("tr")
Dim m As Integer = 0
For Each elem As object In elems
    Dim i As Integer = -1
   
    m = m + 1
    If m > 1 Then
        Tables("临时表").AddNew
    End If
   
    Dim tdelems As object =  elem.GetElementsByTagName("td")
    For Each tdelem As object In tdelems
        i = i + 1
        If Cols(i) = "第三列" OrElse Cols(i) = "第十列" Then
            Tables("临时表").Current(Cols(i)) = tdelem.innerHTML
            '    Tables("临时表").Current(Cols(i)) = tdelem.getattribute("value")
        Else
            Tables("临时表").Current(Cols(i)) = tdelem.Innertext
        End If
    Next
Next
Tables("临时表").save

改成

Tables("临时表").Current(Cols(i)) = tdelem.getattribute("Title")