標題: [發問] 開啟網頁後就出錯 [打印本頁]

---

作者: Funnyfox    時間: 2016-12-25 16:52     標題: 開啟網頁後就出錯

在公司電腦要寫控制網頁的VBA程式
只先寫了一點做測試

1. Dim E As Object
   
2.     With CreateObject("InternetExplorer.Application")
   
3.         .Visible = True
   
4.         .Navigate "網址"
   
5.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
   
6.         With .Document
   
7.         End With
   
8.     End With

複製代碼

開啟網頁後 之後在.busy和.document就出現錯誤了
[attach]26214[/attach][attach]26215[/attach]

我自己認為應該不是程式碼的問題吧
因為我在家也是差不多這樣寫就很正常

公司電腦:
Windows XP
Office 2003
無法連到外面網路
連結網頁是.asp

不知原因什麼原因造成錯誤的
懇請協助
謝謝

---

作者: singo1232001    時間: 2017-1-9 02:17

開發人員>vbe>工具>設定引用項目
選
microsoft interner controls
跟
microsoft HTML Object Library
打勾
這個兩個選項只會綁定該檔案

如果有其他的檔案,必須要從新設定

---

作者: singo1232001    時間: 2017-1-9 02:20

不過我也是拼湊組的,試試看這個

1. MyURL = "https://www.yahoo.com.tw"  
   
2. Set MyBrowser = New InternetExplorer
   
3. MyBrowser.Silent = True
   
4. MyBrowser.navigate MyURL
   
5. MyBrowser.Visible = True
   
6. Do
   
7. Loop Until MyBrowser.readyState = READYSTATE_COMPLETE

複製代碼

---

作者: Funnyfox    時間: 2017-1-15 16:41

回復 2# singo1232001


我記得這兩項我也都有開啟了
我再檢查看看
謝謝你

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)