Extract Multiple Company Codes

[Former Member]

Hi SAP Community ,

Seeking for help if someone can tell me how or if its possible to Extract Multiple Company Codes. VBA Script Below for Reference.

session.FindById("wnd[0]").Maximize session.FindById("wnd[0]/tbar[0]/okcd").Text = "ZERD_CF00098" session.FindById("wnd[0]").SendVKey 0 session.FindById("wnd[0]/usr/subSUBSCR:ZFIR093:0100/ctxtS_SYDAT").Text = "12/31/2018"

#############################################################################

this is the company code.. DE04 and i want to also extract all company codes inside "ZERD_CF00098"

or DE04 , US11 , and so on.........

session.FindById("wnd[0]/usr/subSUBSCR:ZFIR093:0100/ctxtS_BUKRS").Text = "DE04"

##########################################################################

session.FindById("wnd[0]/usr/subSUBSCR:ZFIR093:0100/ctxtS_HKONT-LOW").Text = "1130100" session.FindById("wnd[0]/usr/subSUBSCR:ZFIR093:0100/ctxtS_POSTD").Text = "12/31/2018" session.FindById("wnd[0]/usr/subSUBSCR:ZFIR093:0100/ctxtS_POSTD").SetFocus session.FindById("wnd[0]/usr/subSUBSCR:ZFIR093:0100/ctxtS_POSTD").CaretPosition = 10 session.FindById("wnd[0]/tbar[1]/btn[8]").Press session.FindById("wnd[0]/tbar[1]/btn[8]").Press session.FindById("wnd[0]/mbar/menu[0]/menu[3]/menu[2]").Select session.FindById("wnd[1]/tbar[0]/btn[0]").Press session.FindById("wnd[1]/usr/ctxtDY_PATH").SetFocus objSess.FindById("wnd[1]/usr/ctxtDY_PATH").Text = fpath session.FindById("wnd[1]/usr/ctxtDY_PATH").CaretPosition = 0 objSess.FindById("wnd[1]/usr/ctxtDY_FILENAME").Text = ffilename objSess.FindById("wnd[1]/usr/ctxtDY_FILENAME").CaretPosition = 3 objSess.FindById("wnd[1]/tbar[0]/btn[11]").Press