none
Probelma em macro RRS feed

  • Pergunta

  • Pessoal, alguém pode me ajudar nessa macro?qunado eu aplico ela a um botão, ao clica-lo não acontece nada(como se não executasse a subrotina).Não executa essa rotina...

    Segue o código:



    Sub executa()

        Dim i                   As Integer

        Dim j                   As Integer

        Dim arquivo            As String

        Dim DirWork             As String

        Dim DirInputs           As String

        Dim DirIT               As String  

        Dim DirIAC              As String  

        Dim DirInputExc         As String  

        DirWork = ThisWorkbook.Path

        DirInputs = DirWork & "\Inputs_" & Cells(7, 2) & ""

        DirIT = DirInputs & "\InputUm"

        DirInputExc = DirWork & "\Pastaexecutavel\Inputs"

        DirIAC = DirInputs & "\InputDois"

        arquivo = Cells(7, 2)

    Kill DirInputExc & "\InputUm.dat"

    'Deleta arquivo InputUm da pasta de inputs do executável

    Kill DirInputExc & "\InputDois.ste"

    'Deleta arquivo InputDois da pasta de inputs do executável

    FileCopy DirIT & "\" & arquivo & ".dat", DirInputExc & "\" & arquivo & ".dat"

    'Copiei o InputUm "i.dat" para a pasta de inputs do executável

    Name DirInputExc & "\" & arquivo & ".dat" As DirInputExc & "\InputUm.dat"

    'Nomeei o InputUm "i.dat" para "InputUm.dat" e movi para a pasta de inputs do executável

    FileCopy DirIAC & "\" & arquivo & ".ste", DirInputExc & "\" & arquivo & ".ste"

    'Copiei o InputDois "i.dat" para a pasta de inputs do executável

    Name DirInputExc & "\" & arquivo & ".ste" As DirInputExc & "\InputDois.ste"

    'Nomeei o InputUm "i.dat" para "InputUm.dat" e movi para a pasta de inputs do executável

    Shell DirWork & "\Pastaexecutavel\Executavel"

    'Chama o executável

    End Sub

    Obrigado!

    quarta-feira, 28 de março de 2012 18:51

Respostas