Как скопировать данные из SAP в Excel с VBA?

Question

Я хотел бы автоматизировать несколько транзакций, поэтому я импортирую свои данные в буферный файл (я бы предпочел .txt).Затем я буду использовать этот буферный файл, который всегда будет иметь одинаковое имя для примера (TEST.txt).Затем я хочу скопировать эти данные, чтобы передать их в мой файл Excel, файл, в который я должен вставить все свои данные (я назову это FOS).

  Public Sub RunGUIScript()
  Dim W_Ret As Boolean
 ' Connect to SAP
  W_Ret = Attach_Session
  If Not W_Ret Then
  Exit Sub
  End If
  On Error GoTo myerr
  objSess.findById("wnd[0]/usr/tabsTABSTRIP_TABBL1/tabpUCOM2/ssub%_
  SUBSCREEN_TABBL1:RFBILA00:0002/ctxtBILAGKON").text = "3"
  objSess.findById("wnd[0]/usr/tabsTABSTRIP_TABBL1/tabpUCOM2/ssub%_
  SUBSCREEN_TABBL1:RFBILA00:0002/ctxtBILAVART").text = "1"
  objSess.findById("wnd[0]/usr/tabsTABSTRIP_TABBL1/tabpUCOM2/ssub%_
  SUBSCREEN_TABBL1:RFBILA00:0002/ctxtBILASKAL").text = 
  "0/0"
  objSess.findById("wnd[0]/usr/tabsTABSTRIP_TABBL1/tabpUCOM2/
  ssub%_SUBSCREEN_TAB BL1:RFBILA00:0002/ctxtBILASKAL").setFocus
  objSess.findById("wnd[0]/usr/tabsTABSTRIP_TABBL1/tabpUCOM2/
  ssub%_SUBSCREEN_TAB BL1:RFBILA00:0002/ctxtBILASKAL").caretPosition = 3
  objSess.findById("wnd[0]/tbar[1]/btn[8]").press
  objSess.findById("wnd[0]/mbar/menu[0]/menu[3]/menu[2]").select
  objSess.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/
  sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").select
  objSess.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/
  sub:SAPLSPO5: 0150/radSPOPLI-SELFLAG[1,0]").setFocus
  objSess.findById("wnd[1]/tbar[0]/btn[0]").press
  objSess.findById("wnd[1]/usr/ctxtDY_FILENAME").text = "TEST.TXT"
  objSess.findById("wnd[1]/usr/ctxtDY_FILENAME").caretPosition = 11
  objSess.findById("wnd[1]/tbar[0]/btn[0]").press
  Exit Sub

После выполнения этого кода яхотел бы найти файл по этому пути: C: \ Users \ p100789 \ Documents \ SAP \ SAP GUI, а затем вставьте его в файл Excel FOS на листе с именем Table30.