Página 1 de 1
Tabela com atualização do desconto da página de um site
Enviado: 28 Set 2017 às 03:56
por Baroni
Olá amigos, bom dia!! sou revendedor de HQS da Amazon e tenho os titulos, links e descontos de cada hq do site deles anotados em bloco de notas... o meu intuito é colocar essas informações no excel, afim de montar uma tabela... Mas a idéia principal é que em relação ao desconto, eu não precise ficar entrando todos os dias nas páginas pra ver se o desconto alterou e fazer a modificação... gostaria que o excel atualiza-se automaticamente esses descontos para mim... já olhei na internet e já até vi como se faz essa importação de dados, o problema é que importa a página toda e eu não sei como fazer pra ficar aparecendo só o desconto na minha tabela... vou deixar abaixo um exemplo de como eu quero que fique a minha tabela:
Blood Blockade Battlefront. Volume 1
http://amzn.to/2j0fIhx 33%
Como podem ver, seriam 3 colunas, uma com o titulo, outra com o link e outra com o desconto... e o problema está no desconto... pois como disse, quero que o valor do desconto atualize automaticamente conforme for alterado no site deles... isso é possível? Fico no aguardo... Abração!! Baroni
Re: Tabela com atualização do desconto da página de um site
Enviado: 28 Set 2017 às 11:53
por alexandrevba
Bom dia!!
Tente isso.
Código: Selecionar todosSub Teste()
Dim IE As New InternetExplorer
Dim getprice As String
Dim Doc As HTMLDocument
IE.Visible = False
IE.Navigate "https://www.amazon.com.br/Blood-Blockade-Battlefront-Yasuhiro-Nightow/dp/8545701535/ref=as_li_ss_tl?s=books&ie=UTF8&qid=1504635987&sr=1-365&linkCode=sl1&tag=bauc-20&linkId=7a8b2e3d78d563807d7badeb2c67783f"
Do
DoEvents
Loop Until IE.ReadyState = READYSTATE_COMPLETE
Set Doc = IE.document
'Aqui pegue o elemento que for necessário
getprice = Trim(Doc.getElementsByClassName("a-size-base a-color-price a-color-price").Item.innerText)
Worksheets("Plan1").Range("C1").Value = getprice
End Sub
Att
Re: Tabela com atualização do desconto da página de um site
Enviado: 29 Set 2017 às 17:26
por Baroni
Olá amigo, agradeço pela ajuda... mas sou leigo, onde coloco esse código?
Re: Tabela com atualização do desconto da página de um site
Enviado: 30 Set 2017 às 12:19
por Baroni
Pessoal, estou disposto a pagar por este serviço... se alguém puder me ajudar...
Re: Tabela com atualização do desconto da página de um site
Enviado: 30 Set 2017 às 13:50
por babdallas
Baroni,
aperte Alt+F11, o que vai abrir o Visual Basic Editor (VBE). Vá na guia Inserir e clique em Módulo. Copie o código do alexandrevba e cole dentro do módulo criado. Depois, clique em qualquer linha de código dentro deste módulo e aperte F5 que o código será executado.
Re: Tabela com atualização do desconto da página de um site
Enviado: 30 Set 2017 às 15:11
por Baroni
Amigos, boa tarde!! agradeço muito mesmo pela ajuda, mas finalmente consegui um profissional pelo Facebook que já entendeu a minha idéia e já está montando uma tabela linda pra mim... valeu mesmo pessoal... abraço!!
Re: Tabela com atualização do desconto da página de um site
Enviado: 30 Set 2017 às 15:17
por babdallas
Ok! Boa sorte em seu projeta colega!
Só para deixar registrado, que seria necessário ainda ir no VBE, menu Ferramentas, Referências e acrescentar duas bibliotecas:
Microsoft Internet Controls
Microsoft HTML Object Library