Murilo_Correa

Desculpe, houve um erro da minha parte na hora de explicar as condições, já alterei o código para funcionar conforme eu gostaria, muito obrigado.

Fiz o que me pediu mas não funcionou, Poderia encaminhar a planilha de teste que mandei mais cedo com este código aplicado por gentileza?

Bom dia, Como devo aplicar isto a planilha? Adicionei a um módulo porém não soube seguir adiante.

Certo entendo. Utilizei algo em VBA já que li em outros lugares porém não funcionou. Segue planilha, na coluna L está a data, preciso que estas células tragam a data de hoje caso seja preenchido qualquer valor maior que 0 na coluna A, porém que está data não fique se atualizando diariamente, que ela fique fixa. TESTE.xlsx

Boa tarde! Sei que parece besteira, mas não consigo fazer uma célula apresentar dados de data, utilizando fórmula como por exemplo =hoje() e fazer esta data ficar travada. Sempre que acesso a planilha no dia seguinte a data se atualiza mas não quero que isto aconteça. Preciso que esta data nesta célula fique travada. Uso a seguinte condicional para apresentar a data. =SE(B1>0;HOJE();"")

Perfeito!

Certo, entendi! 1 - Sim ele sempre vai permanecer neste padrão, alterando apenas os valores a direita da tabela. 2 - Ótimo, ajustados! 3 - Prefiro que permaneça visível pois assim caso haja algum erro com o site (que ocorre com certa frequência) é possível identificar. Eu criei uma outra macro de formatação. Dentro desta planilha que utilizo coloquei uma cópia da tabela do site, depois que rodo o código que você me passou eu rodo a macro de formatação que deixa então tudo certinho conforme está no site, altera apenas espaçamento e cores, não está funcionando muito bem porém ajuda kkk. Gostaria de pedir uma ultima ajuda, o código está puxando a partir da primeira linha, porém eu precisava que ele puxasse a partir do ID, fica mais fácil para fazer a formatação depois pois preciso destas informações.

Cara, tu é demais, puxou todas as informações corretamente. Eu não entendi muito bem, ele puxou as informações da planilha que foi exportada do site? Ou ele já puxa diretamente do site as informações?

o código ficou da seguinte forma. Sub Login_Suframa() Dim driver As New ChromeDriver With driver .Get "https://simnac.suframa.gov.br" .FindElementByName("usuario").SendKeys ("") .FindElementByName("senha").SendKeys ("") .Wait (1000) .FindElementByXPath("/html/body/app-root/div/div/div/section/section/footer/button", 5).Click .Wait (5000) .FindElementByXPath("//*[@id=""content""]/section/section/section/section/app-consultar-quadro-pin/div/div/div/section/form/header/h2/div/button", 5).Click .Wait (5000) Dim tabItems As WebElements Dim Item As WebElements Set tabItems = .FindElementsByXPath("//*[@id='content']/section/section/section/section/app-consultar-quadro-pin/div/div/div/section/form/div/table/thead/tr[1]/th[1]") Debug.Print tabItems.Count For Each Item In tabItems MsgBox Item.Text Next Item End With End Sub Porém retornou o seguinte erro.

Desculpe entendi errado. Segue Xpath do ID; //*[@id="content"]/section/section/section/section/app-consultar-quadro-pin/div/div/div/section/form/div/table/thead/tr[1]/th[1]

@BasoleBom dia! Xpath: //*[@id="content"]/section/section/section/section/app-consultar-quadro-pin/div/div/div/section/form/div/table/tbody/tr[1]/td[3]/text()[2]

Boa tarde, Para buscar as informações que preciso, montei a seguinte formula. =PROCV(B6;[relatorio_quadro_pin.xlsx]Plan1!$B$5:$H$20;4;0) agora eu iria aplicar na célula E6 até H20, diversos PROCV para trazer as informações da tabela pega na internet. A intenção é que a tabela 1 (da planilha que estamos automatizando) seja um espelho da tabela 2 (exportada do site), atualizando diariamente os valores nas células entre E5 e H20 Imagem abaixo da tabela 1 dei uma "formatada" nela pra ficar mais fácil a aplicação dos PROCV. Estou tentando ser o mais claro possível, devido o controle de tráfego que há na minha empresa fica complicado eu realizar o envio das planilhas.

