Ir para conteúdo
Fórum Script Brasil

jaugusto

Membros
  • Total de itens

    4
  • Registro em

  • Última visita

Posts postados por jaugusto

  1. E ai tudo beleza !

    Não estou conseguindo mudar para a TD de baixo esta dando erro no (linha.MoveNext).

    Tem como você me dar uma ajuda?

    Obrigado

    Achei a solução é só comentar a linha linha.MoveNext e o loop fica OK. :wacko:

    Valeu!

  2. Senhores (ª) como va?

    Sou novato em vba e não sei muito a respeito da liguagem.

    Estou fazendo uma macro que entra em uma pagina da web e loga.

    O problema esta quando tento entra em uma pagina Java com o nome do campo "F.000" da erro.

    Como resover isso?

    Sub Login()

    Set obj = GetObject("", "InternetExplorer.Application.1")

    obj.Navigate "http://pagina.com.br"

    Do While obj.Busy 'Fica em loop até que a página tenha sido carregada

    DoEvents

    Loop

    Set cwForm = obj.document 'Obtém o documento

    Set formulario = cwForm.Forms(0) 'Obtém o primeiro form (o único que existe na página)

    'Erro aqui===

    Set f.000 = formulario(0) 'Obtém o primeiro elemento do formulário (a primeira caixa de texto)

    'Erro

    Set Senha = formulario(1) 'Obtém o segundo elemento do formulário (a segunda caixa de texto)

    Set Entrar = formulario(2) 'Obtém o terceiro elemento do formulário (o terceiro é um botão)

    f.000.Value = "Jaugusto" 'Muda o texto da primeira caixa de texto

    Senha.Value = "1234" 'Muda o texto da segunda caixa de texto

    obj.document.all.Item("Entrar").Click 'Clica no botão

    obj.Visible = True 'Faz o IE aparecer

    End If

    End Sub

  3. Pessoal,

    Tenho uma aplicação em VBA que loga em uma página WEB e dentro dessa página clica em um botão que abre uma janela (pop-up) com o formulário que eu preciso preencher. O problema é, quando a janela é aberta perco o controle, pois os eventos continuam na página principal.

    Alguém sabe como resolver?

    Meu código:

    Set ie_princ = CreateObject("InternetExplorer.Application")

    ie_princ.navigate "https:\\MyUrl"

    ie_princ.document.All.Item("txtUserId").Value = Sheet1.Cells(1, 5).Value

    ie_princ.document.All.Item("txtPassword").Value = Sheet1.Cells(1, 7).Value

    ie_princ.document.All.Item("submit1").Click

    ie_princ.Visible = True

    ie_princ.document.frames("NomeFrame").document.All("botao").Click

    '(Aqui surge uma nova janela, onde eu não acessar e inputar dados nos campos)

    Por favor me ajudem....

    cara tavo fazendo uma coisa parecida......

    mas em vez d fazer ele clicar no botao eu mesmo chamo a função que é executada quando clico no botao. ai o poup-pop abre na minha pagina mesmo.

    assim que eu fiz...

    no meu caso consegui......

    talvez de certo no seu

    Boa tarde!

    Se você consegui tem como me passa tb estou com a mesma dificuldade.

    Obrigado

  4. Galera bom dia!

    Tenho uma tabela com alguns campos tipo: Numero_Requisicao, Cargo, etc.

    Gostaria de saber se a como contar quantas vezes o Numero_Requisicao aparece tabela.

    Abaixo a tabela.

    Requisição Cargo Status Vagas Total

    3077 TORNEIRO MECANICO Desistência 7

    3077 TORNEIRO MECANICO Reservada 5

    4625 TECNICO ELETREC Reservada 1

    4668 AUXILIAR Ocupada 2

    Tipo o numero 3077 duas vezes.

    Obrigado.

    Fórum: Modelagem / SQL · Prévisualização

×
×
  • Criar Novo...