我基本上需要帮助自动化excel文件下载/从需要用户名和网站的网站上提取最新的.xls文件。密码。以下是我到目前为止的情况。不知道从我已有的地方继续下去。任何帮助将不胜感激。感谢!!!
Sub GetExcelFileDownload()
Dim ieApp As InternetExplorer
Dim ieDoc As Object
'CREATE A NEW INSTANCE OF IE
Set ieApp = New InternetExplorer
'SHOW THE IE WINDOW
'ieApp.Visible = True
'DIRECT TO NEW PAGE
ieApp.Navigate "https://*******.****.com/*******_login.asp"
Do While ieApp.Busy: DoEvents: Loop
Do Until ieApp.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
Set ieDoc = ieApp.Document
'LOGIN TO PAGE
With ieDoc.forms(0)
.uid.Value = "**********"
.pwd.Value = "********"
.submit
End With
Do While ieApp.Busy: DoEvents: Loop
Do Until ieApp.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
'*****DOWNLOAD A NEW GAME*****
'COVER SHEET
ieApp.Navigate "https://*************/*******/*******_reports.asp"
Do While ieApp.Busy: DoEvents: Loop
Do Until ieApp.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop****