Question

我有进入内联网的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

但是，在代码的最后一行，导出不会在所选日期之前发生，它总是在今天考虑。我该怎么做才能使出口考虑选择日期？

Answer 1

根据负责人触发电子邮件的某些宏？例如：Fulando负责A类，B类bentrano负责，我想要一个宏来做这个分离并转发给负责任的电子邮件。

Answer 2

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

在所选日期进行数据导出

2 个答案: