如何在Excel中使用VB宏連接SAP系統(tǒng)

可以. 但需要對(duì)應(yīng)的用戶(hù)有RFC權(quán)限. 通時(shí)應(yīng)了解BAPI函數(shù)及登錄的標(biāo)準(zhǔn)樣式. 登錄后調(diào)研bapi即可導(dǎo)出后到excel.

創(chuàng)新互聯(lián)建站主要從事網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作、網(wǎng)頁(yè)設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)康平,10年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專(zhuān)業(yè),歡迎來(lái)電咨詢(xún)建站服務(wù):18982081108

SAP abap macro怎么用？define and end-of-defination 語(yǔ)法如何用？

define initial_field. “宏的開(kāi)始

wa_fieldcat-seltext_1 = 1. “1 是第一個(gè)參數(shù)，2是第二個(gè)參數(shù)，以此類(lèi)推

wa_fieldcat-seltext_m = 1.

wa_fieldcat-seltext_s = 1.

wa_fieldcat-fieldname = 2.

append wa_fieldcat to it_fieldcat.

end-of-defination. ”宏的結(jié)束

可意這樣調(diào)用

initial_field: '物料' 'MATNR',

'物料名' 'MAKTX',

'工廠' 'WERKS'.

sap怎么錄屏

LSMW里面，你會(huì)發(fā)現(xiàn)在第一個(gè)按鈕雙擊進(jìn)去，有四個(gè)可以選擇，第二個(gè)就是，recording，錄屏，去試試吧！

sap虛擬機(jī)不能腳本錄制

背景：

實(shí)現(xiàn)sap系統(tǒng)自動(dòng)化前，需要先開(kāi)啟自動(dòng)錄制腳本功能和啟用腳本功能。大部分機(jī)器默認(rèn)是關(guān)閉這兩個(gè)功能的，如果沒(méi)開(kāi)啟這兩個(gè)功能，后續(xù)也無(wú)法進(jìn)行自動(dòng)化。因此，我們需要先開(kāi)啟這兩個(gè)功能。

問(wèn)題現(xiàn)象：

1、如下圖，在SAP界面的定制本地布局菜單中，腳本錄制和回放功能為灰色，無(wú)法進(jìn)行點(diǎn)擊操作，因此也無(wú)法進(jìn)行本地腳本錄制。

?

2、執(zhí)行sap腳本后，連接不上SAP系統(tǒng)，無(wú)法進(jìn)行自動(dòng)化操作。

解決方式：

步驟1、開(kāi)啟腳本錄制功能

1、 進(jìn)入事務(wù)RZ11。sap界面左上角輸入框輸入RZ11，回車(chē)即可進(jìn)入對(duì)應(yīng)事務(wù)（如果SAP左下角提示您無(wú)權(quán)限使用事務(wù)RZ11，那就找管理員先開(kāi)事務(wù)權(quán)限吧。）

?進(jìn)入對(duì)應(yīng)事務(wù)

2、 輸入 sapgui/user_scripting，并點(diǎn)擊顯示按鈕

?

3、 檢查“當(dāng)前值”是否為T(mén)rue。如果為False，則改為T(mén)rue。

?

步驟2、開(kāi)啟腳本功能

1、 如圖，進(jìn)入SAP界面的選項(xiàng)。

?

2、進(jìn)行如下設(shè)置，點(diǎn)擊確定按鈕保存即可。（之后好像要重啟SAP系統(tǒng)）

?

自動(dòng)化腳本錄制驗(yàn)證：

1、 點(diǎn)擊腳本錄制和回放功能

?

2、 錄制腳本前，先設(shè)置腳本保存的路徑，之后再點(diǎn)擊紅色按鈕開(kāi)始錄制腳本，就可以在SAP系統(tǒng)上進(jìn)行自動(dòng)化操作了，結(jié)束操作時(shí)，點(diǎn)擊黃色按鈕結(jié)束錄制。

?

3、之后打開(kāi)錄制的腳本文件，里面的代碼就是自動(dòng)錄制的腳本了?？蓪⑵滗浿频哪_本拷貝到Excel的宏里面執(zhí)行，即可實(shí)現(xiàn)SAP自動(dòng)化。

?sap自動(dòng)化錄制的代碼

4、補(bǔ)充，必看。

SAP腳本錄制時(shí)，那錄制窗口里面還有個(gè)綠色的回放按鈕（我這邊實(shí)測(cè)該按鈕無(wú)效）。此外，因?yàn)槲疫@邊自動(dòng)化還需要使用到excel的數(shù)據(jù)，所以將錄制的腳本代碼拷貝到excel的宏里面去執(zhí)行。

