MSC .getElementById或.getElementByClassName

Question

我目前有一些問題，因爲我無法爲我的excel創建適當的VBA代碼，以便將數據從單元格輸入到特定網站。你能幫我一下嗎？

Sub MSC() 

    Dim OrgBox As HTMLInputElement 
    Set objIE = New SHDocVw.InternetExplorer 
    objIE.navigate "http://www.mscgva.ch/tracking/index.html" 
    objIE.Visible = True 
    Do While objIE.readyState < 4: Loop 

    Set OrgBox = objIE.getElementById("InputBox") 
    OrgBox.Value = Range("a1") 
    OrgBox.form.submit 

End Sub 

Answer 1

您試圖控制的元素位於iframe中。要控制一個iframe中的元素，你需要從標籤中提取的src屬性和你的情況導航到URL

 ifr_url = ie.document.getElementsByTagName("iframe")(0).src 

ifr_url =「http://tracking.mscgva.ch/msctracking.php」

一旦在該網頁上你的代碼中插入文本應該管用。