Ir para conteúdo
Fórum Script Brasil

Pesquisar na Comunidade

Mostrando resultados para as tags ''ie''.

  • Pesquisar por Tags

    Digite tags separadas por vírgulas
  • Pesquisar por Autor

Tipo de Conteúdo


Fóruns

  • Programação & Desenvolvimento
    • ASP
    • PHP
    • .NET
    • Java
    • C, C++
    • Delphi, Kylix
    • Lógica de Programação
    • Mobile
    • Visual Basic
    • Outras Linguagens de Programação
  • WEB
    • HTML, XHTML, CSS
    • Ajax, JavaScript, XML, DOM
    • Editores
  • Arte & Design
    • Corel Draw
    • Fireworks
    • Flash & ActionScript
    • Photoshop
    • Outros Programas de Arte e Design
  • Sistemas Operacionais
    • Microsoft Windows
    • GNU/Linux
    • Outros Sistemas Operacionais
  • Softwares, Hardwares e Redes
    • Microsoft Office
    • Softwares Livres
    • Outros Softwares
    • Hardware
    • Redes
  • Banco de Dados
    • Access
    • MySQL
    • PostgreSQL
    • SQL Server
    • Demais Bancos
  • Segurança e Malwares
    • Segurança
    • Remoção De Malwares
  • Empregos
    • Vagas Efetivas
    • Vagas para Estágios
    • Oportunidades para Freelances
  • Negócios & Oportunidades
    • Classificados & Serviços
    • Eventos
  • Geral
    • Avaliações de Trabalhos
    • Links
    • Outros Assuntos
    • Entretenimento
  • Script Brasil
    • Novidades e Anúncios Script Brasil
    • Mercado Livre / Mercado Sócios
    • Sugestões e Críticas
    • Apresentações

Encontrar resultados em...

Encontrar resultados que...


Data de Criação

  • Início

    FIM


Data de Atualização

  • Início

    FIM


Filtrar pelo número de...

Data de Registro

  • Início

    FIM


Grupo


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