代碼拷貝到excel后，不要直接執(zhí)行，我們需要先修改代碼里面的application變量名（如上圖綠色字體，該變量名會(huì)和excel的對(duì)象沖突），將其改為其他變量名字（自己隨便起個(gè)）。

以下是我錄制到sap自動(dòng)化代碼，供大家參考。經(jīng)過(guò)和Excel的表格數(shù)據(jù)結(jié)合，生成的VB腳本，直接存放于Excel的宏腳本里面。使用時(shí)，僅需要先將Excel數(shù)據(jù)錄好，再登錄SAP系統(tǒng)，就可以執(zhí)行宏腳本了，即可實(shí)現(xiàn)SAP的自動(dòng)化。

Sub 批量創(chuàng)建檢驗(yàn)批()

Set SapGuiAuto = GetObject("SAPGUI")

Set AppSAP = SapGuiAuto.GetScriptingEngine

Set Connection = AppSAP.Children(0)

Set session = Connection.Children(0)

Cells(1, 8) = "檢驗(yàn)批次"

maxrow = Sheets(1).[A65536].End(xlUp).Row

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

session.findById("wnd[0]/tbar[0]/okcd").Text = "QA01"

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

For i = 2 To maxrow

session.findById("wnd[0]/usr/ctxtQALS-MATNR").Text = ""

session.findById("wnd[0]/usr/ctxtQALS-WERK").Text = ""

session.findById("wnd[0]/usr/ctxtQALS-MATNR").Text = Cells(i, 2)

session.findById("wnd[0]/usr/ctxtQALS-WERK").Text = Cells(i, 4)

session.findById("wnd[0]/usr/ctxtQALS-HERKUNFT").Text = "89"

session.findById("wnd[0]/usr/ctxtQALS-HERKUNFT").SetFocus

session.findById("wnd[0]/usr/ctxtQALS-HERKUNFT").caretPosition = 2

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

session.findById("wnd[0]/usr/tabsTABSTRIP/tabpHERK/ssubSUBSCR_TABSTRIP:SAPLQPL1:0212/txtQALS-LOSMENGE").Text = Cells(i, 7)

session.findById("wnd[0]/usr/tabsTABSTRIP/tabpHERK/ssubSUBSCR_TABSTRIP:SAPLQPL1:0212/ctxtQALS-PASTRTERM").SetFocus

session.findById("wnd[0]/usr/tabsTABSTRIP/tabpHERK/ssubSUBSCR_TABSTRIP:SAPLQPL1:0212/ctxtQALS-PASTRTERM").caretPosition = 3

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

session.findById("wnd[1]/usr/cntlCONTAINER/shellcont/shell").selectionInterval = Cells(i, 5) + "," + Cells(i, 5)

session.findById("wnd[0]/usr/tabsTABSTRIP/tabpHERK/ssubSUBSCR_TABSTRIP:SAPLQPL1:0212/txtQALS-KTEXTLOS").Text = Cells(i, 6)

session.findById("wnd[0]/usr/tabsTABSTRIP/tabpHERK/ssubSUBSCR_TABSTRIP:SAPLQPL1:0212/txtRMQEA-NAMEKUNDE").SetFocus

session.findById("wnd[0]/usr/tabsTABSTRIP/tabpHERK/ssubSUBSCR_TABSTRIP:SAPLQPL1:0212/txtRMQEA-NAMEKUNDE").caretPosition = 15

session.findById("wnd[0]/usr/tabsTABSTRIP/tabpVORG").Select

session.findById("wnd[0]/usr/tabsTABSTRIP/tabpVORG/ssubSUBSCR_TABSTRIP:SAPLQPL1:0202/btnVORGSEL").press

session.findById("wnd[0]/usr/tabsTABSTRIP/tabpSTIP").Select

session.findById("wnd[0]/usr/tabsTABSTRIP/tabpSTIP/ssubSUBSCR_TABSTRIP:SAPLQPL1:0203/btnDYNA").press

Cells(i, 8) = session.findById("wnd[0]/usr/subLOT_HEADER:SAPLQPL1:1102/ctxtQALS-PRUEFLOS").Text

session.findById("wnd[0]/tbar[0]/btn[11]").press

Next i

session.findById("wnd[0]/tbar[0]/btn[12]").press

End Sub

引用：

藝賽旗：自己動(dòng)手實(shí)現(xiàn) SAP GUI 自動(dòng)化

分享文章：sap系統(tǒng)錄制宏的簡(jiǎn)單介紹
地址分享：http://www.rwnh.cn/article22/ddgocjc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)頁(yè)設(shè)計(jì)公司、靜態(tài)網(wǎng)站、建站公司、搜索引擎優(yōu)化、標(biāo)簽優(yōu)化、微信小程序

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話(huà)：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)