如何使用VBA从网站上获取最近的excel文件?

时间:2016-12-19 14:32:05

标签: vba

我基本上需要帮助自动化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****

0 个答案:

没有答案