excel - 查询表认证

Question

我有一个 VBScript，它通过QueryTables. 该脚本工作正常，但 URL 是需要基本身份验证的服务器。因此，当脚本运行时，登录会弹出询问用户名密码。无论如何以编程方式提供此用户名和密码。

我的 QueryTable 是这样的：

Set objWeb = wks.QueryTables.Add(URL,wks.Range("A1"))
With objWeb
    .WebSelectionType = xlSpecifiedTables
    .WebTables = sWebTable
    .Refresh False
    .SaveData = True 
End With

帮帮我...

Answer 1

XMLHttpRequest可能如下所示：

url = "http://www.example.org/"
credentials = "username=jsmith&password=foobar"

Set req = CreateObject("Msxml2.XMLHttp.6.0")
req.open "POST", url, False
req.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
req.send credentials

If req.Status = 200 Then
  html = CreateObject("HTMLFile")
  html.write req.responseText
  'do stuff with HTMLDocument object
End If

您需要更改url为实际的 URL 并credentials根据服务器的要求进行调整。Fiddler之类的工具将帮助您找出凭证字符串的外观。

如果您写入responseText一个HTMLDocument对象，您可以使用常用方法处理标签，例如getElementById()或getElementsByTagName()。