Question

我已经编写/记录了两个单独的宏，一个宏进入SAP以下载一些信息，另一个宏则获取下载的信息并将其提取/格式化为我的原始电子表格。

两个宏都可以完美运行。我遇到的问题是，当我尝试在pulldemand宏中调用ConnectToSAPGUI宏时，尝试读取export.XLSX时代码中断，并说下标超出范围。

我不知道断开连接在哪里。首先，我认为宏运行速度可能太快，无法保存从SAP下载的文件，因此我在代码中放置了5秒的暂停时间，但这并不能解决问题。

任何有关我要去哪里的建议以及我可以采取的解决措施都值得赞赏。

PS：这是我第一次尝试使用宏与SAP接口。从网上找到的其他教程中获得了我以前这样做的代码。

Sub ConnectToSAPGUI()

    'Catch and redirect errors in case SAP GUI is not
    'open or not accessible
    On Error GoTo NotConnected
    'Get the SAP GUI Scripting object
    Set SapGuiAuto = GetObject("SAPGUI")
    'Get the currently running SAP GUI
    Set SAPApp = SapGuiAuto.GetScriptingEngine
    'Get the first system that is currently connected
    Set SAPCon = SAPApp.Children(0)
    'Get the first session (window) on that connection
    Set session = SAPCon.Children(0)
    'Return to regular error handling
    On Error GoTo 0

    'Your code here
    session.findById("wnd[0]").maximize
    session.findById("wnd[0]/tbar[0]/okcd").Text = "/nyscmd04"
    session.findById("wnd[0]").sendVKey 0
    session.findById("wnd[0]/usr/ctxtS_MATNR-LOW").Text = Range("B1")
    session.findById("wnd[0]/usr/ctxtS_WERKS-LOW").Text = Range("B2")
    session.findById("wnd[0]/usr/ctxtS_DAT00-LOW").Text = Range("B3")
    session.findById("wnd[0]/usr/ctxtS_DAT00-HIGH").Text = Range("B5")
    session.findById("wnd[0]/usr/ctxtS_DAT00-HIGH").SetFocus
    session.findById("wnd[0]/usr/ctxtS_DAT00-HIGH").caretPosition = 8
    session.findById("wnd[0]/tbar[1]/btn[8]").press
    session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").setCurrentCell 9, "MAKTX"
    session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").selectedRows = "9"
    session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").contextMenu
    session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").selectContextMenuItem "&XXL"
    session.findById("wnd[1]/tbar[0]/btn[0]").press
    session.findById("wnd[1]/tbar[0]/btn[11]").press

    Set session = Nothing

    'Exception handling in case SAP GUI is not
    'open or not accessible
    Exit Sub

NotConnected:
MsgBox "Please log into SAP first.", vbCritical

End Sub





Sub pulldemand()

'Call ConnectToSAPGUI

Application.Wait (Now + TimeValue("0:00:05"))

    Windows("export.XLSX").Activate
    Columns("H:H").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("H2").FormulaR1C1 = "=DATE(YEAR(RC[-1]),MONTH(RC[-1]),1)"
    Range("H2").AutoFill Destination:=Range("H2:H1642")

    Windows("Deamand Breakdown Report.xlsm").Activate
    Sheets("Sheet2").Select
    Range("B2:ZZ1000000").ClearContents
    Range("B2").FormulaR1C1 = _
        "=SUMIFS([export.XLSX]Sheet1!C13,[export.XLSX]Sheet1!C22,RC1,[export.XLSX]Sheet1!C8,R1C)"
    Range("B2").AutoFill Destination:=Range("B2:S2"), Type:=xlFillDefault
    Range("B2:S2").AutoFill Destination:=Range("B2:S17"), Type:=xlFillDefault
    Range("B2:S17").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Windows("export.XLSX").Close (False)
    Sheets("Sheet2").Activate
    Range("A1").Select
    MsgBox ("Report Generated")

End Sub

Answer 1

如果您的问题是在等待文件下载...我使用它：

Dim FilePath As String, FileName As String, FindIt As String

FilePath = wb.Path & "\"
FileName = FilePath  & "yourfilename"
FindIt = Dir(FileName ) 
While Len(FindIt) = 0  
  FindIt = Dir(FileName )
Wend

使用调用方法运行两个VBA子

1 个答案: