Skip to Content
0
Former Member
Jun 29, 2016 at 09:08 AM

Attaching documents in FB03

568 Views

Hello Dears,

I hope you can help me with my problem.

I am trying to do a VBA macro in Excel and goal is to attach a file in a document number.

I have recorded a script in SAP and edited it, but the pop-up box won't direct to my file path and I have to click the attachment everytime the macro runs.

Here's the script of my macro.

______

Sub Picture1_Click()

'

Dim application

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 = Connect

ion.Children (0)

End If

If IsObject(WScript) Then

WScript.ConnectObject session, "on"

WScript.ConnectObject application, "on"

End If

LG = 3

Do While Range("A" & LG) > ""

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 = Range("A" & LG)

session.findById("wnd[0]/usr/ctxtRF05L-BUKRS").Text = Range("B" & LG)

session.findById("wnd[0]/usr/txtRF05L-GJAHR").Text = Range("C" & LG)

session.findById("wnd[0]/usr/txtRF05L-GJAHR").SetFocus

session.findById("wnd[0]/usr/txtRF05L-GJAHR").caretPosition = 4

session.findById("wnd[0]").sendVKey 0

session.findById("wnd[0]/titl/shellcont/shell").pressContextButton "%GOS_TOOLBOX"

session.findById("wnd[0]/titl/shellcont/shell").selectContextMenuItem "%GOS_PCATTA_CREA"

LG = LG + 1

Loop

MsgBox UCase(Environ("username")) & ": Done attaching."

End Sub

___

I hope you can help me so I won't have to attach manually in SAP.

Thanks!