返回列表 上一主題 發帖

關於CreateObject("InternetExplorer.Application")的使用

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-7-25 15:24 | 只看該作者

關於CreateObject("InternetExplorer.Application")的使用

當我放在UserForm1內執行時，會執行非常久都沒反應。
  1. Private Sub CommandButton1_Click()
  2. '帳密驗證
  3.     With CreateObject("InternetExplorer.Application")
  4.         .Navigate "https://tw.yahoo.com"
  5.    
  6.         Do While .Busy Or .ReadyState <> 4
  7.             DoEvents
  8.         Loop
  9.         .Document.all("username").innerText = "A"
  10.         .Document.all("password").innerText = "B"
  11.         .Document.all("submit2").Click
  12.         .Visible = True
  13.     End With
  14.                
  15.     With CreateObject("InternetExplorer.Application")
  16.         .Navigate "https://tw.yahoo.com"
  17.    
  18.         Do While .Busy Or .ReadyState <> 4
  19.             DoEvents
  20.         Loop
  21.         .Document.all("username").innerText = "A"
  22.         .Document.all("password").innerText = "B"
  23.         .Visible = True
  24.     End With
  25. End Sub
複製代碼
收藏 分享

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
2#
發表於 2013-7-25 16:12 | 只看該作者
回復 1# av8d


    問題已解決~重開機即可= =

TOP

handsometrowa

帖子
82 
主題
7 
精華
0 
積分
112 
點名
0  
作業系統
WIN7 
軟體版本
WIN7 
閱讀權限
20 
性別
男 
註冊時間
2013-1-3 
最後登錄
2020-9-21 
3#
發表於 2013-7-29 12:26 | 只看該作者
回復 1# av8d


    請問版友
關於這個物件，是不是EXCEL VBE 說明裡面都找不到阿

我找了整天了說

要建立一個物件 開啟 一個IE  這個  

CreateObject("internetexplorer.application") '使用此方式可以免除 "設定引用項目"

有詳細的說明方式嗎  他後面的幾個屬性

我都想要了解說  謝謝您了^^"

TOP

        靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。
返回列表 上一主題