Copiar texto da Web e colando no Excel [RESOLVIDO]

[Otalivio]

Olá!

Preciso copiar determinados dados espalhados numa pagina da Web e colar no Excel. Eu encontrei um tópico antigo aqui no site que me ajudou muito.

Nele, estava explicando como acessar o innerText de algum objeto na pagina. Vou colocar aqui em baixo o que eu li:

""Um dica: Você pode pegar o innerText de qualquer elemento HTML, não precisando carregar todo o peso do body que não foi necessário. Exemplo:

Código: Selecionar todos
iebody = ie.Document.all("tabela1").innerHTML ""


Com esse código, eu consigo acessar o texto do objeto que eu preciso. inclusive, usei uma MsgBox para visualizar o conteúdo de cada uma das partes e tudo deu certo. O código que usei foi esse aqui

Dim CPF As Variant
Dim L As Variant

L = 0

Do While L < 11

CPF = IE.document.all("tableContrato:" & L & ":colContratoTipoIdentfCliente").innerText

'Sheets("configurações").Range("A1000").End xlUp.Select

'With Selection

'.PasteSpecial xlPasteFormats

'End With

L = L + 1

MsgBox CPF

MAS

eu preciso agora copiar esse conteúdo e colar numa célula do Excel.

Já procurei esse código, já usei o property oncopy, mas sempre aparece o que não há objeto quando escrevi o código assim:

IE.document.all("tableContrato:" & L & ":colContratoTipoIdentfCliente").innerText.oncopy

Agradeceria muito essa ajuda! E por favor, sou totalmente dummy nesse assunto, então, quanto mais claro for, melhor

obrigado!!

[Mikel Silveira Fraga]

Otalivio, boa tarde e seja bem vindo ao fórum.

Bem, não ficou muito claro a informação que você deseja capturar, se é a tabela ou alguma informação existente dentro da Tabela.

Porém, se você já esta conseguindo capturar a informação desejada e exibir em um MsgBox, troque este pela célula desejada.

O código ficará parecido com este abaixo:

Código: Selecionar todos

Sheets("Plan1")Range("A1").Value = CPF

Sendo que o comando acima é apenas um exemplo. Você irá definir a Planilha e a Célula que irá receber a informação.

Agora, se não for essa a sua intenção, o envio de um modelo, com informações fictícias, ajudaria na análise do código.

Qualquer dúvida, estamos a disposição.

Abraços e excelente final de seman.

[Otalivio]

Mikel,

era isso que eu precisava

no caso, eu já sei como escolher o elemento que eu quero(se é uma tabela inteira, ou só um dado dentro dela).

O que faltava mesmo era saber como colar esse valor numa célula do Excel

Obrigado mesmo.

Só não fecho esse tópico pois tenho ainda uma pergunta: vc indica um livro ou site para mim sobre programação VBA para HTML, uma coisa bem do básico mesmo, algo tipo "For dummies"? Ficar procurando pela internet a cada dúvida está me ocupando um certo tempo e se eu tivesse uma boa referencia para estudar iria economizar meu tempo. Afinal, VBA não é para isso? Automatizar e usar o tempo em outras coisas?

No mais, obrigado mesmo pela ajuda!

[Mikel Silveira Fraga]

Otalivio, bom dia.

Então, infelizmente não conheço nenhum material ou site especializado em falar sobre esse processo de interação entre VBA e Web. Até foi esse o motivo de ter indicado ao Tomás a abertura desse novo fórum, para ser uma referência no assunto.

Em relação a material, existia o Blog Office, VBA e VSTO onde o proprietário escreveu 5 artigos falando sobre o processo de integração, utilizando a biblioteca Microsoft Internet Control, porém o blog foi desativado a algum tempo. Mas antes disto, consegui salvar os artigos do blog e montei uma apostila. A mesma pode ser baixado no link abaixo:
- [APOSTILA] Uso Biblioteca Microsoft Internet Control

Se tiver mais alguma dúvida, estamos a disposição.

Abraços e excelente final de semana.