MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    Executar .bat através de Macro do excel

    Compartilhe

    Luan Dotto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 3
    Registrado : 25/06/2014

    Executar .bat através de Macro do excel

    Mensagem  Luan Dotto em Qua 25 Jun 2014, 17:52

    Boa tarde,

    Estou tento problemas para executar um arquivo .bat através de macro do excel.
    Tentei de 2 formas, nenhuma das duas funciona.

    1:
    Dim x As String
    x = "J:\Suporte\Ambev\Script HD1N\Solucao\FAROL\Promax\Solução\ListaPromax.bat"
    Shell "cmd.exe /c" & x, vbMaximizedFocus 'Para mostrar a execução do arquivo

    2:
    Shell "cmd.exe /c J:\Suporte\Ambev\Script HD1N\Solucao\FAROL\4O - E-Procurement\Solução\Lista40Procurement.bat", vbMaximizedFocus

    O que estou fazendo de errado.

    Sistema operacional (windows 7)
    Pacote Office (2013)

    avatar
    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 329
    Registrado : 14/02/2011

    Executar .bat através de Macro do excel

    Mensagem  daniloreiis em Qua 25 Jun 2014, 17:59

    Boa tarde amigo!

    Tente assim:

    Código:
    Dim x
    x= Shell("J:\Suporte\Ambev\Script HD1N\Solucao\FAROL\Promax\Solução\ListaPromax.bat", 1)


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10

    Luan Dotto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 3
    Registrado : 25/06/2014

    Re: Executar .bat através de Macro do excel

    Mensagem  Luan Dotto em Qua 25 Jun 2014, 18:09

    Danilo,

    Antes de mais nada, obrigado pela ajuda, mas não funcionou, seu código da erro de compilação.

    Alguma outra sugestão
    avatar
    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 329
    Registrado : 14/02/2011

    Executar .bat através de Macro do excel

    Mensagem  daniloreiis em Qua 25 Jun 2014, 19:51

    Fiz aqui e deu certo:

    Código:
    Sub Retângulodecantosarredondados1_Clique()
    Dim x
    x = Shell("C:\Users\Danilo\Desktop\Area de Trabalho\bkp_9.bat", 1)
    End Sub


    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10

    Luan Dotto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 3
    Registrado : 25/06/2014

    Re: Executar .bat através de Macro do excel

    Mensagem  Luan Dotto em Qua 25 Jun 2014, 21:49

    Antes de mais nada, obrigado a todos!!!

    Consegui resolver com esse codigo disponivel em: [Você precisa estar registrado e conectado para ver este link.]

    Const SW_SHOW = 1
    Const SW_SHOWMAXIMIZED = 3


    Public Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

    Sub AbrirArquivo()
    On Error Resume Next
    Call ShellExecute(0, "open", "caminho do arquivo", "argumentos", _
    "pasta onde está localizado o arquivo", SW_SHOWMAXIMIZED)
    End Sub

    As constantes declaradas são apenas para auxiliar a chamada da função. Perceba que é necessário apenas saber o caminho do arquivo. Os parâmetro "argumentos" pode ser vazio caso não seja necessário.

    pedroh_schmidt
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 09/01/2017

    Apenas aproveitando o tópico

    Mensagem  pedroh_schmidt em Qua 11 Jan 2017, 18:57

    Consegui fazer rodar o bat, mas preciso que o banco espere o bat terminar de rodar antes de prosseguir com a macro. Alguém tem alguma sugestão?

      Data/hora atual: Qui 27 Jul 2017, 09:34