Página 1 de 1

Macro para download de fotos

Enviado: Seg Fev 17, 2020 10:29 pm
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!

Re: Macro para download de fotos

Enviado: Sáb Mar 14, 2020 5:18 pm
por webmaster
MoisesCTC,

Qual o código completo que está utilizando?

Re: Macro para download de fotos

Enviado: Seg Mar 16, 2020 5:34 pm
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

Re: Macro para download de fotos

Enviado: Seg Mar 16, 2020 7:39 pm
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

Re: Macro para download de fotos

Enviado: Ter Mar 17, 2020 11:23 am
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.

Re: Macro para download de fotos

Enviado: Ter Mar 17, 2020 11:51 pm
por webmaster
MoisesCTC,

A função LoadPicture está definida?