Encontrado 6 registros

  1. Olá, estou usando um código VBA para pegar uma informação de uma página web. O código VBA segue os seguintes passos: 1. Abre uma página web (a página default mostra os dados para a data de ontem 11/04/2018) 2. Preenche o campo de data com o valor 09/04/20214 3. Clica no botão OK 4. Pega um valor da página que foi carregada depois do clique no botão OK O problema é que o valor retornado não é o valor que foi atualizado depois do clique do botão e sim o valor que já estava na página default. A página mostrada no IE está com o valor atualizado mas o retorno do código tem o valor antigo. O código é de novato e que adaptou a partir de buscas na internet. Obrigado pela ajuda. Dim IE As Object Dim objElement As Object Dim objColletion1 As Object Dim objColletion2 As Object Dim x As Object Dim y As Object Dim i As Long 'Create Internet Explorer object Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True 'IE.navigate "http://www.bmfbovespa.com.br/pt_br/servicos/market-data/consultas/mercado-de-derivativos/contratos-em-aberto/por-tipo-de-participante/" IE.navigate "http://www2.bmf.com.br/pages/portal/bmfbovespa/lumis/lum-tipo-de-participante-ptBR.asp" sleep (5000) 'wait 5 seconds to load web page Set objColletion1 = IE.document.getelementsbytagname("input") 'set field in a object i = 0 While i < objColletion1.Length 'try to find out field named "dData1" If objColletion1(i).Name = "dData1" Then ' set the date objColletion1(i).Value = "09/04/2018" 'a date before today End If i = i + 1 Wend Set objColletion2 = IE.document.getelementsbytagname("button") 'set the buttons on page i = 0 While i < objColletion2.Length 'try to fid out the button to submit If objColletion2(i).Type = "submit" And objColletion2(i).Name = "" Then 'OK button found Set objElement = objColletion2(i) End If i = i + 1 Wend objElement.Click 'OK button clicked sleep (5000) 'wait to load web page For Each x In IE.document.body.getelementsbytagname("table") 'search for a expected value If InStr(x.innertext, "MERCADO FUTURO DE DÓLAR") > 0 Then For Each y In x.getelementsbytagname("tr") If InStr(y.innertext, "Inv. Não Residente") > 0 Then MsgBox y.getelementsbytagname("td")(1).innertext End If Next y End If Next x Set IE = Nothing Set objElement = Nothing Set objColletion1 = Nothing Set objColletion2 = Nothing Bruno.
  2. Olá, estou usando um código VBA para pegar uma informação de uma página web. O código VBA segue os seguintes passos: 1. Abre uma página web (a página default mostra os dados para a data de ontem 11/04/2018) 2. Preenche o campo de data com o valor 09/04/20214 3. Clica no botão OK 4. Pega um valor da página que foi carregada depois do clique no botão OK O problema é que o valor retornado não é o valor que foi atualizado depois do clique do botão e sim o valor que já estava na página default. A página mostrada no IE está com o valor atualizado mas o retorno do código tem o valor antigo. O código é de novato e que adaptou a partir de buscas na internet. Obrigado pela ajuda. Dim IE As Object Dim objElement As Object Dim objColletion1 As Object Dim objColletion2 As Object Dim x As Object Dim y As Object Dim i As Long 'Create Internet Explorer object Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True 'IE.navigate "http://www.bmfbovespa.com.br/pt_br/servicos/market-data/consultas/mercado-de-derivativos/contratos-em-aberto/por-tipo-de-participante/" IE.navigate "http://www2.bmf.com.br/pages/portal/bmfbovespa/lumis/lum-tipo-de-participante-ptBR.asp" sleep (5000) 'wait 5 seconds to load web page Set objColletion1 = IE.document.getelementsbytagname("input") 'set field in a object i = 0 While i < objColletion1.Length 'try to find out field named "dData1" If objColletion1(i).Name = "dData1" Then ' set the date objColletion1(i).Value = "09/04/2018" 'a date before today End If i = i + 1 Wend Set objColletion2 = IE.document.getelementsbytagname("button") 'set the buttons on page i = 0 While i < objColletion2.Length 'try to fid out the button to submit If objColletion2(i).Type = "submit" And objColletion2(i).Name = "" Then 'OK button found Set objElement = objColletion2(i) End If i = i + 1 Wend objElement.Click 'OK button clicked sleep (5000) 'wait to load web page For Each x In IE.document.body.getelementsbytagname("table") 'search for a expected value If InStr(x.innertext, "MERCADO FUTURO DE DÓLAR") > 0 Then For Each y In x.getelementsbytagname("tr") If InStr(y.innertext, "Inv. Não Residente") > 0 Then MsgBox y.getelementsbytagname("td")(1).innertext End If Next y End If Next x Set IE = Nothing Set objElement = Nothing Set objColletion1 = Nothing Set objColletion2 = Nothing Bruno.
  3. tgrejanin

    Tecla {ENTER} - IE

    Fala galera,Estou precisando de uma ajuda com uma macro no Excel com interação com o IEEu preciso entrar em um site, colocar um certo valor em um campo de busca e apertar a tecla {Enter}, porém não estou conseguindo simular esse aperto do "Enter".Não tem um botão "buscar" para que eu possa prosseguir.Já tentei Application.SendKeys "~", TrueSendKeys "~", ' TrueNada deu certo. Sub Enter() Dim ie As InternetExplorer Set ie = New InternetExplorer ie.Visible = True ie.Navigate "http://www.loterias.caixa.gov.br/wps/portal/loterias/landing/lotofacil" While ie.Busy DoEvents Wend Do Until ie.ReadyState = READYSTATE_COMPLETE DoEvents Loop ie.Document.all("buscaConcurso").innerText = "1255" 'Exemplo ' Agora era preciso apertar o enter para completar a busca 'Application.SendKeys "~", True End SubQuem puder me ajudar eu agradeço.Obrigado
  4. Prezados, boa noite estou "montando" um código para entrar em um site da empresa onde trabalho, depois ele clica em um hiperlink , depois preenche alguns dados e por fim ele copia estes dados para do excel porém já tentei de diversas forma seja com códigos, sendkeys e etc e tal, mas não consigo copiar os benditos dados para o EXCEl Application.ScreenUpdating = False Dim IE As Object Dim W As Worksheet Dim x As Variant Dim A as Worksheet Set IE = CreateObject("InternetExplorer.application") Set W = Sheets("Plan3") Set A = Sheets("Plan1") With IE .Visible = True .Navigate ("colocar o site") 'aqui eu defino o site While .Busy Or .ReadyState <> 4: DoEvents: Wend 'espera carregar .Document.getElementById("Login1_UserName").Focus 'focaliza aonde coloco meu login .Document.getElementById("Login1_UserName").Value = "digitar login" 'aqui eu coloco meu login .Document.getElementById("Login1_Password").Focus ' focalizo onde colocarei a senha .Document.getElementById("Login1_Password").Value = "digitar senha" 'aqui coloco a senha .Document.all("Login1_LoginButton").Click 'clico no boão para logar While .Busy Or .ReadyState <> 4: DoEvents: Wend 'espera carregar 'espera carregar .Document.all("ctl00_ContentPlaceHolder1_ctl02_HyperLink17").Click 'acessa uma opção na página para eu buscar os filtros While .Busy Or .ReadyState <> 4: DoEvents: Wend 'espera mais um pouquinho .Document.getElementById("ctl00_ContentPlaceHolder1_DropEmpresaCompleto1_dropEmpresas").Focus 'focaliza aonde vou colocar a empresa procurada .Document.getElementById("ctl00_ContentPlaceHolder1_DropEmpresaCompleto1_dropEmpresas").Value = W.Range("E1").Value 'seleciono uma empresa a procurar de acordo com uma célula na planilha While .Busy Or .ReadyState <> 4: DoEvents: Wend 'espesra mais um tico .Document.getElementById("ctl00_ContentPlaceHolder1_txtPeriodoInicio").Focus 'focaliza aonde vou colocar uma data inicial .Document.getElementById("ctl00_ContentPlaceHolder1_txtPeriodoInicio").Value = W.Range("N5").Text 'aqui é colocado a data inicial de acordo com uma célula na planilha While .Busy Or .ReadyState <> 4: DoEvents: Wend 'espero... .Document.getElementById("ctl00_ContentPlaceHolder1_txtPeriodoFinal").Focus 'focaliza aonde vou colocar uma data final .Document.getElementById("ctl00_ContentPlaceHolder1_txtPeriodoFinal").Value = W.Range("P5").Text 'aqui é colocado a data final de acordo com uma célula na planilha .Document.all("ctl00_ContentPlaceHolder1_btnBuscaPorPeriodo").Click 'clico para filtrar agora eu precisaria copiar uma tabela que tem o ID "ctl00_ContentPlaceHolder1_UPNotas" e colar na célula A1 da Plan 1 (colar em A.range("a1") como fazer para copiar e colar esta tabela ?? Poor favoor, me ajudeeeeem...
  5. Galera estou criando um site, porem o internet explorer bloqueia meus plugin jquery, e pede autorização para desbloquear, qual script devo usar para não aparecer mais essa mensagem de bloqueio como no print que tirei abaixo. Desde já, obrigado http://prntscr.com/4gqrb4
  6. Boa noite galera. Sou novo nesse fórum, mas já percebi que o nível da galera é muito bom. Quanto a mim, sou iniciante em VBA, gosto de automatizar tarefas repetitivas e estou sempre a buscar aprimorar o conhecimento, principalmente na área de informática. Vamos ao que interessa: Tenho uma macro que acessa um site e preenche um formulário. Esse fomulário após devidamente preenchido deve gerar uma guia no formato PDF, ou o melhor, há um botão que faz o download da guia. Já fiz esse procedimento com um outro site, que também gera uma guia ao final e tudo funciona perfeitamente, inclusive o click no botão que dispara a guia. Mas, com relação a esse último form que estou trabalhando, já quebrei bastante a cabeça e não consegui fazer o download da bendita guia. Já tentei o comando .document.all(nome).click e .document.form(0).submit, mas nada ocorre. Já varri o código fonte inteiro, a procura do botão correto para o click, sem sucesso. Obs: O formulário é preenchido em duas etapas, sendo que já conclui a primeira e consegui avança para a segunda, mas travei na emissão da guia. Assim, meus caros, peço que me ajudem nessa questão. Segue código VBA e um trecho da código fonte, no qual eu suspeito que esteja a solução do problema. Public Sub Imprimir_1() On Error Resume Next Dim Endereço As String Dim Endereço2 As String Dim MyBrowser As SHDocVw.InternetExplorer 'aaaaaaaaaaaaaaaaaa 'aaaaaaaaaaaaaaaaaa Endereço = "http://www.grfrecursal.caixa.gov.br/sisfg/pages/sfg/recursal/iniciar.jsf" Endereço2 = "http://www.grfrecursal.caixa.gov.br/sisfg/pages/sfg/recursal/recolhimento.jsf" Set IE = CreateObject("InternetExplorer.Application") IE.Navigate (Endereço) IE.Visible = True IE.Document.Forms.Item("frm").Item(2).Value = "33000167000101" 'CNPJ While IE.ReadyState <> 4 Wend IE.Document.Forms.Item("frm").Item(3).Value = "Petroleo Brasileiro SA" 'Razão Social While IE.ReadyState <> 4 Wend IE.Document.Forms.Item("frm").Item(4).Value = "Marconi" 'Nome de Contato While IE.ReadyState <> 4 Wend IE.Document.Forms.Item("frm").Item(5).Value = "8432354872" 'Telefone de Contato While IE.ReadyState <> 4 Wend IE.Document.Forms.Item("frm").Item(9).Value = "33000167000101" 'CNPJ While IE.ReadyState <> 4 Wend IE.Document.all("frm:j_id81").Click Trecho do código fonte <div class="botoes_linha" style="height:70px; top:110px"> <div style="; margin-left:594px; "><a href="#" onmouseup="refresh(10000)" tabindex="19" type="submit" onclick="var a=function(){if (! validateFormLocal()) {return false};A4J.AJAX.Submit('frm',event,{'parameters':{'ajaxSingle':'frm:j_id141','frm:j_id142':'frm:j_id142'} ,'similarityGroupingId':'frm:j_id142'} );};var b=function(){if(typeof jsfcljs == 'function'){jsfcljs(document.getElementById('frm'),{'frm:j_id141':'frm:j_id141'},'');}return false};return (a()==false) ? false : b();" type="submit"> <img src="../../../imagens/bt_gerar_guia.jpg" border="0" alt="bot&atilde;o continuar" /></a> Abraço
×
×
  • Criar Novo...