返回列表 上一主題 發帖

[發問] 如何用下載的方式,卻又可以登入網站?

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-10-25 11:30 | 只看該作者

[發問] 如何用下載的方式,卻又可以登入網站?

小弟已經透過網頁元素可以用下列方式登入成功
  1. Sub TEST()
  2. With CreateObject("InternetExplorer.Application")
  3.     .Visible = True
  4.     .Navigate "https://en.surebet.com/users/sign_in"
  5.     Do While .Busy Or .readyState <> 4: DoEvents: Loop
  6.     With .Document
  7.         .GetElementByid("user_email").Value = "[email protected]" '帳號
  8.         .GetElementByid("user_password").Value = "XXX" '密碼
  9.         .GetElementByid("sign_in_user").Click
  10.     End With
  11. End With
  12. End Sub
複製代碼
但是資料的部分想要用下列的下載方式
  1. Sub TEST2()
  2. Dim QT As QueryTable
  3. Dim WebAddress As String
  4. '登入網址:https://en.surebet.com/users/sign_in
  5. '目的地網址:https://en.surebet.com/surebets/group?controller=surebets&like=562651712
  6. WebAddress = ""

  8. With ThisWorkbook.Worksheets("下載")
  9. .Cells.Clear
  10. Set QT = .QueryTables.Add("URL;" & WebAddress, .range("$A$1"))
  11. End With
  12. With QT
  13. '.PostText = 這邊不知道要如何輸入帳號+密碼
  14. '這邊也不曉得該如何按下登入的按鈕
  15. '以及不曉得登入之後要如何轉向第二個網址?
  16. .WebTables = "2"
  17. .Refresh False
  18. .Delete
  19. End With
  20. End Sub
複製代碼
但卻無法登入網站,請問要如何透過下載的方式來登入網站並轉換第二個網址呢?
還是有大大可以透過第一個網頁元素的方式,然後透過該ie直接用第二個方式下載?
收藏 分享
PKKO

        靜思自在 : 為人處世要小心細心，但不要「小心眼」。
返回列表 上一主題