MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Copiar Linhas do Prompt DOS/Command via VBA

    Compartilhe

    caio_ccs1
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 11/07/2013

    Copiar Linhas do Prompt DOS/Command via VBA

    Mensagem  caio_ccs1 em Ter 08 Abr 2014, 20:37

    Boa Tarde amigos.

    Preciso de uma ajuda... Rodei a web dois dias e não encontrei uma solução para meu problema.

    Seguinte, tenho que entrar em uns roteadores via Telnet, dá alguns comandos e puxar os IPs de Lan, Wan, Vlan e tal... São mais de 2mil routers.

    Eu fiz um código em VBA que abre o Telnet, coloca o IP do local, usuário e senha e digita o comando do roteador... Nossa, fiquei feliz que funcionou.

    A tela está com o prompt, resultados na tela, tudo que eu preciso fazer agora é copiar desde a primeira linha (comando anterior) até a última linha que contem " # "

    Ai que mora o problema, não consigo selecionar e copiar o resultado do comando no roteador que está no prompt do DOS. Alguém sabe como poderia resolver isso? Tem algum código que possa selecionar determinado ponto da tela do prompt, copiar e colar numa célula do Excel por exemplo, ou em um campo do Access... ou sei lá, jogar num bloco de notas e depois puxar desse bloco... Meu DEUSSSSS

    # Desesperado # bounce bounce 

    Desde já agradecido!

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

    Re: Copiar Linhas do Prompt DOS/Command via VBA

    Mensagem  Avelino Sampaio em Ter 08 Abr 2014, 21:25

    Olá!

    Tenho aqui uma função que executa comandos na linha DOS e então captura o resultado. 

    Public Function ComandoDOS(Comando As String, strParametro As String)
    Dim objShell As Object
    Dim objWshScriptExec As Object
    Dim objStdOut As Object
    Dim strLine As String

    Set objShell = CreateObject("WScript.Shell")
    Set objWshScriptExec = objShell.Exec(Comando & " " & strParametro)
    Set objStdOut = objWshScriptExec.StdOut

    '----------------------------------------
    'Captura o resultado para a variável strLine
    '----------------------------------------
    While Not objStdOut.AtEndOfStream
     strLine = strLine & vbNewLine & objStdOut.ReadLine
    Wend

    ComandoDOS = strLine

    End Function


    Passando o resultado para um campo.

    me!NomeCampo =  ComandoDOS ("Ping", "[Você precisa estar registrado e conectado para ver este link.]

    Aguardamos


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    caio_ccs1
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 11/07/2013

    Re: Copiar Linhas do Prompt DOS/Command via VBA

    Mensagem  caio_ccs1 em Ter 08 Abr 2014, 21:49

    Avelino. Boa Tarde.

    Estou tentando aqui, só que adaptando para o Excel, hoje tivemos um imprevisto na Rede e pra minha tristeza o cara do suporte retirou meu pacote office, deve ser porque não estava de acordo com o padrão da empresa.

    Ainda não tive sucesso no Excel, to tentando..

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

    Re: Copiar Linhas do Prompt DOS/Command via VBA

    Mensagem  Avelino Sampaio em Ter 08 Abr 2014, 22:30

    Entre em contato com o meu amigo Felipe Costa do site [Você precisa estar registrado e conectado para ver este link.]

    Ele é um fera no Excel e pode te dar uma força..

    Sucesso!




    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    caio_ccs1
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 11/07/2013

    Re: Copiar Linhas do Prompt DOS/Command via VBA

    Mensagem  caio_ccs1 em Qua 09 Abr 2014, 13:52

    Obrigado. Deus abençoe.

    fernando.jas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 15/09/2011

    Re: Copiar Linhas do Prompt DOS/Command via VBA

    Mensagem  fernando.jas em Sab 20 Dez 2014, 12:25

    tem como disponibilizar um exemplo?

    goastria de saber se como disparar comando do Prompt de comando com botoes
    e visualizar as ações em um formulario.

      Data/hora atual: Sab 03 Dez 2016, 19:38