VBA-макросы, не исполняющие файл bat

Question

У меня есть файл bat, который запускается и запускает тестовый инструмент молча. Дважды щелкните вручную, файл bat сделает все, что ему нужно. Теперь я пишу макрос VBA, который должен выполнить файл bat, но макрос просто открывается и сразу же закрывает его. найдите макрокоманду.

Sub Macro1() 
Dim WshShell As Object 
Set WshShell = VBA.CreateObject("WScript.Shell") 
WshShell.CurrentDirectory = Trim(CStr(Excel.Sheets("Sheet1").Cells(1, 1))) 
Output = WshShell.Run("Command.bat", 1, True) 
End Sub 

В ячейке (1,1) на листе есть каталог, в котором присутствует файл command.bat. Что я делаю?

Answer 1

Как насчет того, чтобы попробовать это так? Я тестировал это в локальном файле bat, и он отлично подходит для меня.

Dim Foldername As String 
Foldername = "C:\WorkspaceRFT\RMS\command.bat" 
Shell "C:\WINDOWS\explorer.exe """ & Foldername & "", vbNormalFocus 

Answer 2

Попробуйте следующее. Как уже упоминалось, создание пути к переменной немного затруднительно, особенно когда ваш путь к файлу имеет пробел. Использование Chr(34) для представления " хорошо работает здесь.

Sub Macro1() 
    Dim WshShell As Object: Set WshShell = CreateObject("WScript.Shell") 
    Dim MyPath as String: MyPath = Trim(CStr(Sheets("Sheet1").Cells(1, 1))) 
    Output = WshShell.Run(Chr(34) & myPath & "\Command.bat" & Chr(34), 1, True) 
End Sub