Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Macro para download de fotos
Macro para download de fotos
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!
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
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
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
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
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
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.
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.