来自 NULL #VALUE 的 VBA 代码!归零

Question

我正在使用以下代码从网站检索一些数据。

Public Function giveMeValue(ByVal link As String) As String
   Set htm = CreateObject("htmlFile")

   With CreateObject("msxml2.xmlhttp")
      .Open "POST", link, False
      .send
      htm.body.innerhtml = .responsetext
   End With

   With htm.getelementbyid("JS_topStoreCount")
      giveMeValue = .innerText
   End With

   htm.Close
   Set htm = Nothing
End Function

有时 ID 为 "JS_topStoreCount" 的元素不存在，函数返回 #VALUE! .如何修改此函数以使错误返回为 0并以红色突出显示？

Answer 1

我看不到 Do Loop 的原因所以我删除了它，我添加了一个 if检查 html 元素是否为 nothing 的语句在将其分配给返回值之前。

Public Function giveMeValue(ByVal link As String) As String
Set htm = CreateObject("htmlFile")

With CreateObject("msxml2.xmlhttp")
   .Open "GET", link, False
   .send
   htm.body.innerhtml = .responsetext
End With

If Not htm.getelementbyId("JS_topStoreCount") Is Nothing Then

    giveMeValue = htm.getelementbyId("JS_topStoreCount").innerText

Else

    giveMeValue = "0"

End If

htm.Close
Set htm = Nothing

End Function