Question

据我所知，这段代码没有任何问题。事实上，在我的一台计算机上它运行得很好，但在另外两台计算机上它没有！所有三个都在不同版本的Windows（7,8.1和10）上运行Excel 2003。

它应该做的是激活搜索，然后加载结果页面并打印结果页面的innerHTML。一台机器（赢得8.1）就是这么做的。另外两个，它打印搜索页面的innerHTML。

我只是不得不放弃我信赖的Excel 2003吗？或者我的Windows安装有问题吗？ W10机器是W10的干净安装。

我的斗智尽头！所以请帮帮我。：）

'This uses early binding
'In menu at top of page - Tools...Reference.... Microsoft Internet Controls      and Microsoft HTML Object Library must both be ticked

Sub main()
sUrl = "https://www.insolvencydirect.bis.gov.uk/FIP1/"
Dim IE As InternetExplorer
Dim doc, element
Set IE = New InternetExplorer

IE.Visible = True


For iii = Asc("A") To Asc("B")  ' *** test use B *** Do A-Z
aaa = Chr(iii)


IE.navigate sUrl

Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE

Set doc = IE.document




 doc.getElementById("IPSurname").Value = aaa

 doc.forms.Item(0).elements(7).Click



'loading new page with data


Do While IE.Busy Or IE.readyState <> 4
DoEvents
Loop

Set doc = IE.document

MyBit = doc.body.innerHTML
Debug.Print MyBit

Next
End Sub

IE页面不更新 - VBA

0 个答案: