Вставка
- Опубліковано 15 жов 2024
- #197 - WebScraping - Consultar CPFs em lote - Excel VBA
Esse é um tema interessante que nunca gravei para meu canal de vídeos. Nesta vídeo você aprenderá como consultar a situação de um CPF utilizando um site com consulta aberta para isso.
Através de uma rotina de repetição podemos consultar de 1 a centenas de CPFs na planilha.
Conteúdo da aula:
Digitar em página WEB o CPF para pesquisa
Manipular o internet explorer através do VBA
Captura de informações no Internet Explorer para a planilha
Boa aula!
#mvp #mvpbr #mvpbuzz #Excel #ExcelVBA #VBA
Me acompanhe nas redes sociais:
Facebook: bit.ly/TrovatoF...
LinkedIn: bit.ly/2Kyy2qv
UA-cam: bit.ly/YTrovato
Cursos com certificado, planilhas para download, catálogo de aulas e blog:
www.alessandrot...
App na Play Store para acompanhar as aulas: bit.ly/apptrovato
*** ATENÇÃO ***
A versão atualizada do script está fixado no primeiro comentário no UA-cam neste vídeo
Última atualização: 30/12/2020
![Buscar Preço de um Produto na Web com VBA - Aula 3 - [Série Automação WEB em VBA (WEB Scraping)]](http://i.ytimg.com/vi/ZhMMCn336X4/mqdefault.jpg)
Olá a todos que estão acompanhando essa aula. Os relatos nos comentários abaixo sobre erros referem-se a mudanças ocorridas no site.
Isso acontece com frequência... Os componentes DOM podem ter seu nome alterado, a página pode mudar o layout. Nesses casos VOCÊS DEVEM ANALISAR A PÁGINA novamente e fazer as devidas correções no código...
*** Rotina de tratamento de erros atualizada em 27/05/2020. Código da página do site mudou novamente.
Private Sub btExecuta_Click()
Application.ScreenUpdating = False
Dim vErro As String
Dim IElocation As String
Dim Resultado(1 To 15) As String
Dim vNome As String
Dim vDados As String
Dim vSituacao As String
Dim W As Worksheet
Dim Ie As Object
Dim UltCel As Range
Dim A As Integer
Dim col As Integer
Dim vSegundos As Integer
Dim ln As Long
Set W = Planilha1
vSegundos = 3
W.Range("A2").Select
W.Range("B2:d1000").Clear
W.Range("A1").Value = "num_cpf"
W.Range("b1").Value = "nome_pessoa_física"
W.Range("c1").Value = "situação"
W.Range("d1").Value = "informações complementares"
Set Ie = CreateObject("InternetExplorer.Application")
Set UltCel = W.Cells(W.Rows.Count, 1).End(xlUp)
With Ie
.navigate "www.situacaocadastral.com.br/"
.Visible = True
End With
Do While Ie.busy
Loop
ln = 2
col = 1
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + vSegundos)
Do While ln
Professor, o site de consulta nao abre
Excelente material. Vou baixar e usar no nosso cadastro de clientes.
Gostaria de sugerir uma aula para consulta de CNPJ.
Seria interessante mostrar como encontrar as variáveis no site pesquisado. Queria também saber se dá, e como, consultar usando outro navegador.
Perfeito trabalhado...Estou precisando sistema que consulte Certidão Negativa, já tentei montar mas sempre da erro 438, se poder fazer uma aula, como fazer, vou ficar muito grato.
Mestre primeiramente parabéns pelo material que tu desenvolveu.
Gostaria de uma ajuda,
Ao executar o arquivo atual apresenta o seguinte erro quando CPF 0 ou errado
Erro em tempo de execução '91':
A variavel do objeto ou a variavel do bloco 'With' não foi definida
Pode nos ajudar?
Tu és muito rápido na programação. Show.... és diferenciado
Obrigado Lúcio... As vezes me empolgo na gravação mas tento manter um ritmo aceitável hehehe.
Olá, Alessandro!
Estou tentando importar uma tabela (últimos resultados da Lotofácil), utilizando o power query. Ocorre que, ao acessar a tabela, copiar o seu endereço através do navegador e colá-lo na janela do power query, surge um formulário com a seguinte mensagem:
"Não é possível estabelecer conexão
Detalhes: "Falha no Web.Contents ao obter conteúdo de..."
Ninguém, aqui, no UA-cam, postou um vídeo abordando este tipo de erro e como corrigi-lo.
Assisto às suas excelentes aulas há mais de dois anos a partir das quais aprendi muito sobre vba. Evito, todavia, baixar as suas planilhas, pois, como gosto de aprender e de desafio, prefiro, eu mesmo, produzir os meus códigos sem o que não seria possível fixar o conteúdo.
Tutorial nota 1000!!!! Parabéns!!!!
Muito obrigado Carlos pelo feedback! Fico feliz que tenha gostado! Bons estudos...
Grande aula Mestre!!
Muito obrigado pelo feedback Prof Darlan! Grande abraço.
Mais uma vez, PARABÉNS! Excelente abordagem. Quando quero algo profissional e confiável, minha primeira opção é procurar, antes, se já foi abordado por você. Eu queria, há tempo, saber como faz isso, mas, minha prioridade e foco seria para consultar em lote no Simples Nacional, da RFB (Receita Federal do Brasil). Você já pensou em fazer uma consulta em lote no site da RFB, para consultar se a empresa participa ou não do Simples? Hoje, nossa Distribuidora se depara com clientes no Regime Simples Nacional, mas, que já mudaram de regime, por conta do elevado faturamento, para Lucro Presumido. Se meu cadastro permanecer com a informação de simples, corro o risco de vender com carga tributária diferente, e, por conseguinte, ser penalizado pela RFB. Por isso, tenho vigiar o tempo todo, quando da emissão de uma NF, se a empresa que constam no meu cadastro como regime "Simples Nacional" ainda permanece com o mesmo regime na RFB. E isso, faço uma a uma. O problema é que emitimos centenas de NF diariamente. Isso ajudaria muito a mim e a outras empresas com o mesmo perfil.
Olá Mariana. Infelizmente ainda não gravei nada com essas características. Se eu não me engano, na época que fiz uma pesquisa, os sites tinham restrição de acesso ou tinha que pagar um serviço para consultar. Se pagasse, seria fácil pois a página de consulta seria mais amigável... Mas é especulação pois já faz um bom tempo que fiz essa pesquisa...
O conteúdo é ótimo, como sempre. Trovato, por favor, só aumenta o volume um pouquinho ai do áudio
Olá Adriano! Vou dar uma olhada... Agora não é mais para ter problema com o áudio... Ele está sendo gravado com um excelente microfone! Grato pelo feedback.
Professor, muito boa explicação e excelente vídeo. Uma dúvida, dá para fazer o mesmo processo porém com pesquisa de Registro de Anvisa, tenho uma lista de registros gostaria de saber se os mesmos estão Vigentes ou Cancelados!
excelente como sempre!!
tenho uma dúvida..com e descontinuamento do IE a consulta na página da erro..é possível substituir pelo Edge? a lógica é a mesma? tentei pelo Chrome, mas não consegui.
Procure informações sobre o Selenium Marcelo. Deve substituir com louvor pois com ele você consegue manipular qualquer browser... Ainda não testei o Edge ou qualquer outra solução para scraping devido a falta de tempo por aqui...
Ótima aula, porém, não encontrei o arquivo dessa aula no seu Site, pesquisei nas 3 seções de Downloads Excel Básico, Excel Avançado com VBA e Diversos. Me informe por favor o local desse arquivo no seu site.
Olá Gilberto! Esse arquivo eu não liberei. Deixei para que fosse recriado como forma de estudos.
Essa aula abre um leque de possibilidades. Valeu Metaleiro...
Grande mestre
Imagina Raphael! Sou um eterno aprendiz!!! Grande abraço.
Se você ainda não é um inscrito(a), convido a se inscrever em meu canal de vídeos!
Espero que os mais de 660 vídeos tutorias que possuo atualmente (só de Excel são mais de 350!) possam lhe ajudar.
Site com todos os vídeos dos cursos completos organizados: sigaonerd.esy.es/index.html
Site com meus cursos com certificados: cursos.alessandrotrovato.com.br
Bons estudos e sucesso!
Excelente, ajudou muito, poderia fazer mais aulas sobre esse assunto né? E também em algum site q precise de autenticação, ou ja tem alguma coisa assim. To começando estudar vba agora e ainda estou na aula 50, mas adiantei pq preciso mto aqui de planilhas como essa.
Muito bacana o video!
Estou com um problema para clicar em um botão não sei porque, será que vc poderia fazer um video mostrando todos os tipos de click?
Caramba, show de bola. Estou na aula 28 desta playlist de vba, mas não me contive em vir aqui ver esse assunto que gosto tanto. Muito bom, Alessandro Trovato é um mestre!
kkkk', rapaz.. o bom e velho vba fazendo estragos.
Excelente vídeo Alessandro Trovato !! sempre curti muito sua didática,
O VBA é inacreditável Giovani! É uma ferramenta que me surpreende a cada dia! Grato pela mensagem e por acompanhar os trabalhos!
Fantástica aula Trovato Parabéns!!!
Muito obrigado Professor !
À disposição André! Espero que encontre ainda muito material de estudos nos mais de 765 vídeos que tenho publicado em meu canal no UA-cam ! Só de Excel são mais de 420
Mais uma excelente aula!! Obrigado Mestre!
Muito obrigado Marcelo por estar sempre presente e acompanhando os trabalhos! Grande abraço e uma ótima semana!
Sou seu Fã, aprendo muito no seu canal. Tem algum de consultar CNPJ em Lotes?
Olá Márcio! Ainda não... Quem tem uma planilha dessa é o amigo Marcos Rieper. Dá uma olhada no site dele "Guia do Excel"
Convido a se inscrever em meu canal de vídeos!
Espero que os mais de 730 vídeos tutorias que possuo atualmente (só de Excel são mais de 420!) possam lhe ajudar.
Site que criei com todos os vídeos dos cursos completos organizados: sigaonerd.esy.es/index.html
Portal de cursos próprio com certicado: cursos.alessandrotrovato.com.br
Bons estudos e sucesso!
Que top , professor não achei está aula #197 lá para baixar
A planilha está no meu site para download. www.alessandrotrovato.com.br na seção downloads na aba diversos. O código também está na descrição do vídeo e fixo no primeiro comentário. Bons estudos!
@@AlessandroTrovato boa tarde, não consegui localizar ele no seu site, adorei seu curso e ja baixei seu aplicativo
show, me ajudou muito
Fico feliz que as aulas estejam te ajudando Rodrigo! Grande abraço e bons estudos!
Ola Alessandro, achei muito legal o vídeo. Quando vou compilar sua macro, aparece a caixa de mensagem com
Erro de compilação:
Tipos incompatíveis:
e ao clicar em ok, a primeira linha da macro, fica em destaque na cor amarela. Tenho Windows 10 64 bits. Grato
Sensacional!!!!!!
Fico feliz que tenha gostado da aula Thais. Bons estudos!
Se você ainda não é um inscrito(a), convido a se inscrever em meu canal de vídeos!
Espero que os mais de 680 vídeos tutorias que possuo atualmente (só de Excel são mais de 370!) possam lhe ajudar.
Site que criei com todos os vídeos dos cursos completos organizados: sigaonerd.esy.es/index.html
Portal de cursos próprio: cursos.alessandrotrovato.com.br
Bons estudos e sucesso!
sensacional! parabéns professor.
Muito bom.
Como seria uma macro VBA para localizar no google maps diversos locais. Por exemplo, uma faixa de células com lugares, o excel passa para o google maps a busca, e retorna a latitude e longitude na planilha excel. É possível fazer isso?
Como fazer o download da macro desenvolvida nessa vídeo aula?
Obrigado!
Excelente professor!
Muito obrigado pelo feedback Canal Engenhatividade! Grande abraço!
Se você ainda não é um inscrito(a), convido a se inscrever em meu canal de vídeos!
Espero que os mais de 670 vídeos tutorias que possuo atualmente (só de Excel são mais de 350!) possam lhe ajudar.
Site com todos os vídeos dos cursos completos organizados: sigaonerd.esy.es/index.html
Site com meus cursos com certificados: cursos.alessandrotrovato.com.br
Bons estudos e sucesso!
Parabéns, excelente aula. Estou montado uma ferramenta que cadastra os serviços voluntários na web e estou tendo muito problema com as combobox. Não consigo selecionar e digitar a informação. Será que você poderia me ajudar. Já adicionei o id, no comando, nada.
Prof Alessandro, você tem algum video aula que aborda WebScraping e retirando informações de uma determinada linha como no exemplo (
Tem como fazer com Chrome? Se sim, o que mudaria?
Obg e parabéns pelo vídeo e compartilhamento de conhecimento
Acho que somente substituir no CreateObject("goooglechrome.Application") testa aí e me diz se rolou.
Como importar dados do Serasa, ou seja, as dívidas online?
Grande aula, Alexandre! Muito boa mesmo. Em se tratando de suas aulas, assisto a todas novidades, pois, mesmo parecendo ser algo simples, você a torna brilhante e rica em conteúdo. Parabéns, mais uma vez. Você é uma grande referência. Olhando os comentários abaixo, vi a dúvida da Mariana Rezende, de 6 dias atrás. Essa é exatamente a minha necessidade. Você poderia, por gentileza dizer se há alguma forma de fazer isso?
Grato,
Atanásio
Como eu faço para usar o Microsoft Edge no lugar do explorer?
conseguiu ?
Muito obrigado
Eu é que agradeço por acompanhar os trabalhos Gilberto! Grande aBraço.
aprendo e utilizo muito
Alessandro, excelente conteúdo. Me tira uma dúvida que não encontrei em nenhum lugar como alterar o foco da sessão das janelas em aberto do IE. Em algumas paginas ao acessar uma opção outra janela e aberta dificultando o processos de script da rotina.
Que show de aula grande Mestre e amigão Trovato!! Curtido e compartilhado :D
Grande mestre Baldini! Obrigado.
Legal, teria como fazer exatamente a mesma coisa para consultar os registros no
bando de dados sql
Parabens pelo conteudo , porem nao esta funcionando esta dando erro pois a pesquisa esta dando erro sempre que clicar em consultar ele e meio que direcionado para uma pagina com cloudflare e da erro na execução no chrome nao esta dando esse erro porem , nao estou conseguindo por em pratica na escrita do script o senhor podia ensinar , sei que tem que baixar e instalar a ChromeDrive e o seleniumBasic porem meu conhecimento e pouco para fazer o codigo se o senhor puder acho que iria ser de grande ajuda
Olá no código aqui com a última atualização incluindo o código da mônica, está dando um erro: "A variável do objeto ou a variável do bloco 'with' não foi definida", já verifiquei o código, só que ainda sou aprendiz e não consegui consertar. HELP!!!!
Bom dia Trovato!
Parabéns pelas aulas, tenho aprendido muito a cada vídeo.
O meu deu erro 438 tempo de execução na linha abaixo
vnome=ie.document.getelementbyclassname("dados")(0).innertext
objeto não aceita essa propriedade
como resolver isso?
Agradeço pela força!
Top!!!
Muito obrigado pela mensagem! Bons estudos!
Ajudou muitooo! Suaaa fã!
Parabéns professor seus videos são ótimos.
Teria como fazer uma gentileza de substituir no campo (nome pessoa física) sair o nome da pessoa.
O que esta escrevendo no campo é o CPF. Se puder agradeço muito. Dessa forma ficaria mais completo( CPF, nome, situação e dados).
Há um novo tratamento para o campo de CPF quando retorna um número inválido.
No primeiro comentário fixado desse vídeo está o código completo e atualizado Gustavo!
Obrigado. Parabéns pelo trabalho.
Outra dica de site para criar dados fictícios é o 4devs, além de outras várias soluções.
Muito obrigado pela dica Edgar! Grande abraço.
Eu que agradeço estamos aqui para trocar conhecimento e ajudar a comunidade. Abraço, up the irons.
não encontrei essa aula, fico na espera! qualquer comentaria tornará repetitivo (Excelente)!kk
Olá Edson! Espero que tenha gostado da aula! Abração.
Se você ainda não é um inscrito(a), convido a se inscrever em meu canal de vídeos!
Espero que os mais de 660 vídeos tutorias que possuo atualmente (só de Excel são mais de 350!) possam lhe ajudar.
Site com todos os vídeos dos cursos completos organizados: sigaonerd.esy.es/index.html
Site com meus cursos com certificados: cursos.alessandrotrovato.com.br
Bons estudos e sucesso!
Para fazer no Google Chrome é a mesma lógica?
Não... O VBA consegue manipular o Internet Explorer no Scraping. Vi em algum lugar uma vez um código para manipular o Chrome, mas não me recordo como fazer. Talvez uma busca na web possa te ajudar.
Valeu mestre. Será que há a possibilidade também de entrar num site como o Ecac e tendo um certificado digital instalado no pc poder já logar automático por código?
Olá Luan. Sinceramente acredito não ser possível. Nunca fiz o teste.
Se você ainda não é um inscrito(a), convido a se inscrever em meu canal de vídeos!
Espero que os mais de 660 vídeos tutorias que possuo atualmente (só de Excel são mais de 350!) possam lhe ajudar.
Site com todos os vídeos dos cursos completos organizados: sigaonerd.esy.es/index.html
Site com meus cursos com certificados: cursos.alessandrotrovato.com.br
Bons estudos e sucesso!
Boa noite Alessandro, muito bom essa aula, ganhou mais um inscrito. Uma dúvida...esse código pode ser adaptado pra fazer pesquisa de multas no site do detran, com várias placas?
Poderia fazer um desses mas no chrome e em sites que precisam de login
Pessoal, é possível usar esse mesmo tipo de código para um site com senha, nesse caso, como eu faço para inserir no código, o meu login e a senha?
Como faço para fazer download de pdfs (contas) de varios usuários ? Consigo fazer isso no Excel como no caso do CPF ? Se eu tiver usuário e senha, consigo ler na planilha, inserir no login do site e baixar o pdf de cada um ?
Parabéns pela aula mestre, como faz em sites que possuem robô/captcha?
Essa é uma pergunta que não sei responder Carlos! Não precisei ainda fazer captura de informações em sites... O amigo Marcos Rieper tem solução para isso se eu não me engano. Dá uma olhada no canal dele: Guia do Excel
Boa noite professor, excelente conteúdo, porem a pagina de pesquisa me informa que o Internet Explorer não tem mais permissão para acessar os dados, tenho o Edge e o Chrome mas não sei como fazer para incorporá-los no codigo VBA, vc poderia me orientar? Obrigado pela atenção. Hudson.
boa tarde, conseguiu fazer essa alteração ?
Mano mto top, isso me deu enumeras ideias, eu faria isso ai em php, pois e a forma mais facil que eu sei pra criar esse tipo de crawler, e tbm uso o webdriver no python, me ajudou mto mano vlw mesmo, o vba so usa o ie, ou pode usar o chrome tbm?
Olá professor, tudo bem ?
Eu poderia fazer um codiho de importar Xml de notas fiscais e depois transformar em pdf ?
Amigo, é possível trazer informações de sites de bancos que necessitam de usuário e senha ? A ideia seria trazer automaticamente os saldos bancários de várias contas para uma planilha. Parabéns pelo vídeo !
Trovato, e no caso de exitir um validação por Re-Captcha. como fazer para o código seguir direto ou abrir a validação para o usuário?
15:53 DO Video deixe ie.visible = true
E possivel fazer essa busca em site com login e senha? Quero migrar a informaçao de um site para um banco de dados no trabalho, onde tenho login e senha do site onde busco as informaçoes.
Boa noite,
Estava tentando gerar um código VBA, a partir do Access, para que clique no botão LOGIN, em um site, mas não consegui. Poderia me ajudar por favor?
A parte de acessar o site e outras coisas já fiz, mas fiquei enganchado nessa parte, para que o comando clique no botão LOGIN.
Acho que deve ser algo parecido com isso abaixo, mas não consegui de forma nenhuma fechar o código. A dificuldade é que esse botão não tem ID e isso dificulta.
For Each oHTML_Element In oBrowser.Document.getElementsByTagName("btn-standard call-to-action")
If oHTML_Element.Type = "button" Then oHTML_Element.Click: Exit For
Next
O HTML do botão só tem isso, NÃO TEM ID.
Login
Desde já lhe agradeço.
Boa tarde, ótimo trabalho.
Tentei fazer mais está dando erro. "Erro em tempo de execução '438': O objeto não aceita esta propriedade ou método. Poderia ajudar?
Oi Kley, compartilhe o código para a gente dar uma olhada.
Professor, disponibilize esse código para nós, por favor :)
Olá Tiago. A planilha está disponível no meu site, na seção downloads, o código também está fixado no primeiro comentário do vídeo.
@@AlessandroTrovato opa, vou procurar. Muito obrigado pelo conteudo. Grande abraço.
Trovato, está com erro para 2 ou mais itens. aparece na depuração
Ie.document.getelementbyid("doc").Value = W.Cells(ln, col).Value
Estou tendo o mesmo erro, ainda não descobri o porque deste erro.
Legal, eu consegui. É preciso dar um clique em fazer nova consulta.
Alguém me indica um livro que eu possa aprender todos esses conceitos, please.
www.amazon.com.br/Web-Scraping-Excel-Effective-Scrapes-ebook/dp/B01CMMJGZ8
onde está o link para download ?, não o acho
A planilha está para download no meu site www.alessandrotrovato.com.br
O código atualizado está nos comentários e nas informações do vídeo. Só copiar e colar...
O correto é Web Scrapping, ou raspagem de dados, mas ótimo conteúdo
Muito obrigado Sueli. Conhecia o recurso como webscripting ! Aprendi uma... Obrigado 🙏
Mestre, fui tentar adaptar a rotina, e esta dando o seguinte erro : "Erro em tempo de execução '424': O Objeto é obrigatório". Fiz todos os procedimentos e não consegui resolver esse problema.
Abaixo segue o código, não finalizei ele ainda, estava em faze de teste, porem não passei da seguinte linha:
"Ie.Document.getelementbyid("Cnpj").Value = CNPJ"
Site que estou tentando executar é: www8.receita.fazenda.gov.br/simplesnacional/aplicacoes.aspx?id=21
Sub SN()
Dim URL As String
Dim vErro As String
Dim Ie As Object
Dim Ul As Long
Dim CNPJ As String
W.Select
Ul = W.Range("A1048576").End(xlUp).Row
Set Ie = CreateObject("InternetExplorer.Application")
With Ie
.Navigate "www8.receita.fazenda.gov.br/simplesnacional/aplicacoes.aspx?id=21"
.Visible = True
End With
' aguarda o site carregar
Do While Ie.Busy
Loop
' aguarda 3 segundos ate iniciar a rotina
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 3)
W.Range("A2").Select
Do While ActiveCell.Row
Olá Diogo. No primeiro comentário deste vídeo e na descrição dele coloquei o último código valido pois muitos controles mudaram de nome. Pode copiar o código e comparar com o seu...Bons estudos
bom dia no meu caso o botao que eu preciso clicar na web é do tipo subimit (não tem id) como consigo fazer este click será que poderia me ajudar.
Pega pela Tag , não precisa do ID
É possivel utilizar esse VBA no chrome?
Com a biblioteca Selenium Basic
Bom dia. A planilha ainda não está disponível, o que houve? Tentei fazer com o disponível no vídeo, porém está dando erro na declaração das variáveis, alguém me ajuda?
Olá Valdenir! Vai demorar mais alguns dias para ela estar disponível no blog. Refaça a aula pausando o vídeo no momento da codificação. Depois depure o seu código passo a passo para verificar onde está o erro e corrigir o código. Bons estudos!
@@AlessandroTrovato Fiz passo a passo, informa que não declarei algumas variáveis, posso lhe enviar um e-mail com os print?
@@AlessandroTrovato ok, obrigado
Ta dando erro 91 - dizendo que a variavel do bloco "With" não foi definida, como concerto ?
Evelen, constantemente essa página muda o nome dos elementos. Aqui no primeiro comentário e na descrição do vídeo está o código correto (até o último válido que atualizei).
Como fazer pelo selenium ?
Não tenho aula no UA-cam que explica a técnica Márcio.
consegue atualizado?
seria possível disponibilizar o codigo?
mds é só vc assistir a video aula e ir copiando oq o Professor está ensinando.
Armagedom System Excel, obrigado pela sua mensagem. O código ainda está na descrição do vídeo e fixado como primeiro comentário... E ainda há a digitação do código acompanhando a aula... Bons estudos!
Olá Diego! O código está disponível na descrição do vídeo (atualizado) e fixado no primeiro comentário... Além do download da planilha pronta que está lá no meu site. E é claro, recomendo sempre digitar os códigos para aprender. Só baixar o resultado pronto não traz aprendizado. Bons estudos!
A planilha não está disponível...
Ainda não Edilson...
Se você ainda não é um inscrito(a), convido a se inscrever em meu canal de vídeos!
Espero que os mais de 670 vídeos tutorias que possuo atualmente (só de Excel são mais de 350!) possam lhe ajudar.
Site com todos os vídeos dos cursos completos organizados: sigaonerd.esy.es/index.html
Site com meus cursos com certificados: cursos.alessandrotrovato.com.br
Bons estudos e sucesso!
16:45 deu o mesmo erro para mim mas não há no vídeo a solução. Alguém conseguiu resolver?
Tambem deu o mesmo erro pra mim , nao funciona desta maneira , acho melhor tentar via html com o metodo POST
@@AlessandroTrovato consegui. Planilha funcionando. Obrigado Mestre
Muito bom Professor, Parabéns.
Percebi que mesmo após a modificação feita por você na planilha, ela dava erro se o CPF fosse invalido. A planilha só encontra se for ativo ou inexistente. Fiz uma modificação pequena modificação no while, veja:
Do While ln
Muito bom Mônica! Não tinha feito o tratamento mesmo para CPFs inexistentes. Obrigado por sua contribuição!
o meu nunca funciona
Olá Guerreiro! no primeiro comentário fixado dessa aula está o código adaptado e atualizado. Talvez ajude...
@@AlessandroTrovato ajudou sim, obrigado !! Entendi o que estava acontecendo, acho que era erro meu mesmo. Aula excelente, ajudou muito
Boa tarde Alessandro, o link do arquivo Download de material: bit.ly/2mJK1Hw apresenta esse erro 404 - File or directory not found.
Carlos. Dê uma olhada no meu novo repositório www.alessandrotrovato.com.br
Se você ainda não é um inscrito(a), convido a se inscrever em meu canal de vídeos!
Espero que os mais de 770 vídeos tutorias que possuo atualmente (só de Excel são mais de 430!) possam lhe ajudar.
Tenho um site com um catálogo virtual dos vídeos do UA-cam organizados e cursos com certificado podem ser encontrados em meu site: www.alessandrotrovato.com.br
Bons estudos e sucesso!
Carlos Eduardo, o link esta OFF :-/
Muito obrigado Prof.
Que deus lhe abençoe.
Boa noite Alessandro, assito muito suas aulas são boas e aprendi muita coisas em vba , gostaria se possivel essa planilha o link dela tá fora do ar . fjss34@gmail.com
grato
Deu erro no documento
Private Sub BtExecuta_Click()
Application.ScreenUpdating = False
Dim vErro As String
Dim IElocation As String
Dim Resultado(1 To 15) As String
Dim vNome As String
Dim vDados As String
Dim vsituacao As String
Dim w As Worksheet
Dim Ie As Object
Dim UltCel As Range
Dim A As Integer
Dim col As Integer
Dim ln As Long
Set w = Planilha13
w.Range("A2").Select
w.Range("B2:D1000").Clear
Set Ie = CreateObject("InternetExplorer.application")
Set UltCel = w.Cells(w.Rows.Count, 1).End(xlUp)
With Ie
.Navigate "www.situacaocadastral.com.br/"
.Visible = True
End With
Do While Ie.Busy
Loop
ln = 2
col = 1
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 3)
Do While ln
Pessoal, boa tarde!
Tratando erros…
If Trim(vErro) = “Tente novamente!” Then
“Código do Trovato”
End if
If trim(vErro) = “Digite um termo!”then
Msgbox “Digite um termo!”
Userform1.TxtCpf.setfocus
Goto final
End if
final:
Ie.quit
Application.screenupdating = True
Do events
Msgbox “Consulta realizada com sucesso!”
Tipos de erros:
“Tente novamente!”
“Digite um termo válido!”
“CPF inválido”
Para saber como está descrito o erro corretamente digite o seguinte código:
Debug.Print vErro
Será descrito na janela de verificação imediata…
Copie e cole para não haver erro…
Espero ter ajudado… 11:02 11
Forte abraço!