[發問] IE已設定.Visible仍跳出網頁

請教一下各位VBA高手，利用VBA程式開啟網頁操作這個我會
網頁也設定Visible=False了，但同樣程式碼在不同電腦執行時
卻會有不同結果，有時網頁會跳出來，有時則不會
這讓我還蠻困惑的，因為每次網頁跳出的時候，VBA程式都會出錯
是需要做什麼設定還是可以加入什麼程式碼，讓網頁百分之百不會跳出
希望有高手可以幫忙解惑一下，非常感謝。

Sub test()
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.Navigate "https://www.tpex.org.tw/web/stock/statistics/monthly/st44.php?l=zh-tw"
Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
End With
End Sub

複製代碼

樓主熱帖

smart3135

中學生 Rank: 2

帖子: 96
主題: 18
精華: 0
積分: 125
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2014-3-23
最後登錄: 2022-8-2

2^#

發表於 2020-1-25 00:02 | 顯示全部帖子

本帖最後由 smart3135 於 2020-1-25 00:06 編輯

我一直認為 excel vba 控制網頁都不是一個明智的決定
因為網路上的教學不多而且對剛入手的用戶複雜
我 ...
adrian_9832 發表於 2020-1-22 07:58

您好，我知道python其實很好用，只是因為公司在工作上只能使用EXCEL
沒辦法另外裝其他軟件，所以也沒辦法用python，目前是爬了幾天Google大神
僅有在http://coding-warehouse.logdown.com/posts/193504-get-ie找到解決方法
但公司的電腦這樣設定不是很恰當，有試過在程式碼中加入IE.Quit或Set IE=Nothing
依舊會出錯，不知是否還有其他方式

執行程式碼出錯

目前唯一找到的解決方法

TOP

smart3135

中學生 Rank: 2

帖子: 96
主題: 18
精華: 0
積分: 125
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2014-3-23
最後登錄: 2022-8-2

3^#

發表於 2020-1-30 22:02 | 顯示全部帖子

回復 4# joey0415
Joey大，不好意思，不是很懂您這段程式碼，不知能不能套用在我的程式碼呢？

Sub 工單總數回報()
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = False
.Navigate "公司網址"
Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
With .Document
.ALL("dFrom").Value = "2020/01/05" '開始日期
.ALL("dTo").Value = "2020/01/11" '結束日期
For Each E In .GetElementsBytagName("INPUT")
If E.Value = "查詢" Then
E.Click
Exit For
End If
Next
' .ALL("查詢").Click '按下查詢鍵
End With
Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
.execwb 17, 2
.execwb 12, 2
With ActiveSheet
.Cells.Delete
.[a1].Select
.PasteSpecial Format:="Unicode 文字", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
End With
End With
End Sub

複製代碼

TOP