如何在excel VBA宏中打开从SAP调用的Excel电子表格

Sub OpenSAPExcel()
    Dim sapApp As Object
    Dim sapConnection As Object
    Dim sapSession As Object
    Dim sapWorkbook As Object
    
    ' 创建SAP连接
    Set sapApp = CreateObject("Sapgui.ScriptingCtrl.1")
    Set sapConnection = sapApp.OpenConnection("SAP System ID", True)
    Set sapSession = sapConnection.Children(0)
    
    ' 调用SAP事务码
    sapSession.findById("wnd[0]").maximize
    sapSession.findById("wnd[0]/tbar[0]/okcd").Text = "/n"
    sapSession.findById("wnd[0]/tbar[0]/btn[0]").Press
    
    ' 执行SAP事务码，导出Excel电子表格
    sapSession.findById("wnd[0]").sendVKey 0
    sapSession.findById("wnd[0]/usr/ctxtDY_PATH").Text = "C:\Path\To\Save\Excel\File"
    sapSession.findById("wnd[0]/usr/ctxtDY_FILENAME").Text = "SAP_Export.xlsx"
    sapSession.findById("wnd[0]/usr/ctxtDY_FILENAME").SetFocus
    sapSession.findById("wnd[0]/usr/ctxtDY_FILENAME").caretPosition = 11
    sapSession.findById("wnd[0]").sendVKey 0
    sapSession.findById("wnd[0]").sendVKey 0
    
    ' 关闭SAP连接
    sapSession.findById("wnd[0]").CloseConnection
    
    ' 打开导出的Excel电子表格
    Set sapWorkbook = Workbooks.Open("C:\Path\To\Save\Excel\File\SAP_Export.xlsx")
End Sub