|
本帖最后由 petervba 于 2012-3-19 19:50 编辑
小弟弱弱问一声 坛子里有懂SAP与excel VBA联动的吗?
我想让SAP通过excel自动添加我指定的附件到会计凭证后面。已经调出插入附件的窗口了, 可sap自带的宏录制, 录不了插入附件的动作。卡死在这了 求高人指点~~
Sub quickinsertattachment()
'
SAPactive
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 = Cells(ActiveCell.Row, 3)
Session.findById("wnd[0]/usr/ctxtRF05L-BUKRS").Text = Cells(ActiveCell.Row, 2)
Session.findById("wnd[0]/usr/txtRF05L-GJAHR").Text = Cells(ActiveCell.Row, 1)
Session.findById("wnd[0]/usr/txtRF05L-BELNR").caretPosition = 0
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"
’==此处需要要有插入指定文件的代码
Session.findById("wnd[1]").Close
End Sub
|
|