#1
|
|||
|
|||
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 |
Herramientas | Buscar en Tema |
Desplegado | |
|
|