Simple SE38 Emulator using Microsoft Excel

Recently Alvaro posted a very nice blog explaining the PHP based The specified item was not found.. I was very much impressed seeing that. I too had the same thoughts, and one of my all times favorites is the Try-It-Yourself that I used when I learnt the HTML.

Having such an emulator for simple ABAP reports is cool. Thanks to Alvaro for sharing this example which helped me to find this RFC_ABAP_INSTALL_AND_RUN function module.

Here is one more using every one’s favorite Microsoft Excel.

The Excel SE38 emulator

The result

The complete source code for the same is given below,

The declaration

‘ Declaration for the necessary objectsDim objBAPICortrol, objConnection, objABAP As ObjectDim objProgram, objWrites As TableDim objMode, objProgramName As ObjectDim v_count As IntegerDim v_login As Boolean

To clear the source code

Private Sub Clear_Editor_Click()Dim v_line As Integerv_line = 3Do While (Sheet1.Cells(v_line, 1).Value <> “”)Sheet1.Cells(v_line, 1).Value = “”v_line = v_line + 1LoopEnd Sub

To clear the result

Private Sub Clear_Result_Click()Dim v_line As Integerv_line = 1Do While (Sheet2.Cells(v_line, 1).Value <> “”)Sheet2.Cells(v_line, 1).Value = “”v_line = v_line + 1LoopSheet2.ActivateEnd Sub

To Execute and Display result

Private Sub Execute_ABAP_Report_Click()On Error Resume Next’ Setting the necessary variables for R/3 connectionSet objBAPICortrol = CreateObject(“SAP.Functions”)Set objConnection = objBAPICortrol.Connection’ Establish a connectionIf objConnection.Logon(0, False) Then    MsgBox “Connection Established”End IfIf objConnection <> Null Thenv_login = TrueEnd IfDim v_report As Stringv_report = Sheet1.Cells(2, 1).ValueIf v_login = True Then’ The required BAPISet objABAP = objBAPICortrol.Add(“RFC_ABAP_INSTALL_AND_RUN”)’ The Import ParametersSet objMode = objABAP.Exports(“MODE”)objMode.Value = “F”Set objProgramName = objABAP.Exports(“PROGRAMNAME”)objProgramName.Value = “<<RFC1>>”‘ The Table with the program codesSet objProgram = objABAP.Tables(“PROGRAM”)v_count = 1Do While (Sheet1.Cells((v_count + 2), 1).Value <> “”)objProgram.AppendRowobjProgram.Value(v_count, “LINE”) = Trim(Sheet1.Cells((v_count + 2), 1).Value)v_count = v_count + 1Loop’ Making RFC call to SAPobjABAP.callSet objWrites = objABAP.Tables(“WRITES”)’ Row countMsgBox “Row count :” & objWrites.RowCount’ Finally displaying the resultFor v_count = 1 To objWrites.RowCountSheet2.Cells(v_count, 1) = objWrites.Cell(v_count, 1)Next v_countSheet2.ActivateEnd IfEnd Sub

I hope this is very simple and useful.