Skip to Content
avatar image
Former Member

Keeping my excel macro running after popup

Hello everyone.
I'm new to this community and new to the VBA and SAP languages.
My problem is the following.
I have a macro in excel that extracts many reports from a DB in SAP, the problem is that some of the reports I tried to extrats have no data and a Popup shows and tells me that no data is in that period and my macro stops running and does not extract the rest of the reports that I need.
I thought that I have to put some validation code with some If Then sentences, but I cannot find the right way to do it.

Private Sub CommandButton1_Click()
    
    Dim SAPGUI
    Dim Applic
    Dim connection
    Dim Session
    Dim WSHShell

    
    Dim elementoLista
    Dim mensaje As String
    Dim ceco As Variant
    Dim esteLibro As Workbook
    Dim estaHoja As Worksheet
    Set esteLibro = Application.ActiveWorkbook
    Set estaHoja = esteLibro.Worksheets("CONFIGURACION")
    
    Dim sapMandate: sapMandate = estaHoja.Range("C5").Value
    Dim usuarioSAP: usuarioSAP = estaHoja.Range("C6").Value
    Dim userPassword: userPassword = estaHoja.Range("C7").Value
    Dim cecoResponsable: cecoResponsable = estaHoja.Range("C13").Value
    Dim sociedadCO: sociedadCO = estaHoja.Range("C15").Value
    Dim periodoDesde: periodoDesde = estaHoja.Range("C16").Value
    Dim periodoHasta: periodoHasta = estaHoja.Range("C17").Value
    
    Dim indicadorIG: indicadorIG = estaHoja.Range("C19").Value
    Dim anhoEjercicio: anhoEjercicio = estaHoja.Range("C20").Value
    Dim baseDatos: baseDatos = estaHoja.Range("C21").Value
    
    
    Dim I As Long
    Dim X As Long
    Dim arrValues()
        If ListBox1.ListIndex <> -1 Then
            For I = 0 To ListBox1.ListCount - 1
                If ListBox1.Selected(I) Then
                ReDim Preserve arrValues(X)
                arrValues(X) = ListBox1.List(I)
                X = X + 1
                End If
            Next I
        End If
    arreglo = arrValues()
    
    Dim dirRaiz: dirRaiz = esteLibro.Path

Application.DisplayAlerts = False

Shell "C:\Program Files\SAP\FrontEnd\SAPgui\saplogon.exe", vbNormalFocus

Set WSHShell = CreateObject("WScript.Shell")
  Do Until WSHShell.AppActivate("SAP Logon ")
    Application.Wait Now + TimeValue("0:00:01")
  Loop



Set WSHShell = Nothing
Set SAPGUI = GetObject("SAPGUI")
Set Applic = SAPGUI.GetScriptingEngine
Set connection = Applic.OpenConnection("00013   PRD  Producción Latam", True)
Set Session = connection.Children(0)
            
'  Session.findById("wnd[0]").iconify
  Session.findById("wnd[0]/usr/txtRSYST-MANDT").Text = sapMandate
  Session.findById("wnd[0]/usr/txtRSYST-BNAME").Text = usuarioSAP 'Environ("Username") 'eventualmente capturar desde excel
  Session.findById("wnd[0]/usr/pwdRSYST-BCODE").Text = userPassword 'sysstart.psswrd
  Session.findById("wnd[0]").sendVKey 0

        Session.findById("wnd[0]").maximize
        Session.findById("wnd[0]/tbar[0]/okcd").Text = baseDatos
        Session.findById("wnd[0]").sendVKey 0
        Session.findById("wnd[1]/usr/btnOPCION1").press
        For Each ceco In arreglo
        Dim nombreArchivo: nombreArchivo = "CECO" & ceco & "_" & Day(Now) & "-" & Month(Now) & "-" & Year(Now) & ".xls"
            Session.findById("wnd[0]/usr/chkP_DESPLE").Selected = True
            Session.findById("wnd[0]/usr/ctxtKOKRS").Text = sociedadCO
            Session.findById("wnd[0]/usr/ctxtFKSTL").Text = ceco
            Session.findById("wnd[0]/usr/txtANNO").Text = anhoEjercicio
            Session.findById("wnd[0]/usr/ctxtPOPER-LOW").Text = periodoDesde
            Session.findById("wnd[0]/usr/ctxtPOPER-HIGH").Text = periodoHasta
            Session.findById("wnd[0]/usr/ctxtZZINVGAS").Text = indicadorIG
            Session.findById("wnd[0]/usr/ctxtZZINVGAS").SetFocus
            Session.findById("wnd[0]/usr/ctxtZZINVGAS").caretPosition = 1
            Session.findById("wnd[0]/tbar[1]/btn[8]").press
            ******* HERE IS WHERE THE POPUP APPEARS WHEN NO DATA IS FOUND ******
            Session.findById("wnd[0]/mbar/menu[0]/menu[1]/menu[2]").Select
            Session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").Select
            Session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").SetFocus
            Session.findById("wnd[1]/tbar[0]/btn[0]").press
            Session.findById("wnd[1]/usr/ctxtDY_PATH").Text = dirRaiz
            Session.findById("wnd[1]/usr/ctxtDY_FILENAME").Text = nombreArchivo
            Session.findById("wnd[1]/usr/ctxtDY_FILENAME").caretPosition = 15
            Session.findById("wnd[1]/tbar[0]/btn[11]").press
            Session.findById("wnd[0]").sendVKey 0
            Session.findById("wnd[0]/tbar[0]/btn[15]").press
          Next ceco
              
'Closes SAP connection
Set Session = Nothing
connection.CloseSession ("ses[0]")
Set connection = Nothing
    
    If Len(mensaje) = 0 Then
        mensaje = "No hay elementos seleccionados"
    End If
    
End Sub

This is the popup that stops my script from keeping the extraction

Can anyone please help me with this??
Thanks

popup.png (12.9 kB)
Add comment
10|10000 characters needed characters exceeded

  • Get RSS Feed

0 Answers