使數據的出口出現了選擇的日期

我有Excel的代碼進入企業內部網：使數據的出口出現了選擇的日期

sub TESTE() 

Dim Data As Date 
Dim ie As Object 

Set ie = CreateObject("InternetExplorer.Application") 
ie.Visible = True 

URL = "(URL address)" 
ie.navigate (URL) 

Data = Date - 1 

ie.document.getElementById("ctl31_ctl04_ctl03_ddDropDownButton").Click ' Calendario 
ie.document.getElementById("ctl31_ctl04_ctl03_txtValue").Value = Format(Data, "dd/mm/yyyy") ' Data 
ie.document.getElementById("ctl31_ctl04_ctl00").Click ' Exibir Relatório 

URL = "(URL address)" 
ie.navigate (URL) 

End Sub

然而，在代碼的最後一行，出口doesn't由所選擇的日期發生，它總是考慮今天。我能做些什麼來使出口考慮選擇日期？

來源

2013-09-27 Leandro Reis

此[鏈接]（http://stackoverflow.com/questions/15959008/import-web-data-in-excel-using-vba/15962055#15962055）可以是有幫助的。 – Santosh

因爲在第二次導航（）之後，您不設置所選日期。你爲什麼導航兩次？ –

對於每個ELE在ie.document.getelementsbytagname（「A」）如果ele.classname = 「ActiveLink」那麼如果ele.innertext = 「EXCEL」然後 ele.Click 退出對於結束如果結束如果下一頁 ie.Visible =真 Application.Wait現在+ TIMEVALUE（「00:00:10」） Application.SendKeys（「％+ S」） Application.Wait現在+ TIMEVALUE（「00:00:10」） ie.Quit 已解決 –

一些按照責任人觸發電子郵件的宏？例如：Fulando負責A類，B類負責B bentrano，我想要一個宏做這種分離並將電子郵件轉發給負責任的權利。

來源

2013-10-03 19:51:24

Sub Extrai_MIS() 

Dim data As Date 
Dim ie As Object 

Set ie = CreateObject("InternetExplorer.Application") 

URL = "(URL address)" 

    Do 
     DoEvents 
    Loop Until ie.readystate = 4 

ie.Visible = True 

data = Range("A4") 

If Range("Q1") < data Then 
ie.Quit 
MsgBox ("Não contém informações nessa data, escolha outra."), vbCritical, "ATENÇÃO:" 
Exit Sub 
End If 

ie.document.getElementById("ctl31_ctl04_ctl03_ddDropDownButton").Click ' Calendario 
ie.document.getElementById("ctl31_ctl04_ctl03_txtValue").Value = Format(data, "dd/mm/yyyy") ' Data 
Application.Wait Now + TimeValue("00:00:10") ' Tempo para carregar a pagina 
ie.document.getElementById("ctl31_ctl04_ctl00").Click ' Exibir Relatório 
    Do 
    DoEvents 
    Loop Until ie.readystate = 4 

    Application.Wait Now + TimeValue("00:00:10") 

    For Each ele In ie.document.getelementsbytagname("a") 
    If ele.classname = "ActiveLink" Then 
    If ele.innertext = "Excel" Then 
    ele.Click 
    Exit For 
      End If 
     End If 
    Next 
ie.Visible = True 
Application.Wait Now + TimeValue("00:00:10") 
Application.SendKeys ("%+s") 
Application.Wait Now + TimeValue("00:00:10") 

ie.Quit 

ChDir Environ("USERPROFILE") & "\Downloads" 
    Workbooks.Open Filename:= _ 
     Environ("USERPROFILE") & "\Downloads\rpt_visoes_orders_today.xls" 
    ThisWorkbook.Activate 
End Sub

來源

2013-10-03 20:03:16

使數據的出口出現了選擇的日期

回答

相關問題