Excel VBA忽略错误

我想从网站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