cancel
Showing results for 
Search instead for 
Did you mean: 

MACRO PARA CARGAR UN ARCHIVO PDF EN FORMA MASIVA

Lezcano
Newcomer
0 Kudos
70

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 

Accepted Solutions (0)

Answers (0)