VBA setRequestHeader"；“授权”；弱点
我试图用下面的代码连接到Web数据库，但在VBA中自动运行时，它似乎不起作用。登录名和密码都很好，因为我可以手动连接它们 对象“WinHttp.WinHttpRequest.5.1”是否可能不适用于这种数据库连接？或者我的Connect sub中缺少一个参数？在这件事上的任何帮助都将不胜感激VBA setRequestHeader"；“授权”；弱点,vba,excel,http,msxml,winhttp,Vba,Excel,Http,Msxml,Winhttp,我试图用下面的代码连接到Web数据库，但在VBA中自动运行时，它似乎不起作用。登录名和密码都很好，因为我可以手动连接它们 对象“WinHttp.WinHttpRequest.5.1”是否可能不适用于这种数据库连接？或者我的Connect sub中缺少一个参数？在这件事上的任何帮助都将不胜感激 Sub Connect() Dim oHttp As Object Set oHttp = CreateObject("WinHttp.WinHttpRequest.5.1") Call oHttp.Op
Sub Connect()
Dim oHttp As Object
Set oHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
Call oHttp.Open("GET", "http://qrdweb/mg/loan/loans.html?show=all", False)
oHttp.setRequestHeader "Content-Type", "application/xml"
oHttp.setRequestHeader "Accept", "application/xml"
oHttp.setRequestHeader "Authorization", "Basic " + Base64Encode("login123" + ":" + "pass123")
Call oHttp.send
Sheets("Sheet1").Cells(1, 1).Value = oHttp.getAllResponseHeaders
Sheets("Sheet1").Cells(1, 2).Value = oHttp.ResponseText
End Sub
Private Function Base64Encode(sText)
Dim oXML, oNode
Set oXML = CreateObject("Msxml2.DOMDocument.3.0")
Set oNode = oXML.createElement("base64")
oNode.DataType = "bin.base64"
oNode.nodeTypedValue = StringToBinary(sText)
Base64Encode = oNode.Text
Set oNode = Nothing
Set oXML = Nothing
End Function
Private Function StringToBinary(Text)
Const adTypeText = 2
Const adTypeBinary = 1
Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")
BinaryStream.Type = adTypeText
BinaryStream.Charset = "us-ascii"
BinaryStream.Open
BinaryStream.WriteText Text
'Change stream type To binary
BinaryStream.Position = 0
BinaryStream.Type = adTypeBinary
'Ignore first two bytes - sign of
BinaryStream.Position = 0
StringToBinary = BinaryStream.Read
Set BinaryStream = Nothing
End Function
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1"/>
<title>Error 401 Server Error</title>
</head>
<body>
<html>
<head>
<title>M&M - Loan Viewer</title>
<script language="javascript" type="text/javascript">
function showTransactionComments(loanId, date, type, commentsTableWidth) {
//alert(loanId + " " + date + " " + type + " " + commentsTableWidth);
if (window.ActiveXObject) {
return;
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1"/>
<title>Error 401 Server Error</title>
</head>
<body>
<html>
<head>
<title>M&M - Loan Viewer</title>
<script language="javascript" type="text/javascript">
function showTransactionComments(loanId, date, type, commentsTableWidth) {
//alert(loanId + " " + date + " " + type + " " + commentsTableWidth);
if (window.ActiveXObject) {
return;
OpenSendSub-digest（）
将http设置为WinHttpRequest'***而不是“新建”-您可以在下面执行此操作
作为字符串的Dim strResponse
设置http=New-WinHttpRequest
http.Open“GET”http://qrdweb/mg/loan/loans.html?show=all”“错
http.Send'***请先在没有身份验证的情况下尝试
如果是http.Status 401，则退出Sub'***或执行其他操作
http.Open“GET”http://qrdweb/mg/loan/loans.html?show=all”“错
'***另一个打开，与JScript示例相同
http.SetCredentials“login123”，“pass123”，用于\u服务器的HTTPREQUEST\u SetCredentials\u
http.Send
MsgBox CStr（http.Status）&“&http.StatusText'***仅用于检查
Sheets（“Sheet1”）.单元格（1，1）.Value=http.getAllResponseHeaders
Sheets（“Sheet1”）.单元格（1，2）.Value=http.ResponseText
“***不知道这两行是干什么用的——我已经把它们注释掉了。”
'http.Open“PROPFIND”http://qrdweb/mg/loan/loans.html?show=all”“错
'http.send
端接头
WWW-Authenticate:Digest