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?