-
Posts
6 -
Cadastrado em
-
Última visita
Tipo de conteúdo
Artigos
Selos
Fabricantes
Livros
Cursos
Análises
Fórum
Tudo que Felipe Ricardo Dias Flores postou
-
Excel Como buscar vários Cep do site na planilha VBA
Felipe Ricardo Dias Flores respondeu ao tópico de Felipe Ricardo Dias Flores em Microsoft Office e similares
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 -
Excel Como buscar vários Cep do site na planilha VBA
Felipe Ricardo Dias Flores respondeu ao tópico de Felipe Ricardo Dias Flores em Microsoft Office e similares
Obrigado pela dica. Funcionou legal porém se tem muitas linhas está gerando um erro que segue no anexo. -
Excel Como buscar vários Cep do site na planilha VBA
Felipe Ricardo Dias Flores postou um tópico em Microsoft Office e similares
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 -
VisualG Algoritmo para correção de Gabarito
Felipe Ricardo Dias Flores respondeu ao tópico de Felipe Ricardo Dias Flores em Programação - iniciantes
@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 -
VisualG Algoritmo para correção de Gabarito
Felipe Ricardo Dias Flores respondeu ao tópico de Felipe Ricardo Dias Flores em Programação - iniciantes
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 -
VisualG Algoritmo para correção de Gabarito
Felipe Ricardo Dias Flores postou um tópico em Programação - iniciantes
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
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais