返回列表 上一主題 發帖

[發問] 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
複製代碼
收藏 分享

adrian_9832

帖子
79 
主題
19 
精華
0 
積分
148 
點名
0  
作業系統
WINDOW7 
軟體版本
EXCEL 2003 
閱讀權限
20 
性別
男 
註冊時間
2017-5-21 
最後登錄
2023-3-13 
2#
發表於 2020-1-22 07:58 | 只看該作者
我一直認為 excel vba 控制網頁 都不是一個明智的決定
因為網路上的教學 不多 而且對剛入手的用戶複雜
我之前也需要好像你那樣的需要
我嘗試了python  比我想像中容易用 跟理解  如果允許 你可以試試

TOP

smart3135

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

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
4#
發表於 2020-1-25 16:22 | 只看該作者
請教一下各位VBA高手，利用VBA程式開啟網頁操作這個我會
網頁也設定Visible=False了，但同樣程式碼在不同電 ...
smart3135 發表於 2020-1-21 23:35
  1. Sub test()
  2.     年 = 2019
  3.     股票代碼 = 1259
  4.     Cells.Clear
  5.     Dim oXML As Object
  6.     Set oXML = CreateObject("WinHttp.WinHttpRequest.5.1")

  8.     Dim oHTML As Object
  9.     Set oHTML = CreateObject("HTMLFile")

  11.     With oXML
  12.         .Open "POST", "https://www.tpex.org.tw/web/stock/statistics/monthly/result_st44.php?l=zh-tw", 0
  13.         .setRequestHeader "Content-Type", "application/x-www-form-urlencoded;"
  14.         .setRequestHeader "Origin", "https://www.tpex.org.tw"
  15. '        .send "ajax=true&l=zh-tw&yy=2020&input_stock_code=1258"
  16.         .send "ajax=true&l=zh-tw&yy=" & 年 & "&input_stock_code=" & 股票代碼
  17.         oHTML.body.innerHTML = convertraw(.responseBody, "UTF-8")
  18.         Debug.Print oHTML.body.innerHTML
  19.     End With

  21.     Dim oTable As Object, oRow As Object, oCell As Object
  22.     Dim i As Integer, j As Integer

  24.     Set oTable = oHTML.getElementsByTagName("table")(2)
  25.     i = 1
  26.     For Each oRow In oTable.Rows
  27.         j = 1
  28.         For Each oCell In oRow.Cells
  29.             Cells(i, j).Value = oCell.innerText
  30.             j = j + 1
  31.         Next oCell
  32.     i = i + 1
  33.     Next oRow

  35.     Set oHTML = Nothing
  36.     Set oXML = Nothing
  37. End Sub

  39. Function convertraw(rawdata, char)
  40.     Dim rawstr
  41.     Set rawstr = CreateObject("adodb.stream")
  42.     With rawstr
  43.       .Type = 1
  44.       .Mode = 3
  45.       .Open
  46.       .Write rawdata
  47.       .Position = 0
  48.       .Type = 2
  49.       .Charset = char
  50.       convertraw = .ReadText
  51.       .Close
  52.     End With
  53.     Set rawstr = Nothing
  54. End Function
複製代碼

TOP

adrian_9832

帖子
79 
主題
19 
精華
0 
積分
148 
點名
0  
作業系統
WINDOW7 
軟體版本
EXCEL 2003 
閱讀權限
20 
性別
男 
註冊時間
2017-5-21 
最後登錄
2023-3-13 
5#
發表於 2020-1-25 16:49 | 只看該作者
https://play.google.com/books/reader?id=ejyeDwAAQBAJ&hl=zh_TW&pg=GBS.PA22

你可以試下看下這本書   可能有些幫助的 playstore 有試閱,

至於最後我跟你一樣的問題 我偷偷在自己的電腦安裝 python  解決了 哈哈  我弄好馬上就把 匯出成EXE  然後解除安裝了

TOP

smart3135

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

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
7#
發表於 2020-1-31 12:15 | 只看該作者
本帖最後由 joey0415 於 2020-1-31 12:17 編輯
回復  joey0415
Joey大，不好意思，不是很懂您這段程式碼，不知能不能套用在我的程式碼呢？
smart3135 發表於 2020-1-30 22:02

https://www.tpex.org.tw/web/stock/statistics/monthly/result_st44.php?l=zh-tw

上面的程式碼可以抓網頁
也可以指定日期

網頁的抓取法分成

IE法與XMLHTTP等幾大類
我採用XMLHTTP，你自己看程式碼修改看看
如果是公司內網，我沒有看到網桃無法給意見

TOP

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
8#
發表於 2020-2-3 12:51 | 只看該作者
回復 1# smart3135
你提出的這段程式我也有使用,並沒有你說的情況
而在不同電腦執行有時會出現異常,是不是因為電腦效能不同,網頁開啟的速度差異造成
因為有些網頁並無法使用"Do While .Busy Or .ReadyState <> 4: DoEvents: Loop"判斷網頁是否已完整開啟
建議可增加Application.Wait Now + TimeValue("00:00:30"),多等待一些時間
而IE.Quit & Set IE=Nothing請加於程式最後面

TOP

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
返回列表 上一主題