MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

3 participantes

    Executar .bat através de Macro do excel

    avatar
    Luan Dotto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Executar .bat através de Macro do excel Empty Executar .bat através de Macro do excel

    Mensagem  Luan Dotto Qua 25 Jun 2014, 13: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)

    daniloreiis
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Executar .bat através de Macro do excel Empty Executar .bat através de Macro do excel

    Mensagem  daniloreiis Qua 25 Jun 2014, 13: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
    avatar
    Luan Dotto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Luan Dotto Qua 25 Jun 2014, 14: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
    daniloreiis
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Executar .bat através de Macro do excel Empty Executar .bat através de Macro do excel

    Mensagem  daniloreiis Qua 25 Jun 2014, 15: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


    http://www.4shared.com/file/2YLyOGobba/abrirbat.html


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

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Luan Dotto Qua 25 Jun 2014, 17:49

    Antes de mais nada, obrigado a todos!!!

    Consegui resolver com esse codigo disponivel em: http://www.tomasvasquez.com.br/artigos/Dicas/vba_shellexecute.html

    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.
    avatar
    pedroh_schmidt
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Executar .bat através de Macro do excel Empty Apenas aproveitando o tópico

    Mensagem  pedroh_schmidt Qua 11 Jan 2017, 15: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: Ter 18 Jan 2022, 22:04