Excel文件中的button使用（用户名，密码）使用VBA刷新WordPress上文件的数据

我有一个Excel文件，其中的数据将从WordPress网站的文件中加载。 我已经实现了这个VBA cide，但它直接从链接下载，即使没有任何凭据。

Sub DownloadFile() Dim myURL As String myURL = "http://www. **.com/wp-content/uploads/ExportFiles/data.xlsx" Dim username As Variant Dim password As Variant username = InputBox("Enter Username") password = InputBox("Enter Password") Dim WinHttpReq As Object Set WinHttpReq = CreateObject("Microsoft.XMLHTTP") WinHttpReq.Open "GET", myURL, False, username, password WinHttpReq.send myURL = WinHttpReq.responseBody If WinHttpReq.Status = 200 Then Set oStream = CreateObject("ADODB.Stream") oStream.Open oStream.Type = 1 oStream.Write WinHttpReq.responseBody oStream.SaveToFile "E:\data.xlsx", 2 ' 1 = no overwrite, 2 overwrite oStream.Close End If Dim ws As Worksheet Dim filter As String Dim targetWorkbook As Workbook, wb As Workbook Dim Ret As Variant Set targetWorkbook = Application.ActiveWorkbook 'If Ret = False Then Exit Sub Ret = "E:\data.xlsx" Set wb = Workbooks.Open(Ret) wb.Sheets(1).Move After:=targetWorkbook.Sheets(targetWorkbook.Sheets.Count) ActiveSheet.Name = "DATA" 

结束小组