Я запускаю простую команду оболочки в Excel VBA, которая запускает пакетный файл в указанном каталоге, как показано ниже:
Dim strBatchName As String
strBatchName = "C:\folder\runbat.bat"
Shell strBatchName
Иногда пакетный файл может занять больше времени на каком-либо компьютере для запуска, и происходит продолжение кода VBA, зависящего от командного файла, для завершения работы. Я знаю, что вы можете установить таймер ожидания, как показано ниже:
Application.Wait Now + TimeSerial(0, 0, 5)
Но это может не работать на некотором компьютере, который слишком медленный. Есть ли способ систематически сообщить Excel, чтобы продолжить работу с остальным кодом VBA, пока после завершения работы оболочки?
Вместо этого используйте WScript.Shell, поскольку он имеет параметр waitOnReturn:
Dim wsh As Object
Set wsh = VBA.CreateObject("WScript.Shell")
Dim waitOnReturn As Boolean: waitOnReturn = True
Dim windowStyle As Integer: windowStyle = 1
wsh.Run "C:\folder\runbat.bat", windowStyle, waitOnReturn
(Идея скопирована из Подождите, пока оболочка закончит, затем отформатируйте ячейки - синхронно выполните команду)
Добавьте следующий Sub:
Sub SyncShell(ByVal Cmd As String, ByVal WindowStyle As VbAppWinStyle)
VBA.CreateObject("WScript.Shell").Run Cmd, WindowStyle, True
End Sub
Если вы добавили ссылку на C:\Windows\system32\wshom.ocx, вы также можете использовать:
Sub SyncShell(ByVal Cmd As String, ByVal WindowStyle As VbAppWinStyle)
Static wsh As New WshShell
wsh.Run Cmd, WindowStyle, True
End Sub
Эта версия должна быть более эффективной.
Сохраните файл bat на "C:\WINDOWS\system32" и используйте ниже код, который он работает.
Dim wsh As Object
Set wsh = VBA.CreateObject("WScript.Shell")
Dim waitOnReturn As Boolean: waitOnReturn = True
Dim windowStyle As Integer: windowStyle = 1
Dim errorCode As Integer
errorCode = wsh.Run("runbat.bat", windowStyle, waitOnReturn)
If errorCode = 0 Then
'Insert your code here
Else
MsgBox "Program exited with error code " & errorCode & "."
End If
то, что вы предложили с изменением в скобках в команде "Запуск", отлично работало с VBA для меня
Dim wsh As Object
Set wsh = VBA.CreateObject("WScript.Shell")
Dim waitOnReturn As Boolean: waitOnReturn = True
Dim windowStyle As Integer: windowStyle = 1
Dim errorCode As Integer
wsh.Run "C:\folder\runbat.bat", windowStyle, waitOnReturn
Может ли BATCH создать файл, когда он закончен, и VBA подождать, пока этот файл не будет создан? Или пакетное удаление флага файла, когда оно закончено, и VBA ждет, пока файл флага не исчезнет?
Либо свяжите оболочку с объектом, пакетное задание завершает объект оболочки (exit), и код VBA продолжается после объекта оболочки = ничего?
Или взгляните на это: Захват выходного значения из команды оболочки в VBA?
Это то, что я использую, чтобы VB дождался завершения процесса, прежде чем продолжить.
Я не писал этого и не беру кредит.
Он был предложен на каком-то другом открытом форуме и очень хорошо работает для меня:
Следующие запросы необходимы для подпрограммы RunShell:
Option Explicit
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const PROCESS_QUERY_INFORMATION = &H400
Private Const STATUS_PENDING = &H103&
'then in your subroutine where you need to shell:
RunShell (path and filename or command, as quoted text)
Dim wsh как новый wshshell
chdir "Каталог пакетного файла"
wsh.run "Полный путь к пакетному файлу", vbnormalfocus, true
Готовый сын