Bom dia @Basole, Agora resta a criação no VBA dos PROCV. Está primeira imagem é onde eu preciso que esteja atualizado (tive que deixar deste tamanho para poder tirar o print da tabela completa. Imagem abaixo é da planilha que é exportada pelo site. Local da planilha. C:\Users\murilo.rosa\Downloads\relatorio_quadro_pin

@Basoleeu notei que ele estava apresentando uma mensagem de erro, então fiz um teste, apaguei o "/text()" e executei. Primeiramente não fazia o download porém não apresentava o erro, então notei que fazendo o download manualmente ele também possui um pequeno delay até baixar o arquivo, e assim que vba executava a ação de clicar no botão ele fechava o navegador, então coloquei um wait depois desta linha e coloquei em 5000 e funcionou, ele faz o download e fecha o navegador. Este primeiro passo de exportar a planilha esta 100%!!

@Basole A parte de aumentar os segundos no wait não funcionou. Segue como solicitado. //*[@id="content"]/section/section/section/section/app-consultar-quadro-pin/div/div/div/section/form/header/h2/div/button/text()

@BasoleQuanto este problema foi resolvido, agora ele acessa pelo botão correto. Porém surgiu o seguinte. Ao abrir a página após o login, há um pequeno delay até carregar a tabela e a opção de exportar planilha, pode ser este o problema?

Certo entendo, porém esta planilha que estou fazendo não serei eu que irei utilizar, é uma pessoa que não entende nada da parte de excel e tem dificuldade por ter uma certa idade, por isto estou tentando deixar o mais automatizada possível, eu iria adicionar a macro em um botão para ela apenas clicar e atualizar as informações. A questão de exportar em HTML só se for por outro meio que desconheço, a opção apresentada pelo site realiza o download automático em formato de excel. Sempre que exporto a planilha do site ele manda para a pasta de downloads a planilha. Seria possível automatizar o VBA para ele clicar no botão de exportar a planilha, e uma macro separada realizando o PROCV das células que preciso? Edit: Já mandei na resposta anterior mas segue mais completa. Edit2: @Basole Referente este código há um único problema, no FindElementByTag, ele procura o primeiro botão presente na página, porém este botão não é o entrar. Sendo assim ele acessa a aba de pesquisa fora do perfil, onde não se encontra a tabela que preciso.

Funcionou perfeitamente, primeiramente ele demorou um pouco para acessar o site porém na segunda vez que executei levou poucos segundos. O próxima passo agora seria ele importar do site a tabela citada anteriormente. O que seria mais "fácil", mandar toda vez que ele acessar o site, apagar a tabela antiga e importar a tabela completa, ou estar com a tabela já importada em excel e mandar ele apenas atualizar os valores que preciso?

esta é a tabela que estou importando. Preciso estar atualizando estes números a direita diariamente. o site que utilizo é o simnac.suframa.gov.br Logo na primeira página do portal aparece a tabela que necessito. Agora como faço para estar exportando estes dados através de uma macro?

Bom dia, Já pesquisei mais sobre o Selenium, falei com setor do TI da minha empresa e eles liberaram o download. Já baixei o mesmo, veio junto no download o Chrome driver, já coloquei lá em referências no VBA o Selenium Type Library. A princípio está pronto para usar, agora preciso saber como usar kkk se alguém puder me dar uma luz.

Este navegador não consegue abrir o site que tento acessar, ele abre o site porém não passa da aba de login. Firefox ocorre a mesma coisa. Mesmo que eu tente acessar manualmente.

Seguinte, @Basole, se eu tentar explicar talvez eu piore, vou mostrar o que encontrei. Dim HTMLDoc As HTMLDocument Dim oBrowser As InternetExplorer Sub Login() Dim oHTML_Element As IHTMLElement Dim sURL As String On Error GoTo Err_Clear sURL = simnac.suframa.gov.br Set oBrowser = New InternetExplorer oBrowser.Silent = True oBrowser.timeout = 60 oBrowser.navigate sURL oBrowser.Visible = True Do Loop Until oBrowser.readyState = READYSTATE_COMPLETE Set HTMLDoc = oBrowser.document HTMLDoc.all.usuario.Value = "LOGIN" HTMLDoc.all.senha.Value = "SENHA" For Each oHTML_Element In HTMLDoc.getElementsByTagName("input") If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For Next Err_Clear: Resume Next End Sub Esta macro abre o navegador acessa o site e preenche as abas com as informações que colocar nos campos usuario e senha. Isto me caiu bem, porém o navegador é o problema, preciso de seja o Google Chrome, poderia me auxiliar neste ponto? Vamos indo por partes pra ver se conseguimos nos entender.

Eu utilizo um site que para acessá-lo somente com usuário e senha, ao preencher estas informações ele me transfere para uma página onde há algumas informações que se atualizam diariamente, eu preciso ter estas informações em uma planilha e preciso que elas estejam sempre atualizadas. Eu já achei alguns tutoriais que ensinam a criar uma macro que exporta qualquer informação que eu queira de um site da web, porém quando faço isso com este site ela não funciona, pelo site só ser acessado com usuário e senha. Preciso de uma macro, que acesso o site, preenche o usuário e senha, e exporte para mim as informações que eu preciso. Qualquer dúvida estou a disposição.

Bom dia Pessoal! Estou com a seguinte dúvida, gostaria de exportar uma planilha de um site da internet, porém esse site possui login e senha, e um outro problema, pelo que vi no site não sei se possui aquela flecha para exportar somente os dados que desejo, somente o site todo, nesse caso é possível alterar direto no excel. Porém preciso de uma macro para realizar todo esse processo de acessar o site e atualizar a planilha, alguém poderia me auxiliar? No que vamos conversando vou dando mais detalhes.

Bom dia, Funcionou perfeitamente muito obrigado. Se você ministra algum curso de excel ou se pudesse me dar umas aulas agradeceria kkk. Abraço!!