Excel VBA忽略错误

Question

我正在尝试从网站souq获取数据。

代码我用来获取数据是:

des = Trim(Doc.getElementById("description-full").innerText)

但有时网站上只有简短的描述而不是完整的描述，那就是

des = Trim(Doc.getElementById("description-short").innerText)

我想要"简短"的产品描述只有当"完整的描述"不可用时

Answer 1

Dim descr = ""
If Not Doc.getElementbyId("description-full") Is Nothing Then
    descr = Doc.getElementbyId("description-full").innerText
Else
    ' This assumes that html element with id `description-short` is always present on page 
    descr = Doc.getElementbyId("description-short").innerText
End If

Answer 2

您可以尝试这样做:

On Error Resume Next
des = Trim(Doc.getElementById("description-full").innerText)
If des = "" Then
    des = Trim(Doc.getElementById("description-short").innerText)
End if