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!