Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Alterar texto em vez de extrair!

A Web está aí, não há como negar. Ela é onipresente em praticamente toda operação eletrônica realizada nos dias de hoje. Como não podia ser diferente, o Excel, ferramenta máxima para analistas e profissionais das mais diversas áreas do mercado precisa estar alinhado com esta necesssidade. E ele está! Neste forum, o debate é focado em expor dúvidas, sugestões, modelos de código e exemplos de uso do Excel na Integração com tecnologias Web.
TUVOK
Colaborador
Colaborador
Mensagens: 73
Registrado em: Ter Jul 21, 2015 9:44 am

Alterar texto em vez de extrair!

Mensagem por TUVOK »

Bom dia!
No wesbscraping por VBA tem como alterar o valor ao invés de extrair?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Alterar texto em vez de extrair!

Mensagem por webmaster »

Direto na página?

Resposta curta: não
Resposta longa: sim, mas não surgirá efeito prático. Quando a página for submetida ao servidor, ela ou será considera inválida ou voltará ao estado original


TUVOK
Colaborador
Colaborador
Mensagens: 73
Registrado em: Ter Jul 21, 2015 9:44 am

Re: Alterar texto em vez de extrair!

Mensagem por TUVOK »

Eu sei, mas só vou alterar páginas que eu mesmo criei.
O meu objetivo é só ter uma planilha de excel onde eu possa ver os dados dela montado em um documento ao lado, tipo a visualização do explorer, e depois , talvez salvar o meu documento alterado numa pasta. O site documento/modelo seria visualizado de acordo com o que fosse escolhido na 1ª coluna da linha e seria preenchido com os dados das outras colunas da linha.


TUVOK
Colaborador
Colaborador
Mensagens: 73
Registrado em: Ter Jul 21, 2015 9:44 am

Re: Alterar texto em vez de extrair!

Mensagem por TUVOK »

Não tem Jeito?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Alterar texto em vez de extrair!

Mensagem por webmaster »

TUVOK,

A resposta curta sendo não, vamos à longa.

Via Selenium, só usando javascript. Aqui um exemplo de como executa-lo na página:

Código: Selecionar todos

Private Sub Execute_Script()
  Dim driver As New ChromeDriver
  driver.Get "https://en.wikipedia.org/wiki/Main_Page"
  
  Dim title
  title = driver.ExecuteScript("return document.title;")
  Debug.Assert "Wikipedia, the free encyclopedia" = title
  
  driver.Quit
End Sub
A partir daí, é usar o mesmo para alterar a página. Neste vídeo uso javascript para alterar uma página direto no navegador:

https://www.youtube.com/watch?v=1wgSxzwUSIQ


TUVOK
Colaborador
Colaborador
Mensagens: 73
Registrado em: Ter Jul 21, 2015 9:44 am

Re: Alterar texto em vez de extrair!

Mensagem por TUVOK »

M-U-I-T-O O-B-R-I-G-A-D-O!
Voce é 10!
Você é o Cara!
Infelizmente, não entendi como usar o código, nem percebí o que mudou na página.
Desculpe minha ignorância!
Poderia me explicar?
Ah, propósito, tô trabalhando em um projeto que achei na internt thailandeza sobre a task pane que te falei.
Posso te enviar o link por aqui?


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Alterar texto em vez de extrair!

Mensagem por webmaster »

TUVOK,

O exemplo do task pane, é melhor colocar no fórum de modelos prontos. Quanto ao código para mudar a página, veja se isso ajuda:

Código: Selecionar todos

Private Sub Exemplo()
  Dim driver As New ChromeDriver
  driver.Get "https://en.wikipedia.org/wiki/Main_Page"
  
  driver.ExecuteScript ("document.getElementById('mp-topbanner').innerHTML = '<marquee><h1 style=\'font-size:90px\'>Agora esse é o meu site</h1></marquee>';")
  
  MsgBox "Rá"
  driver.Quit
End Sub


TUVOK
Colaborador
Colaborador
Mensagens: 73
Registrado em: Ter Jul 21, 2015 9:44 am

Re: Alterar texto em vez de extrair!

Mensagem por TUVOK »

Fantástico!
Justamente do que precisava!
Estava quase desistindo, tentando inserir input's nos documentos, o que seria muito mais trabalhoso.
Muito Obrigado mesmo!
Mas, sem querer ser chato ou abusado, gostaria de explorar mais de seus conhecimentos.
Os links que falei seguem abaixo, por que pensei que se eu colocar RESOLVIDO aqui agora você nem iria ver esta mensagem.
Acontece que tenho tido algum progresso sim com as taskpanes, mas acredito que, assim como você fez com este tópico, acertando em cheio a solução, com certeza o fará também com as taskpanes.
Do seu jeito rápido, simples e objetivo, evitando a canseira e a desilusão que, às vezes, nos faz desistir.
Mais uma vez, muitíssimo obrigado!

http://bluesofts.net/Video/Video?guid=3 ... b4daf.html
http://atoolspro.com/install-activex-co ... ually.html


TUVOK
Colaborador
Colaborador
Mensagens: 73
Registrado em: Ter Jul 21, 2015 9:44 am

Re: Alterar texto em vez de extrair!

Mensagem por TUVOK »

driver.ExecuteScript ("document.getElementById('mp-topbanner').innerHTML = '<marquee><h1 style=\'font-size:90px\'>Agora esse é o meu site</h1></marquee>';")

driver.FindElementsByXPath("//*[@id=""OFÍCIOS-SEI_24156""]/table/tbody/tr[11]/td[2]").Value = Sheets("BD").Range("G" & Linha).Text

Tentei algumas vezes e não está dando certo.
Como exatamente devo mudar minha sintaxe?

Valeu!


TUVOK
Colaborador
Colaborador
Mensagens: 73
Registrado em: Ter Jul 21, 2015 9:44 am

Re: Alterar texto em vez de extrair!

Mensagem por TUVOK »

?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder