Calling a Siebel Business Service from an Excel Macro

Question

Hi Everyone !!
I have a requirement where i have to call a siebel Business Service from an excel macro. Please help me with the code.
Regards,
Abhi

Answer 1

Here's a starter for one:
Private Function ConnectToSiebel(sConnectString As String, sUserName As String, sPassword As String, _
oSiebel As SiebelDataControl) As Boolean
On Error GoTo ErrorHandler
' Uses the specified parameters to connect to the Data Control
Dim iErrCode As Integer
Set oSiebel = CreateObject("SiebelDataControl.SiebelDataControl.1")
oSiebel.Login sConnectString, sUserName, sPassword
If (oSiebel.GetLastErrCode <> 0) Then GoTo ErrorHandler
ConnectToSiebel = True
Exit Function
ErrorHandler:
MsgBox oSiebel.GetLastErrCode
ConnectToSiebel = False
End Function
The connect string passed takes the format:
host="siebel://<SERVER_HOST>/<SERVER_NAME>/PSCcObjMgr_enu"
You can then use the 'oSiebel' object as if it was the Application(). For example, Set oService = oSiebel.GetBusService("Blah")
Regards,
mroshaw