MSC .getElementById或.getElementByClassName

我目前有一个问题，因为我不能创build一个适当的VBA代码为我的Excel从单元格input数据到特定的网站。 你可以帮我吗？

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 ”

一旦在该网页上，您的代码插入文本应该工作。