在VBA中創建字符串等於不同值的案例

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」它卡住並鎖定一個頁面。

我想寫什麼是case語句，其中有云：

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

所以基本上，如果它不能找到我需要它應該改變我在尋找類名的類，並且如果它再次找不到它，那麼它會中斷操作，因此它不會凍結。

任何人有任何想法，我怎麼可以寫這個？其他一些問題則表明要聲明字符串並將其放入循環中，而其他日則不同。

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