I have created a VBA script to copy sales texts from orders through VA03
The script is copying the texts, but is not keeping the line break that exists in SAP. Is there something I can do to keep the line breaks when text is copied to excel?
Below you have the piece of the code that is copying from SAP and storing the text in a variable
objSess.FindById("wnd[0]").Maximize
objSess.FindById("wnd[0]/usr/ctxtVBAK-VBELN").Text = ""
objSess.FindById("wnd[0]/tbar[0]/okcd").Text = "/nva03"
objSess.FindById("wnd[0]").sendVKey 0
objSess.FindById("wnd[0]/usr/ctxtVBAK-VBELN").Text = W_OrderNumber
objSess.FindById("wnd[0]/usr/ctxtVBAK-VBELN").caretPosition = 9
objSess.FindById("wnd[0]").sendVKey 0
objSess.FindById("wnd[0]/mbar/menu[2]/menu[1]/menu[10]").Select
objSess.FindById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\09/ssubSUBSCREEN_BODY:SAPMV45A:4152/subSUBSCREEN_TEXT:SAPLV70T:2100/cntlSPLITTER_CONTAINER/shellcont/shellcont/shell/shellcont[0]/shell").SelectItem W_Text, "Column1"
objSess.FindById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\09/ssubSUBSCREEN_BODY:SAPMV45A:4152/subSUBSCREEN_TEXT:SAPLV70T:2100/cntlSPLITTER_CONTAINER/shellcont/shellcont/shell/shellcont[0]/shell").EnsureVisibleHorizontalItem W_Text, "Column1"
objSess.FindById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\09/ssubSUBSCREEN_BODY:SAPMV45A:4152/subSUBSCREEN_TEXT:SAPLV70T:2100/cntlSPLITTER_CONTAINER/shellcont/shellcont/shell/shellcont[0]/shell").DoubleClickItem W_Text, "Column1"
objSheet.Cells(iRow, 6).WrapText = True
objSheet.Cells(iRow, 6) = objSess.FindById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\10/ssubSUBSCREEN_BODY:SAPMV45A:4152/subSUBSCREEN_TEXT:SAPLV70T:2100/cntlSPLITTER_CONTAINER/shellcont/shellcont/shell/shellcont[1]/shell").Text
objSess.FindById("wnd[0]/tbar[0]/btn[3]").press
objSess.FindById("wnd[0]/tbar[0]/btn[3]").press
Thanks,
Francine