completely quit the created object in VBA excel

[mrhackgm]

Hi there.,

I'm doing a code for running Syntax of SPSS
by creating SPSS object in VBA excel -> run SPSS Syntax -> close SPSS object -> run next SPSS Syntax
so far, it can run the first Spss Syntax (*.sps file) very smoothly.

But the code seems not working well. It didn't close(quit) completely SPSS object.
and It can not run the second Spss'Syntax (the next *.sps file)

Is there any idea for my case?
How could completely close/quit/dispose SPSS created object?

Any idea is appreciated
Thank in advance.

Sub runspsssyntax()

Dim i As Integer, link As String
Dim SPSS As spsswin.Application

For i = 0 To 40
link = "C:\Users\" & i & ".sps"

Set SPSS = GetObject(, "SPSS.Application")
SPSS.ExecuteInsert FileName:=link, syntaxBatch:=True, errorStop:=False, cd:=True, Sync:=True

SPSS.Quit
Set SPSS = Nothing
Next i

End Sub

[mrhackgm]

Is there any idea for me, please?

Thanks

[Zvoni]

Why are you Creating and quitting inside the loop?
Untested

Sub runspsssyntax()

Dim i As Integer, link As String
Dim SPSS As spsswin.Application
Set SPSS = GetObject(, "SPSS.Application")

For i = 0 To 40
link = "C:\Users\" & i & ".sps"


SPSS.ExecuteInsert FileName:=link, syntaxBatch:=True, errorStop:=False, cd:=True, Sync:=True


Next i
SPSS.Quit
Set SPSS = Nothing
End Sub

What baffles me completely:
You have those scripts in "c:\Users"????

[ahenry]

I'm guessing you'd have better luck with IBM support than here.

[mrhackgm]

Why are you Creating and quitting inside the loop?
Untested

I think that VBA excel will call SPSS Object then
run SPSS Syntax -> close SPSS object -> call new SPSS object -> run next SPSS Syntax -> so on...
Because I already have SPSS syntaxes,

normally I open SPSS application, open SPSS syntax, Ctrl + A that syntax, Ctrl + R to run that Syntax.
SPSS application would give me what I want. THEN close SPSS. Perform steps over and over again.

so far, I have 20 -> 100 syntaxes and more than, it really takes time to perform one by one by mormally.

What baffles me completely:

You have those scripts in "c:\Users"????

the completely address will be: "C:\Users\admin\Desktop\gst regis\example001.sps"
with example001.sps is model number 001

Thanks

[mrhackgm]

is it possible if we use "Application.sendkeys" for VBA sendkeys to objects to Quit it-self?

Thanks.