Integer Destination_System,sapok
Stringcompcode
longl_rowcnt
OleObject objBAPIControl//Function Control (Collective object)
OleObject sapConnection //Connection object
OleObject objUserList
OleObject st_rtn
objBAPIControl = Create OleObject
sapok =objBAPIControl.ConnectToNewObject( "SAP.Functions" )
objBAPIControl.Connection.Destination = "CQA"
objBAPIControl.Connection.Client = "604"
objBAPIControl.Connection.Language = "EN"
objBAPIControl.Connection.System = "R/3"
objBAPIControl.Connection.SystemNumber = "00"
objBAPIControl.Connection.Applicati
objBAPIControl.Connection.User = "88888"
objBAPIControl.Connection.Password = "88888"
objBAPIControl.Connection.AutoLogon = True
//Set sapConnection = objBAPIControl.Connection
//
// Logon with initial values
// ActiveSheet is the sheet calling the Macro / Cells(x, y) refers to the row, column in the spreadsheet
//
If objBAPIControl.Connection.Logon(0, True)True Then
MessageBox ("Cannot logon!","Logon Failed!")
Else
MessageBox ("Logon!","Logon Successful!")
End If
objUserList = objBAPIControl.Add("RFC_READ_TABLE")
//objUserList.exports.USERNAME = "xlfan"
objUserList.Exports("QUERY_TABLE","T001")
//objUserList.Exports.item[1] = "MAKT"
IF objUserList.Call() = True Then
MessageBox ("Call RFC","Call RFC Successful!")
st_rtn = objUserList.tables("DATA")
l_rowcnt = st_rtn.rowcount()
compcode = st_rtn.Value(1,1)
MessageBox("@@@@",compcode)
Else
MessageBox ("Cannot Call RFC!","Call RFC Failed!")
End if
//Set objUserDetail = objBAPIControl.Add("BAPI_USER_GET_DETAIL")
|
