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

Macro para download de fotos

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.
MoisesCTC
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Qui Set 26, 2019 3:18 pm

Macro para download de fotos

Mensagem por MoisesCTC »

Boa noite amigos, acompanho o forum e sempre que tenho uma duvida bastar ler alguns minutos das postagem e la está problema resolvido.. porém desta vez não consegui encontrar nada.. Preciso criar uma solução para donwload de fotos de uma galeria de imagens...

tentei fazer um userform e chamar a url usando Me.Image1.Picture = LoadPictureUrl não consegui..

atualmente eu faço um vbs bat. com start link das urls.. porem é uma coisa grosseira onde abre 600 paginas web fazendo download. gostaria de uma ajuda nesse sentido. , colocaria as urls em uma coluna e o userform iria acessando a range delas e fazendo o download..


Obrigado!


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: Macro para download de fotos

Mensagem por webmaster »

MoisesCTC,

Qual o código completo que está utilizando?


MoisesCTC
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Qui Set 26, 2019 3:18 pm

Re: Macro para download de fotos

Mensagem por MoisesCTC »

webmaster, Obrigado pelo Retorno

Private Sub UserForm_Initialize()
Me.Image1.Picture = LoadPictureUrl("http://https://eb4d74b967689c03965e-e03 ... _thumb.JPG")
End Sub
(não obtive sucesso)


Modo que estou utilizando no momento.

Tenho um Userform com 2 textbox
Textbox 1 Link da primeira foto. http://fotos.select.pics/publica/download/1
Textbox 2 total de fotos exemplo 450

(Coluna B) Macro da um range Selection.AutoFill até 450. (Auto Preencher)

(Coluna A) esta com Start até o range do autofill, copio as 2 colunas colo no bloco de notas e salvo .bat ele me abre 450 abas fazendo donwload.


teria alguma forma mais facil? ou direta igual no exemplo que vc postou no forum, não consegui.

Obrigado


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

Re: Macro para download de fotos

Mensagem por webmaster »

MoisesCTC,

Assumo que esteja usando este código, certo?

https://www.tomasvasquez.com.br/blog/en ... e-uma-url/

De toda forma, o endereço da URL enviada é inválido. Pode ser esse o problema?

Att


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.


MoisesCTC
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Qui Set 26, 2019 3:18 pm

Re: Macro para download de fotos

Mensagem por MoisesCTC »

webmaster,

Então estou usando este exemplo do site segue atualizado o link.


Private Sub UserForm_Initialize()
Me.Image1.Picture = LoadPictureUrl("https://eb4d74b967689c03965e-e03f98f16b ... 134192.JPG")
End Sub

Obrigado pela atenção e apoio.


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

Re: Macro para download de fotos

Mensagem por webmaster »

MoisesCTC,

A função LoadPicture está definida?


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