Question

所以我的最后一个问题太宽泛，所以我会单独攻击每个问题。

我修改了一个宏来搜索谷歌地图上的地址，不幸的是，包含地址的类在“vk_sh vk_bk”和“_erg”之间是不同的（或类似的东西）。

目前它使用以下方式查找“vk_sh vk_bk”：

Dim dd As String
dd = IE.Document.getElementsByClassName("vk_sh vk_bk")(0).innerText

如果您搜索“vk_sh vk_bk”中未包含地址的网页，则会卡住并冻结。

我想写的是一个案例陈述：

if dd = null
Classname = "_erg"
if dd = null (again)
break operation

所以基本上如果它找不到我需要的类，它应该改变我正在寻找的Classname，如果它找不到AGAIN那么它会中断操作，所以它不会冻结。

任何人对我如何写这个都有任何想法？其他一些问题说声明字符串并将其置于循环内，其他日则不同。

Answer 1

Dim dd As String, c

for each c in Array("vk_sh vk_bk", "_erg")
    on error resume next
    dd = IE.Document.getElementsByClassName(c)(0).innerText
    on error goto 0
    If Len(dd) > 0 Then Exit For
Next 

'do something with dd

在VBA中创建案例，其中String等于不同的值

1 个答案: