SPSS not recognized by VBA

[la volta statistics]

Hi All

 

I have a hard time to get SPSS recognized by VBA. I am using SPSS 18.03 and have SPSS 15 installed at the same computer (Windows XP).

 

In the VBA project I have the

- SPSS Type Library                 -> referenced at C:\Progremme\SPSS\spsswin.tlb

and

- PAWS Statistics Type Library     -> referenced at C:\Windos\system32\spsswin.dll

 

The following code does not work:

*********************************

Sub test()

 

Dim objSpssApp As spsswinLib.Application16

 

objSpssApp = GetObject(Class:="Spss.Application16")              ' run time error 429:  Can't make object with ActiveX Component (error in German)

 

objSpssApp = GetObject(, "SPSS.Application16")                   ' run time error 429:  Can't make object with ActiveX Component (error in German)

 

objSpssApp = CreateObject("SPSS.Application16")                  ' run time error '-2147024770(8007007e): Cant find Module (error in German)

 

objSpssApp = GetObject("  ", "SPSS.Application16")               ' run time error '-2147024770(8007007e): Cant find Module (error in German)

 

End Sub

*********************************

 

Can someone help me?

 

TIA, Christian

 

 

I also re-register the spsswin.dll by submitting at the command shell as below but without any success:

 

 

C:\Programme\Gemeinsame Dateien\SPSS>regsvr32 /u spsswin.dll

 

C:\Programme\Gemeinsame Dateien\SPSS>C:\Windows\Sytem32\URTTemp\reglib.exe /u C:\Programme\Gemeinsame Dateien\SPSS\spssgclt.tlb

C:\Programme\Gemeinsame Dateien\SPSS>C:\Windows\Sytem32\URTTemp\reglib.exe /u C:\Programme\Gemeinsame Dateien\SPSS\spsspvt.tlb

C:\Programme\Gemeinsame Dateien\SPSS>C:\Windows\Sytem32\URTTemp\reglib.exe /u C:\Programme\Gemeinsame Dateien\SPSS\spssrtf.tlb

C:\Programme\Gemeinsame Dateien\SPSS>C:\Windows\Sytem32\URTTemp\reglib.exe /u C:\Programme\Gemeinsame Dateien\SPSS\spssein.tlb

C:\Programme\Gemeinsame Dateien\SPSS>C:\Windows\Sytem32\URTTemp\reglib.exe /u C:\Programme\Gemeinsame Dateien\SPSS\treeview.tlb

C:\Programme\Gemeinsame Dateien\SPSS>C:\Windows\Sytem32\URTTemp\reglib.exe /u C:\Programme\Gemeinsame Dateien\SPSS\vischart.tlb

 

 

C:\Programme\Gemeinsame Dateien\SPSS>C:\Windows\Sytem32\URTTemp\reglib.exe  C:\Programme\Gemeinsame Dateien\SPSS\spssgclt.tlb

C:\Programme\Gemeinsame Dateien\SPSS>C:\Windows\Sytem32\URTTemp\reglib.exe  C:\Programme\Gemeinsame Dateien\SPSS\spsspvt.tlb

C:\Programme\Gemeinsame Dateien\SPSS>C:\Windows\Sytem32\URTTemp\reglib.exe  C:\Programme\Gemeinsame Dateien\SPSS\spssrtf.tlb

C:\Programme\Gemeinsame Dateien\SPSS>C:\Windows\Sytem32\URTTemp\reglib.exe  C:\Programme\Gemeinsame Dateien\SPSS\spssein.tlb

C:\Programme\Gemeinsame Dateien\SPSS>C:\Windows\Sytem32\URTTemp\reglib.exe  C:\Programme\Gemeinsame Dateien\SPSS\treeview.tlb

C:\Programme\Gemeinsame Dateien\SPSS>C:\Windows\Sytem32\URTTemp\reglib.exe  C:\Programme\Gemeinsame Dateien\SPSS\vischart.tlb

 

C:\Programme\Gemeinsame Dateien\SPSS>regsvr32  spsswin.dll

 

 

 

**********************************
la volta statistics

Christian Schmidhauser, Dr.phil.II
Weinbergstrasse 108
CH-8006 Zürich
Tel: [phone]
Fax: [phone]
email: [hidden email] 
Web: www.lavolta.ch