返回列表 上一主題 發帖

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

smart3135

帖子
96 
主題
18 
精華
0 
積分
125 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2014-3-23 
最後登錄
2022-8-2 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-1-21 23:35 | 顯示全部帖子

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

請教一下各位VBA高手，利用VBA程式開啟網頁操作這個我會
網頁也設定Visible=False了，但同樣程式碼在不同電腦執行時
卻會有不同結果，有時網頁會跳出來，有時則不會
這讓我還蠻困惑的，因為每次網頁跳出的時候，VBA程式都會出錯
是需要做什麼設定還是可以加入什麼程式碼，讓網頁百分之百不會跳出
希望有高手可以幫忙解惑一下，非常感謝。
  1. Sub test()
  2. Set IE = CreateObject("InternetExplorer.Application")
  3.     With IE
  4.         .Visible = True
  5.         .Navigate "https://www.tpex.org.tw/web/stock/statistics/monthly/st44.php?l=zh-tw"
  6.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  7.     End With
  8. End Sub
複製代碼
收藏 分享

smart3135

帖子
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

帖子
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大，不好意思，不是很懂您這段程式碼，不知能不能套用在我的程式碼呢？
  1. Sub 工單總數回報()
  2. Set IE = CreateObject("InternetExplorer.Application")
  3.     With IE
  4.         .Visible = False
  5.        .Navigate "公司網址"
  6.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop

  8.         With .Document
  9.                 .ALL("dFrom").Value = "2020/01/05"    '開始日期
  10.                 .ALL("dTo").Value = "2020/01/11"    '結束日期
  11.                 For Each E In .GetElementsBytagName("INPUT")
  12.                     If E.Value = "查詢" Then
  13.                         E.Click
  14.                         Exit For
  15.                     End If
  16.                 Next
  17. '                .ALL("查詢").Click       '按下查詢鍵
  18.             End With
  19.             Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  20.             .execwb 17, 2
  21.             .execwb 12, 2

  23.         With ActiveSheet
  24.             .Cells.Delete
  25.             .[a1].Select
  26.             .PasteSpecial Format:="Unicode 文字", Link:=False, DisplayAsIcon:= _
  27.             False, NoHTMLFormatting:=True
  28.         End With
  29.     End With
  30. End Sub
複製代碼

TOP

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
返回列表 上一主題