Dear gurus
i have made a bapi and im calling it from EXCEL.
below is the connection code.
Public Const CNT_STR_USR As String = "ABAP"
Public Const CNT_STR_PWD As String = "******"
Public Const CNT_STR_APPLN_SRVR As String = "***.***.**.**"
Public Const CNT_STR_SYSTEM As String = "R3P"
Public Const CNT_STR_SYS_NUM As String = "00"
Public Const CNT_STR_CLIENT As String = "800"
Public Const CNT_STR_LOGON_LANG As String = "EN"
Public Const CNT_STR_ROUTER As String = "/H/***.***.***.***/H/"
Public Const CNT_STR_LOG_FILE As String = "C:\Store_Activities.txt"
Public Const CNT_INT_LOG_LEVEL As Integer = 9
Sub button1_click()
Dim objCompanyCodes As Object
Set obSAPFnCntrl = CreateObject("SAP.Functions")
Set obSAPConn = obSAPFnCntrl.Connection
' Log the overall activity
obSAPFnCntrl.LogLevel = CNT_INT_LOG_LEVEL
obSAPFnCntrl.LogFileName = CNT_STR_LOG_FILE
'Set the properties for the connection control
With obSAPConn
.ApplicationServer = CNT_STR_APPLN_SRVR
.SystemNumber = CNT_STR_SYS_NUM
.Destination = "R3D"
.User = CNT_STR_USR
.Password = CNT_STR_PWD
.Language = CNT_STR_LOGON_LANG
.HostName = CNT_STR_APPLN_SRVR
.Client = CNT_STR_CLIENT
'.SAPRouter = CNT_STR_ROUTER
End With
'Logon to SAP in silent mode
If obSAPConn.Logon(0, True) = False Then
MsgBox "R/3 connection failed"
Exit Sub
End If
This code is working fine in windows XP under MSOFFICE 2007 but when i try to use on Win97 under office 97 i get this error
ACTIVEX CAN'T CREATE OBJECT
How to resolve this ?
Regards
Saad Nisar
Bluesky
