Get data from MB51 line by line

[Former Member]

Dear team,

  i want to get data from mb51 transaction line by line.

for example. for one item its can be 1 or more  lines

im used next macro

For i = 2 To 10

    Item = Cells(i, 1).Value

    batch = Cells(i, 2).Value

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

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

    session.findById("wnd[0]/usr/ctxtMATNR-LOW").Text = Item

    session.findById("wnd[0]/usr/ctxtWERKS-LOW").Text = "a667"

    session.findById("wnd[0]/usr/ctxtLGORT-LOW").Text = "0001"

    session.findById("wnd[0]/usr/ctxtCHARG-LOW").Text = batch

    session.findById("wnd[0]/usr/ctxtBWART-LOW").Text = "325"

    session.findById("wnd[0]/usr/ctxtBUDAT-LOW").Text = "01.07.2013"

    session.findById("wnd[0]/usr/ctxtBUDAT-HIGH").Text = "30.10.2013"

    session.findById("wnd[0]/usr/ctxtBUDAT-HIGH").SetFocus

    session.findById("wnd[0]/usr/ctxtBUDAT-HIGH").caretPosition = 10

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

        For a = 5 To 10

        Cells(i, 4) = session.findById("wnd[0]/usr/lbl[23," & a & "]").Text

        Next

Next

but got error

[former_member213011]

I'm not sure how to do that *yet* but i think it would be easier if you tell SAP to export the list to a spreadsheet (using the drop down menu list > save to file... or press F9) then extract or format the data from there in Excel using VBA..