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.

8 Comments

You must be Logged on to comment or reply to a post.

Alvaro Tejada Galindo September 14, 2006 at 4:23 am

Hi Kathir:

Thanx for your nice comments -;) I’m just a developer trying to make some nice stuff…But you really blow my mind! SE38 Excel Emulator?! You really deserved all the applauses -:D

Great job man…Very impressive…

Greetings,

Blag.

like (0)
1. Kathirvel Balakrishnan Post authorSeptember 14, 2006 at 5:00 am
  
  Thanks a lot Alvaro…
  Your examples are very innovative.
  
  Keep blogging…
  
  Ragards
  Kathirvel
  
  like (0)
2. Michael Nicholls September 21, 2006 at 1:10 pm
  
  Nice tool, but as a suggestion you may want to make sure there are no “delete from” type statements being executed… 🙂
  
  like (0)
  1. Kathirvel Balakrishnan Post authorSeptember 21, 2006 at 6:01 pm
    
    Hi Michael
    
    That’s is very true. This is just an example, in case something more generic is created, then it will be mandatory to add such validations.
    
    Thanks for your inputs. 🙂
    
    Regards
    Kathir~
    
    like (0)
Jörg-Martin Schulz January 16, 2007 at 3:20 am

Hi Kathirvel,

it seems to be a good idea, but doesn’t work with all versions of xl. My version 2003 reports an error in the line with
“Dim objProgram, objWrites As Table”.
What xl-version are you using?

Greetings Martin

like (0)
1. Kathirvel Balakrishnan Post authorJanuary 16, 2007 at 3:29 am
  
  Hi Martin,
  
  I am using Excel 2003, it works fine for me. I guess you must not have included the SAPTableFactory ocx object. Please read this blog for more information on that,
  Remote Function Call to SAP System using Microsoft Excel
  
  Regards
  Kathirvel
  
  like (0)
Victor Figueroa August 27, 2007 at 6:25 am

Hi, is posible using directy Excel file or MS Project send data to Z tabla via RFC ?

I need send from Excel or MS Project to Z Table.

Any idea ?

Thank you.

like (0)
1. Kathirvel Balakrishnan Post authorAugust 27, 2007 at 7:03 am
  
  I have tried with Excel and it worked fine. A couple of blogs on material upload is already there in SDN,
  
  /people/kathirvel.balakrishnan2/blog/2006/05/08/data-upload-into-sap-from-microsoft-excel-150-abap-part
  /people/kathirvel.balakrishnan2/blog/2006/05/09/data-upload-into-sap-from-microsoft-excel-150-vba-part
  
  You can adopt similar logic for your Z tables.
  
  Regards
  Kathirvel
  
  like (0)