用于登录网站的Excel web查询

Question

我在寻找一个宏/vba代码登录到一个有密码保护的网站，我在网站上有两个密码。我有一些使用internet explorer进入网站的代码，但它不能检索数据，web查询浏览器没有登录，我只登录了internet explorer而没有登录excel web查询浏览器，因为我不能使用我已经创建的web查询连接刷新或更新excel中的数据。

Sub WebLogin()
Dim a As String
Set IE = CreateObject("InternetExplorer.Application")
With IE
    .Visible = True
    .Navigate "https://newtrade.sharekhan.com/rmmweb/login/LoginPage.jsp"
    Do Until .ReadyState = 4
        DoEvents
    Loop
    .Document.all.Item("loginid").Value = "myuserid"
    .Document.all.Item("brpwd").Value = "password1"
    .Document.all.Item("trpwd").Value = "password2"
    .Document.forms(0).submit
End With
IE.Quit
End Sub

那么有没有办法从使用 Internet Explorer 更改为使用此代码并使用 excel Web 查询浏览器，以便它可以自动登录，我只需要刷新已经添加到我的 excel 工作表中的 Web 的外部连接？

P.S我在windows 10上使用Excel 2016 64位版本。

Answer 1

您可以使用此概念登录（几乎）任何网站。

Dim HTMLDoc As HTMLDocument
Dim oBrowser As InternetExplorer
Sub Login_2_Website()

Dim oHTML_Element As IHTMLElement
Dim sURL As String

On Error GoTo Err_Clear
sURL = "https://www.google.com/accounts/Login"
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.timeout = 60
oBrowser.navigate sURL
oBrowser.Visible = True

Do
' Wait till the Browser is loaded
Loop Until oBrowser.readyState = READYSTATE_COMPLETE

Set HTMLDoc = oBrowser.Document

HTMLDoc.all.Email.Value = "[e-mail]"
HTMLDoc.all.passwd.Value = "*****"

For Each oHTML_Element In HTMLDoc.getElementsByTagName("input")
If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For
Next

' oBrowser.Refresh ' Refresh If Needed
Err_Clear:
If Err <> 0 Then
Debug.Assert Err = 0
Err.Clear
Resume Next
End If
End Sub

Answer 2

您需要在登录后获取cookie，以便在以下请求中向网络服务器表明自己的身份。您将始终需要先登录并从浏览器中获取该变量。

使用您发布的代码登录后，抓取您需要的cookie（尝试在浏览器的开发人员工具中使用网络记录器在IExplorer中重新创建您尝试做的事情。然后，您可以在关闭IE后，在HTTP Post请求中将这些cookie传递给服务器。