on 2025 Jan 16 4:44 AM
hola
Buenas noches
disculpen ....
existira alguna macro que pueda cargar archivos pdf en forma masiva en la transaccion FB03 de forma masiva?
tengo este pero se queda en el cuadro de importacion y de alli no pasa
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 = "/nfb03"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/txtRF05L-BELNR").text = "1500028857"
session.findById("wnd[0]/usr/ctxtRF05L-BUKRS").text = "5000"
session.findById("wnd[0]/usr/txtRF05L-GJAHR").text = "2024"
session.findById("wnd[0]/tbar[0]/btn[0]").press
session.findById("wnd[0]/titl/shellcont/shell").pressButton "%GOS_TOOLBOX"
session.findById("wnd[0]/shellcont/shell").pressContextButton "CREATE_ATTA"
session.findById("wnd[0]/shellcont/shell").selectContextMenuItem "PCATTA_CREA"
quise cargarlo de esta direccion
session.findById("wnd[1]/usr/ctxtDY_FILENAME").text = "C:\Users\Luis Lezcano\Documents\01.pdf"
pero nada
agradecere mucho su ayuda
gracias
Request clarification before answering.
User | Count |
---|---|
56 | |
10 | |
8 | |
7 | |
6 | |
6 | |
5 | |
5 | |
4 | |
4 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.