如何使用 SAP GUI 自動設置 sap.xlsx/.xls/.xlsm 提取的路徑和文件名

Question

我正在使用 SAP GUI 腳本來提取 SAP 事務，但腳本由於保存表單而停止

我必須手動編寫文件名和保存路徑，如何讓 SAP 自動執行此操作？

代碼：

Public Sub RunGUIScript_PROJ_WP_INFO_INV()

Dim W_Ret As Boolean
Dim answer As Integer


' Connect to SAP
W_Ret = Attach_Session
If Not W_Ret Then
Exit Sub
End If


On Error GoTo myerr

session.findById("wnd[0]").maximize
session.findById("wnd[0]/usr/txtGD-MAX_LINES").SetFocus
session.findById("wnd[0]/usr/txtGD-MAX_LINES").caretPosition = 7
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[0]/usr/tblSAPLSE16NSELFIELDS_TC/btnPUSH[4,1]").SetFocus
session.findById("wnd[0]/usr/tblSAPLSE16NSELFIELDS_TC/btnPUSH[4,1]").press
session.findById("wnd[1]/tbar[0]/btn[24]").press
session.findById("wnd[1]/tbar[0]/btn[8]").press
session.findById("wnd[0]/tbar[1]/btn[8]").press
session.findById("wnd[0]/usr/cntlRESULT_LIST/shellcont/shell").pressToolbarContextButton "&MB_EXPORT"
session.findById("wnd[0]/usr/cntlRESULT_LIST/shellcont/shell").selectContextMenuItem "&XXL"

WaitingForm.Show
MsgBox "Extracción Exitosa", vbInformation, "SAP"

Exit Sub
myerr:
  MsgBox "Error while retrieving data", vbOKOnly + vbCritical

End Sub

Answer 1

我們的 SAP 最近更新並破壞了我的許多腳本，禁用“顯示本機 MS Windows 對話框”允許我以前的代碼再次運行。 基本 SAP 腳本無法直接與屏幕截圖中顯示的 MS windows 對話框連接。

下面是設置路徑和文件名的代碼

session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell/shellcont[1]/shell").contextMenu
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell/shellcont[1]/shell").selectContextMenuItem "&XXL"
session.findById("wnd[1]/tbar[0]/btn[0]").press

'set path and file name
session.findById("wnd[1]/usr/ctxtDY_PATH").text = "\\network\path\to\folder\"
session.findById("wnd[1]/usr/ctxtDY_FILENAME").text = "Filename.xlsx"
session.findById("wnd[1]/tbar[0]/btn[0]").press