Здравствуйте! Возникла такая проблема:
В агенте создается bat файл, далее функция Shell, вызывает этот bat файл, который вызывает макросы из openofficа. И продолжается выполнение кода агента, но мне надо дождаться пока все команды bat файла выполнятся, а потом продолжать выполнение кода агента.
Пыталась воспользоваться функцией Yield, но так как функции GetModuleUsage нет, не знаю как её применить
Может есть аналог функции shell???
Вот код агента
Sub CreateRunDeleteBAT()
Const FILE_BAT_NAME = "c:\temp\macro.bat"
Dim macros As Integer
Dim FileNumber As Integer
FileNumber = Freefile
'creat batch file
Open FILE_BAT_NAME For Output As #FileNumber
Print #FileNumber, "C:"
Print #FileNumber, "cd " & Chr(34) & "C:\Program Files\OpenOffice.org 3\program" & Chr(34)
Print #FileNumber, "soffice.exe -invisible macro:///standard.module2.DoExport "
Print #FileNumber, "soffice.exe -invisible macro:///standard.module2.CheckPDFFilterProperties(Nbvjirf)"
Close #FileNumber
'run batch file
macros= Shell(FILE_BAT_NAME,1)
'Delete batch file
Kill FILE_BAT_NAME
End Sub
