Board logo

標題: [發問] IE已設定.Visible仍跳出網頁 [打印本頁]
作者: smart3135    時間: 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    時間: 2020-1-22 07:58

我一直認為 excel vba 控制網頁 都不是一個明智的決定
因為網路上的教學 不多 而且對剛入手的用戶複雜
我之前也需要好像你那樣的需要
我嘗試了python  比我想像中容易用 跟理解  如果允許 你可以試試
作者: smart3135    時間: 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
依舊會出錯，不知是否還有其他方式

執行程式碼出錯
[attach]31665[/attach]

目前唯一找到的解決方法
[attach]31666[/attach]
作者: joey0415    時間: 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
複製代碼
作者: adrian_9832    時間: 2020-1-25 16:49

https://play.google.com/books/reader?id=ejyeDwAAQBAJ&hl=zh_TW&pg=GBS.PA22

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

至於最後我跟你一樣的問題 我偷偷在自己的電腦安裝 python  解決了 哈哈  我弄好馬上就把 匯出成EXE  然後解除安裝了
作者: smart3135    時間: 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
複製代碼
作者: joey0415    時間: 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，你自己看程式碼修改看看
如果是公司內網，我沒有看到網桃無法給意見
作者: jcchiang    時間: 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請加於程式最後面



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)