Estou criando uma macro para abrir os links de uma planilha, clicar no botão salvar de cada um e fechar a janela, mas não estou tendo progresso. Até agora só consegui faezr abrir todos os links de uma vez.
Meu código:
Sub Em_Lote()
Dim c As Range
For Each c In Range("I2:I3")
ActiveWorkbook.FollowHyperlink Address:=c.Value, NewWindow:=True
Next c
For Each oHTML_Element In HTMLDoc.getElementsByTagName("input")
If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For
Next
Err_Clear:
Resume Next
End Sub
Pergunta
Gabiii
Olá, alguém consegue me ajudar?
Estou criando uma macro para abrir os links de uma planilha, clicar no botão salvar de cada um e fechar a janela, mas não estou tendo progresso. Até agora só consegui faezr abrir todos os links de uma vez.
Meu código:
Sub Em_Lote()
Dim c As Range
For Each c In Range("I2:I3")
ActiveWorkbook.FollowHyperlink Address:=c.Value, NewWindow:=True
Next c
For Each oHTML_Element In HTMLDoc.getElementsByTagName("input")
If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For
Next
Err_Clear:
Resume Next
End Sub
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.