Import From Text File
 

Buenos dias.. espero alguien me pueda ayudar..

lo que pasa es que tengo in scrip en SAP. quiero que seleccione un archive .txt que esta guardado en la pc y descargue su contenido en una table de SAP..

el codigo que tengo abre la ventana open de SAP pero hasta ahi se queda.. alguien me ayuda con la linea de codigo para que se seleccione el .txt y lo abra y asi cargue los datos en la table de SAP?

paso el codigo que tengo...

Sub GuardarLt22()
Dim Application
Dim Connection
Dim session

'guardar LT22 EN TXT
If Not IsObject(Application) Then
Set SapGuiAuto = GetObject("SAPGUI")
Set Application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(Connection) Then
Set Connection = Application.Children(0)
End If
If Not IsObject(session) Then
Set session = Connection.Children(0)
End If
If IsObject(WScript) Then
WScript.ConnectObject session, "on"
WScript.ConnectObject Application, "on"
End If
'session.findById("wnd[0]").Maximize
session.findById("wnd[0]/tbar[0]/okcd").Text = "/NLT22"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/radT3_ALLTA").Select
session.findById("wnd[0]/usr/radT3_ALLTA").SetFocus
session.findById("wnd[0]/tbar[1]/btn[16]").press
session.findById("wnd[0]/usr/ssub%_SUBSCREEN_%_SUB%_CONTAINER:SAPLSSEL:2001/ssubSUBSCREEN_CONTAINER2:SAPLSSEL:2000/cntlSUB_CONTAINER/shellcont/shellcont/shell/shellcont[1]/shell").ExpandNode " 68"
session.findById("wnd[0]/usr/ssub%_SUBSCREEN_%_SUB%_CONTAINER:SAPLSSEL:2001/ssubSUBSCREEN_CONTAINER2:SAPLSSEL:2000/cntlSUB_CONTAINER/shellcont/shellcont/shell/shellcont[1]/shell").SelectNode " 70"
session.findById("wnd[0]/usr/ssub%_SUBSCREEN_%_SUB%_CONTAINER:SAPLSSEL:2001/ssubSUBSCREEN_CONTAINER2:SAPLSSEL:2000/cntlSUB_CONTAINER/shellcont/shellcont/shell/shellcont[1]/shell").TopNode = " 68"
session.findById("wnd[0]/usr/ssub%_SUBSCREEN_%_SUB%_CONTAINER:SAPLSSEL:2001/ssubSUBSCREEN_CONTAINER2:SAPLSSEL:2000/cntlSUB_CONTAINER/shellcont/shellcont/shell/shellcont[1]/shell").DoubleClickNode " 70"
session.findById("wnd[0]/usr/ssub%_SUBSCREEN_%_SUB%_CONTAINER:SAPLSSEL:2001/ssubSUBSCREEN_CONTAINER2:SAPLSSEL:2000/ssubSUBSCREEN_CONTAINER:SAPLSSEL:1106/btn%_%%DYN001_%_APP_%-VALU_PUSH").press

session.findById("wnd[1]/tbar[0]/btn[23]").press
'objSess.findById("wnd[1]/usr/ctxtDY_PATH").Text = fpath
session.findById("wnd[2]/usr/btnBUTTON_1").press
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[1]/tbar[0]/btn[8]").press
'session.findById("wnd[0]/usr/ctxtBDATU-LOW").Text
session.findById("wnd[0]/usr/ctxtLISTV").Text = "/DANY"
session.findById("wnd[0]/usr/ctxtLISTV").SetFocus
session.findById("wnd[0]/usr/ctxtLISTV").caretPosition = 5
session.findById("wnd[0]/tbar[1]/btn[8]").press
session.findById("wnd[0]/mbar/menu[0]/menu[1]/menu[2]").Select
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[1]/usr/ctxtDY_PATH").Text = "C:\VerificaPallet\"
session.findById("wnd[1]/usr/ctxtDY_FILENAME").Text = "LT22.TXT"
session.findById("wnd[1]/usr/ctxtDY_FILENAME").caretPosition = 8
session.findById("wnd[1]/tbar[0]/btn[11]").press
session.findById("wnd[0]/tbar[0]/btn[3]").press
session.findById("wnd[0]/tbar[0]/btn[3]").press
'session.findById("wnd[1]/tbar[0]/btn[0]").press

End Sub