VBA - Pesquisar na WEB DataPicker
Enviado: Dom Nov 18, 2018 4:13 pm
Pessoal, Boa Tarde!
Sou novo no Fórum e tb não sou programador, sou curioso. As coisas que preciso eu pesquiso e descubro como fazer, entretanto, estou tentando importar informações da Web através de VBA (HTMLDocument) e estou tendo problemas.
O que quero fazer primeiramente é conseguir colocar no campo data do site em questão uma determinada data e depois clicar em pesquisar, acontece que, acredito eu, devido o objeto ser DatePicker não estou sabendo como fazer para colocar a data que quero no campo dData1 e depois quero clicar no botão OK que tb não encontrei como localizá-lo no HTML.
Poderiam me ajudar, por favor?
Campo do Site
<input type="text" name="dData1" id="dData1" placeholder="dd/mm/aaaa" class="datepicker hasDatepicker" onkeypress="javascript:mask_data('2','0',true,frmBD);" value="" maxlength="10">
Código que estou tentando usar. da a mensagem "Erro em tempo de execução 438 O objeto não aceita esta propriedade ou métodos".
Dim dData As Date
dData = "13/11/2018"
Dim IE As New InternetExplorer
IE.Visible = True
IE.navigate "http://www.bmfbovespa.com.br/pt_br/serv ... ticipante/"
Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Dim Doc As HTMLDocument
Set Doc = IE.document
IE.document.getElementsByName("dData1").innerText = dData
Sou novo no Fórum e tb não sou programador, sou curioso. As coisas que preciso eu pesquiso e descubro como fazer, entretanto, estou tentando importar informações da Web através de VBA (HTMLDocument) e estou tendo problemas.
O que quero fazer primeiramente é conseguir colocar no campo data do site em questão uma determinada data e depois clicar em pesquisar, acontece que, acredito eu, devido o objeto ser DatePicker não estou sabendo como fazer para colocar a data que quero no campo dData1 e depois quero clicar no botão OK que tb não encontrei como localizá-lo no HTML.
Poderiam me ajudar, por favor?
Campo do Site
<input type="text" name="dData1" id="dData1" placeholder="dd/mm/aaaa" class="datepicker hasDatepicker" onkeypress="javascript:mask_data('2','0',true,frmBD);" value="" maxlength="10">
Código que estou tentando usar. da a mensagem "Erro em tempo de execução 438 O objeto não aceita esta propriedade ou métodos".
Dim dData As Date
dData = "13/11/2018"
Dim IE As New InternetExplorer
IE.Visible = True
IE.navigate "http://www.bmfbovespa.com.br/pt_br/serv ... ticipante/"
Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Dim Doc As HTMLDocument
Set Doc = IE.document
IE.document.getElementsByName("dData1").innerText = dData