Skip to Content
0
Former Member
Oct 30, 2013 at 09:25 AM

Get data from MB51 line by line

90 Views

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