Felipe Ricardo Dias Flores

Então está mostrando um erro 91no trecho do código abaixo. ie.document.getElementsByTagName("input")(0).Value = Cells(ActiveCell.Row, 1) A mensagem que mostra é: "Erro em tempo de execução '91': A variável do objeto ou a variável do bloco 'With' não foi definida. Segue o código completo: Sub busca_cep() Range("B3:D1000").ClearContents Range("A3").Activate Do Until ActiveCell.Value = "" Set ie = CreateObject("internetexplorer.application") ie.navigate "http://www.buscacep.correios.com.br/sistemas/buscacep/" ie.Visible = True Do While ie.busy And ie.readyState <> "READYSTATE_COMPLETE" DoEvents Loop ie.document.getElementsByTagName("input")(0).Value = Cells(ActiveCell.Row, 1) ie.document.getElementsByClassName("btn2 float-right")(0).Click Do While ie.busy And ie.readyState <> "READYSTATE_COMPLETE" DoEvents Loop ActiveCell.Offset(0, 1).Value = ie.document.getElementsByTagName("td")(0).innertext ActiveCell.Offset(0, 2).Value = ie.document.getElementsByTagName("td")(1).innertext ActiveCell.Offset(0, 3).Value = ie.document.getElementsByTagName("td")(2).innertext ActiveCell.Offset(1, 0).Select ie.Quit Loop Range("A3:D1000").WrapText = False End Sub

Obrigado pela dica. Funcionou legal porém se tem muitas linhas está gerando um erro que segue no anexo.

Bom Dia Gostaria de tirar uma duvida em VBA, eu tenho uma planilha com vários cep, preciso buscar os dados dos Cep no site dos correios e retorna na coluna ao lado as informações, sucessivamente. Fiz um código para tal, porém estou com dificuldade para pular para o próximo cep e fazer a busca. Alguém pode me ajudar segue abaixo o código. Sub busca_cep() Range("B3:D3").ClearContents Range("A3").Activate Do Until ActiveCell.Value = "" Set ie = CreateObject("internetexplorer.application") ie.navigate "http://www.buscacep.correios.com.br/sistemas/buscacep/" ie.Visible = True Do While ie.busy And ie.readyState <> "READYSTATE_COMPLETE" DoEvents Loop ie.document.getElementsByTagName("input")(0).Value = Cells(3, 1).Value ie.document.getElementsByClassName("btn2 float-right")(0).Click Do While ie.busy And ie.readyState <> "READYSTATE_COMPLETE" DoEvents Loop ActiveCell.Offset(0, 1).Value = ie.document.getElementsByTagName("td")(0).innertext ActiveCell.Offset(0, 2).Value = ie.document.getElementsByTagName("td")(1).innertext ActiveCell.Offset(0, 3).Value = ie.document.getElementsByTagName("td")(2).innertext ActiveCell.Offset(1, 0).Select ie.Quit Loop Range("A3:D3").WrapText = False End Sub

@Simon Viegas sim obtive evolução, meu código final ficou conforme abaixo. Se possível analisar e ver alguma melhoria, fico grato. algoritmo "gabarito_prova" var gab : vetor [1..5] de caractere resp : vetor [1..5] de caractere aluno_n : vetor [1..3] de caractere nota : vetor [1..3] de inteiro i, x, k : inteiro tot : inteiro SM, M, Me : Real procedimento GAB() inicio EscrevaL("PASSO 1 - CADASTRO GABARITO") EscrevaL("---------------------------") Para x <- 1 ate 5 faca Escreva("Questao ", x, ":") Leia(gab[x]) Fimpara fimprocedimento inicio GAB() LimpaTela Para k <- 1 ate 3 faca LimpaTela EscrevaL("--------------") EscrevaL("ALUNO - ", k) EscrevaL("--------------") Escreva ("Nome: ") Leia (aluno_n[k]) tot <- 0 EscrevaL("Respostas") Para i <- 1 ate 5 faca Escreva("Questao ", i, ":") Leia(resp[i]) Se (gab[i] = resp[i])entao tot <- tot +2 Fimse SM <- tot Fimpara M <- SM nota[k] <- tot Fimpara EscrevaL("-------------------------") EscrevaL("------>NOTA ALUNOS<------") EscrevaL("-------------------------") Para k <- 1 ate 3 faca EscrevaL(aluno_n[k]:15, nota[k]) Fimpara Me <- (nota[1]+nota[2]+nota[3])/3 EscrevaL("-------------------------") Escreva("Media da Turma: ", Me) fimalgoritmo

O gabarito o usuário digita, as questões dos três alunos também são digitadas pelo usuário, tem que mostrar a nota e a media da turma!! Já me foi de grande ajuda Devair!! Grato

Boa Noite Sou novo na área, procurei sobre o assunto porém não achei, gostaria de ajuda com um algoritmo de vetores. O exercício pede para que, entre com as informações do gabarito sendo de múltipla escolha indo de "A" até "E", depois receber a informação com o nome do aluno, logo após a resposta deste aluno para cada questão sendo que são cinco questões, o exercício pede para o programa receber as respostas de 3 alunos, no final, mostrar a media da turma. Eu fiz isso, porém a onde estou errando? algoritmo "GabaritoQuebrandoaCabeca" var gabarito : vetor [1..5] de Caractere resp : vetor [1..5] de caractere nome: vetor [1..3] de caractere nota : Vetor [1..3] de Real media : vetor [1..3] de Real SM, MT : Real I, tot : inteiro Procedimento GAB() inicio EscrevaL ("Passo 1 - Cadastrode Gabarito") EscrevaL ("-----------------------------") Para i <- 1 ate 5 faca Escreva("Questao",i,": ") Leia(gabarito) Fimpara fimprocedimento inicio GAB() Limpatela Para i <- 1 ate 3 faca Limpatela EscrevaL("----------") EscrevaL("ALUNO - ", i) EscrevaL("----------") Escreva ("Nome : ") Leia (nome) Escreval("RESPOSTAS DADAS") Para i <- 1 ate 5 faca Escreva("Questão ",i,": ") Leia(resp) Se (gabarito = resp)entao tot <- tot +2 FimSe Para i <- 1 ate 3 faca Se(nome = 1+)entao nota[1] <- tot Fimse Fimpara Fimpara FimPara Para i <- 1 ate 3 faca Escreval("------------") EscrevaL(nome:15,nota) Escreval("------------") fimpara fimalgoritmo