Skip to Content
avatar image
Former Member

how to get data from a me1m transaction to excel through scripting

hi, all the below is a  me1m transaction. i would like to get the vendor names for a part number from sap, as you can see i some vendor names displayed for a part number  I entered, i would like to have a sap scripting that would open me1m transaction and get part number info from for it and copy vendor names for the part number and paste it to the excel sheet, i can open me1m and enter part number to it, but i cant get the data from me1m, so anyone knowledge plse help

the below mentioned is script file.

'vb code

Dim oSapGuiAuto As Object

Dim oGuiApplication As Object

Dim oConnection As Object

Dim oSession As Object

Dim indexOD As Long

Dim lngCountOD As Long

'---------------------------------------------------------------

' Activate Scripting

Set oSapGuiAuto = GetObject("SAPGUI")

Set oGuiApplication = oSapGuiAuto.GetScriptingEngine

If oConnection Is Nothing Then Set oConnection = oGuiApplication.Children(0)

If oSession Is Nothing Then Set oSession = oConnection.Children(0)

If oSession Is Nothing Then Exit Sub

' Exit if you don't sure

If MsgBox("Now connecting [ " & oSession.PassportSystemId & " ], Continue Processing?", _

            vbOKCancel) = vbCancel Then Exit Sub

''

    '//********** Put recorded code here *******************///'

    With oSession

   

     .findById("wnd[0]").maximize

        .findById("wnd[0]/tbar[0]/okcd").Text = "me1m"

.findById("wnd[0]").sendVKey 0

'part number is taken from excel sheet

.findById("wnd[0]/usr/ctxtIF_MATNR-LOW").Text = "partnumber"

.findById("wnd[0]/usr/ctxtI_EKORG-LOW").Text = "282b"

.findById("wnd[0]/usr/ctxtI_EKORG-LOW").SetFocus

.findById("wnd[0]/usr/ctxtI_EKORG-LOW").caretPosition = 4

.findById("wnd[0]/tbar[1]/btn[8]").press

.findById("wnd[0]").resizeWorkingPane 265,39,false

.findById("wnd[0]/usr/ctxtIF_LIFNR-LOW").text = ""

.findById("wnd[0]/usr/ctxtIF_LIFNR-LOW").setFocus

.findById("wnd[0]/usr/ctxtIF_LIFNR-LOW").caretPosition = 0

findById("wnd[0]/tbar[1]/btn[8]").press

.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").currentCellColumn = "LIFNR"

.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").doubleClickCurrentCell

End With

       

    '//********** Put recorded code here *******************///'

   

    Next indexOD

End With

    MsgBox "All DONE!"

' Cleanup

    Set oSession = Nothing

    Set oConnection = Nothing

    Set oGuiApplication = Nothing

    Set oSapGuiAuto = Nothing

    Sheets("input").Activate

End Sub

the issues i am facing ctrl + y and ctrl +c function to get data from sap to excel cannot be scripted. i want some soluction to locate vendor column and get data from it.

Add comment
10|10000 characters needed characters exceeded

  • Get RSS Feed

1 Answer

  • Best Answer
    Dec 02, 2015 at 12:28 PM

    Hi Deepan

    You can find the Column specified Column with this little peace of Code:

    Set grid = sapsession.FindById("wnd[0]/usr/cntlGRID1/shellcont/shell")
            grid.SelectAll
            Set colValues = grid.SelectedColumns()
            IntColCount = colValues.Count
            For i = 0 To IntColCount - 1
                If grid.GetDisplayedColumnTitle(colValues(i)) = "Vendor" Then
                    Exit For
                End If
            Next
            v_text = grid.GetCellValue(1, colValues(i))
    

    This returns the first Value in the Vendor Column

    have fun

    Bg Thomas B

    Add comment
    10|10000 characters needed characters exceeded

    • Former Member Script Man

      hi,

      thanks scriptman and thomas too, the code worked, issue is i have only one row with value and thomas have given reference to row 1,whereas sap row starts from row0,so i changed code

      v_text = grid.GetCellValue(0 , "LIFNR") and it worked, thank you both the gentlemen for your help in time.