返回列表 上一主題 發帖

[發問] 開啟網頁後就出錯

Funnyfox

帖子
4 
主題
2 
精華
0 
積分
50 
點名
0  
作業系統
Windows7 
軟體版本
Office 2010 
閱讀權限
20 
註冊時間
2016-12-25 
最後登錄
2022-7-26 

論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 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就出現錯誤了


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

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

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

Funnyfox

帖子
4 
主題
2 
精華
0 
積分
50 
點名
0  
作業系統
Windows7 
軟體版本
Office 2010 
閱讀權限
20 
註冊時間
2016-12-25 
最後登錄
2022-7-26 

論壇贊助勳章
4#
發表於 2017-1-15 16:41 | 只看該作者
回復 2# singo1232001


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

TOP

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

帖子
354 
主題
5 
精華
0 
積分
387 
點名
0  
作業系統
windows7 
軟體版本
vba,vb,excel2007 
閱讀權限
20 
性別
男 
註冊時間
2017-1-8 
最後登錄
2024-8-2 

論壇榮譽勳章論壇贊助勳章
3#
發表於 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
複製代碼

TOP

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

帖子
354 
主題
5 
精華
0 
積分
387 
點名
0  
作業系統
windows7 
軟體版本
vba,vb,excel2007 
閱讀權限
20 
性別
男 
註冊時間
2017-1-8 
最後登錄
2024-8-2 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2017-1-9 02:17 | 只看該作者
開發人員>vbe>工具>設定引用項目
選
microsoft interner controls
跟
microsoft HTML Object Library
打勾
這個兩個選項只會綁定該檔案

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

TOP

        靜思自在 : 犯錯出懺悔心，才能清淨無煩惱。
返回列表 上一主題