Удалить процесс при закрытии книги, с проверкой (vba excel 2003)

Posted by obzor under VBA

На листе книги (excel 2003) есть кнопка с макросом, код которого приведен ниже (vba excel 2003). После щелчка по кнопке происходит копирование файла «форма.exe» с сервера во временную папку, после чего файл «форма.exe» запускается из этой временной папки.
Подскажите пожалуйста код (vba excel 2003), чтобы при закрытии книги, файл «форма.exe» из временной папки удалялся, если процесс «форма.exe» не выполняется (дело в том что у меня сейчас можно закрыть книгу, но приложение «форма.exe» может выполняться, т.е. еще не закрыто пользователем).

Sub Копировать(Optional x As Boolean)

Dim sFileName As String, sNewFileName As String
sFileName = "\\server\форма.exe"
sNewFileName = Environ("temp") & "\" & "форма.exe"
FileCopy sFileName, sNewFileName

Dim MyPath
MyPath = Shell(Environ("temp") & "\" & "форма.exe " & ThisWorkbook.FullName, 1)

End Sub

EducatedFool

Так что надо?
Процесс завершить?

Если только удалить файл, если процесс завершен, — то всё проще некуда
(код — в модуль книги)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next: Kill Environ("temp") & "\" & "Форма.exe"
End Sub

(файл не удалится при запущенном процессе)

doober

Если процесс «форма.exe» при закрытии книги еще выполняется, то отследить (что он запущен) можно так:

Function Cont_Proc() As Boolean
Dim Process As Object
For Each Process In GetObject("winmgmts:").ExecQuery("Select * from Win32_Process") 
If Process.Caption Like "Форма*" Then Cont_Proc = True:Exit For
 Next
End Function

тема на форуме

Случайные статьи

• Скрыть форму приложения
• Отправить запрос в COM порт, подождать, прочитать. Общение с устройством
• Подсчет количества повторяющихся букв в файле
• Узнать запущенные службы
• Определить время сортировки
• Как избавиться от мерцания при перерисовки картинки?
• Обрезать фото
• Получение пути приложения
• Перетаскивание формы за любой объект, находящийся на ней
• Получить из текста строки, и занести их в массив