Pesquisar na Comunidade
Mostrando resultados para as tags ''Formularios;''.
Encontrado 1 registro
-
Pessoal, estou tentando preencher formulários na internet mas estou enfrentando problemas. Não estou conseguindo dar o loop e copiar a célula que eu quero. Vocês podem me ajudar? Tenho uma planilha com alguns dados e quero apenas preencher em uma página na web. Segue o código que estou tentando: Private Sub FillForm() Dim a As Integer Dim b As Integer Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.Navigate "https://signup.live.com/" Do DoEvents Loop Until IE.ReadyState = 3 Do DoEvents Loop Until IE.ReadyState = 4 a = 3 Cells(a, 1).Copy SendKeys "{tab}" SendKeys "(^v)" SendKeys "{tab}" Cells(a, 2).Copy SendKeys "{tab}" SendKeys "(^v)" Cells(a, 3).Copy SendKeys "{tab}" SendKeys "(^v)" SendKeys "{tab}" Cells(a, 4).Copy SendKeys "(^v)" SendKeys "{tab}" Cells(a, 5).Copy SendKeys "(^v)" SendKeys "{tab}" SendKeys "(^v)" SendKeys "{tab}" SendKeys "{tab}" Cells(a, 6).Copy SendKeys "(^v)" SendKeys "{tab}" End Sub