Neko moguće rešenje našao sam na adresi
http://vb-helper.com/vba_shell_and_wait.html
Code:
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 WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const SYNCHRONIZE = &H100000
Private Const INFINITE = -1&
' Start the indicated program and wait for it
' to finish, hiding while we wait.
Private Sub ShellAndWait(ByVal program_name As String, ByVal window_style As VbAppWinStyle)
Dim process_id As Long
Dim process_handle As Long
' Start the program.
On Error GoTo ShellError
process_id = Shell(program_name, window_style)
On Error GoTo 0
' Wait for the program to finish.
' Get the process handle.
process_handle = OpenProcess(SYNCHRONIZE, 0, process_id)
If process_handle <> 0 Then
WaitForSingleObject process_handle, INFINITE
CloseHandle process_handle
End If
Exit Sub
ShellError:
MsgBox "Error starting task " & _
program_name & vbCrLf & _
Err.Description, vbOKOnly Or vbExclamation, _
"Error"
End Sub
Sub RunProg()
ShellAndWait "C:\Temp\SayHi.exe", vbNormalFocus ' Ovde zadaj putanju i naziv programa
MsgBox "Gotovo"
End Sub
Dva u dva ide jednom ako možeš da ga ućuškaš
Registrovani: 47 ( sevastokrator, R A V E N, Bananaman, almin_karic, deerbeer, Piga Biva, Radisha, apex, ondrejl, ad0lf, d_toronto, milkovski08, gagysa2405, McKracken, goki1, xeron, araba, gomi, dorel, DR83, --SOULMaTe--, Milan Stojanovic, starscream, miloyekv, _AxeZ_, smars, fuzzylogic, Milan Ogrizovic, salico, nenad76, Mesecar, Drpiga, FORD_TRANZIT, strijelac, trsh, Au197/79, nprboza, Stefano, mikellli, mikson, irule, majakovski, disko, petrash, Lesli Eldridz, diabola21, SLK021 )
[Excel] kako stratovati program pomocu makroa?