dotNETportal.cz

Ahoj!

Ve VBA(excel) chci spustit program,který jsem vytvořil v

GAME MAKERU.Pokud ho odkliknu normálně v manageru tak se mi spustí,ale chci ho spustit va VBA příkazem Shell tak se mi začne program načítat(je spuštěný progresbar) a ke konci naskočí černé okno a napíše hlášku

"došlo k neočekávané chybě při spuštění hry"

spouštím ho takovým to zápisem a podezřívám ten parametr na konci,který určuje jaký způsobem bude aplik. spuštěna,ale nejsem si jist a vyzkoušel jsem všechny ostatní a je to pořád stejné

   Dim Program As String
   Dim TaskID As Double
   
   Program = "c:\soubor.exe"
   TaskID = Shell(Program, vbNormalFocus)

Tak beru zpět

Problém je,že současně při spouštění se načítájí data z ini. souboru

a tam je zakopaný pes,ale proč nevím,protože se to nespustí jenom

z VBA.Pokud zkompiluji jiný exe který nenačítá z ini tak to funguje

?????

Existuje nějaká jiná volba jak spouštět exe soubory ve VBA

Tak vyřešeno!

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub CommandButton1_Click()
 Dim Program As String
 Dim TaskID As Long
 
 
TaskID = ShellExecute(0, "open", "c:\soubor.exe", "", "c:\", 1)
   
End Sub