如何用VBA脚本在SAP GUI中修改PDF保存弹窗的文件名？

可以实现，以下两种常用方法供参考：

方法一：利用SAP GUI Scripting原生对象操作 #

如果弹出的是SAP原生保存弹窗，可通过遍历SAP GUI窗口集合定位弹窗，直接修改文件名输入框内容：

Dim SapGuiAuto As Object
Dim Application As Object
Dim Connection As Object
Dim Session As Object
Dim PopupWindow As Object

Set SapGuiAuto = GetObject("SAPGUI")
Set Application = SapGuiAuto.GetScriptingEngine
Set Connection = Application.Children(0)
Set Session = Connection.Children(0)

' 等待弹窗加载完成
Do While Session.ActiveWindow.Type <> "GuiModalWindow"
    DoEvents
Loop

Set PopupWindow = Session.ActiveWindow
' 赋值自定义路径与文件名（控件ID需通过SAP GUI Scripting Tracker抓取实际弹窗元素ID）
PopupWindow.FindById("wnd[1]/usr/ctxtDY_PATH").Text = "C:\Your\Target\Folder\"
PopupWindow.FindById("wnd[1]/usr/ctxtDY_FILENAME").Text = "Custom_PDF_Name.pdf"
' 触发保存按钮
PopupWindow.FindById("wnd[1]/tbar[0]/btn[11]").Press

注：不同事务码的SAP弹窗控件ID可能不同，需用SAP GUI Scripting Tracker工具抓取实际元素ID。

方法二：结合Windows API操作系统标准保存对话框 #

若弹出的是Windows系统原生的「另存为」对话框，可通过Windows API定位对话框并修改文件名：

' 适配64位Office的API声明
Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr
Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lParam As String) As LongPtr

Const WM_SETTEXT = &HC

Sub SetCustomSaveFileName()
    Dim saveDialogHwnd As LongPtr
    Dim fileNameEditHwnd As LongPtr

    ' 等待「另存为」对话框出现（英文系统标题为"Save As"）
    Do
        saveDialogHwnd = FindWindow("#32770", "另存为")
        DoEvents
    Loop Until saveDialogHwnd <> 0

    ' 定位文件名输入框
    fileNameEditHwnd = FindWindowEx(saveDialogHwnd, 0, "Edit", vbNullString)
    If fileNameEditHwnd <> 0 Then
        ' 设置自定义文件名
        SendMessage fileNameEditHwnd, WM_SETTEXT, 0, "Custom_PDF_Name.pdf"
    End If
End Sub

注：需根据系统语言调整对话框标题参数，32位Office需移除PtrSafe关键字。

注意事项 #

1. 确保SAP GUI已启用脚本：在SAP GUI选项中开启「启用脚本」，并通过事务码RZ11设置参数sapgui/user_scripting为TRUE；
2. 控件ID、对话框标题可能随SAP版本、事务码变化，需实际验证调整；
3. Windows API方法需注意Office位数兼容性。

内容的提问来源于stack exchange，提问作者SaPires