Question

我正在尝试打开网站，单击下载按钮，保存excel文件（不必要），复制数据并将其粘贴到工作簿上的新表中。

复制粘贴部分工作（当然是简单的东西），但我不确定为什么它不下载文件。不确定它是IE部分还是点击部分。

这是我们4人团队的一个项目，这是我们每天必须做的事情，而且很耗时（我需要为其他16个网站做这个），我希望将这个自动化作为节日礼物送给我的团队所以我们可以专注于分析数据而不是拉动数据。

第一次海报，温柔。

Sub OpData()

With CreateObject("InternetExplorer.Application")
    .Visible = False
    .Navigate "http://passportebb.elpaso.com/ebbmasterpage/Capacity/OperAvailAutoTable.aspx?code=EPNG&name=Operationally%20Available%20Capacity&status=Cap&sParam2=12/20/2014&sParam3=12/20/2014&sParam4=1&sParam5=2&sParam9=S"
    While Not .ReadyState = 4: DoEvents: Wend
        .Document.GetElementByID("ctl00_WebSplitter1_tmpl1_ContentPlaceHolder1_sumBtnDownload").Click
        Application.Wait Now + TimeSerial(0, 0, 10) 
        .Quit
    End With

    Set WB = Workbooks.Open("C:\Users\" & "YXCD" & "\Downloads\OperationallyAvailableCapacity.xls") 
    WB.Sheets(1).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    WB.Close False
    Set WB = Nothing

End Sub

不确定IE是否未打开或文件是否未下载

0 个答案: