SAP Extract into EXCEL via VBA out of memory

by

As I promised @Christian I’m pasting here my approach to connect with SAP. It was always working. I based on that all of my macros for tons of reports from SAP 🙂

Sub SapConn()

Dim Appl As Object
Dim Connection As Object
Dim session As Object
Dim WshShell As Object
Dim SapGui As Object

'Of course change for your file directory
Shell "C:\Program Files (x86)\SAP\FrontEnd\SAPgui\saplogon.exe", 4
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 Appl = SapGui.GetScriptingEngine
Set Connection = Appl.Openconnection("01. PRD - ERP Production", True) 'here paste your name of module you are trying to connect/enter
Set session = Connection.Children(0)

'if You need to pass username and password - not connect automatically
'session.findById("wnd[0]/usr/txtRSYST-MANDT").Text = "900"
'session.findById("wnd[0]/usr/txtRSYST-BNAME").Text = "user"
'session.findById("wnd[0]/usr/pwdRSYST-BCODE").Text = "password"
'session.findById("wnd[0]/usr/txtRSYST-LANGU").Text = "EN"

If session.Children.Count > 1 Then

    answer = MsgBox("You've got opened SAP already, please leave and try again", vbOKOnly, "Opened SAP")

    session.findById("wnd[1]/usr/radMULTI_LOGON_OPT3").Select
    session.findById("wnd[1]/usr/radMULTI_LOGON_OPT3").SetFocus
    session.findById("wnd[1]/tbar[0]/btn[0]").press

    Exit Sub

End If

session.findById("wnd[0]").maximize
session.findById("wnd[0]").sendVKey 0 'ENTER
'and there goes your code in SAP

Hope it will help You 🙂

More Related Contents:

  1. How to get MS Excel to list files in a folder with their metadata (in particular, the tags created for the files)?
  2. Excel – opening file stuck on 100%, until VBA code finishes
  3. Using a UDF in Excel to update the worksheet
  4. VBA check if file exists
  5. Excel’s fullname property with OneDrive
  6. How to insert an embedded picture?
  7. How to call a macro from a button and pass arguments
  8. Copy Excel range as Picture to Outlook
  9. Obtain attribute names from XML using VBA
  10. Paste Excel range in Outlook
  11. Return RGB values from Range.Interior.Color (or any other Color Property)
  12. Refresh Excel VBA Function Results
  13. Code for looping through all excel files in a specified folder, and pulling data from specific cells
  14. VBa conditional delete loop not working
  15. Run-time error ‘1004’ : Method ‘Range’ of object’_Global’ failed
  16. Concatenate column headers if value in rows below is non-blank
  17. “Can’t find Project or Library” for standard VBA functions
  18. How do I issue an HTTP GET from Excel VBA for Mac
  19. Update excel sheet based on outlook mail [closed]
  20. Copy sheet and get resulting sheet object?
  21. How do I apply a SumIf Formula in a VBA Sub? Getting Error 1004
  22. Export chart as image – with click of a button
  23. Error13 in Excel VBA in data file
  24. How to get the path of current worksheet in VBA?
  25. Excel VBA to match and line up rows
  26. Change font color for a part of text in cell
  27. Create a new object using the text name of the class
  28. Excel cell from which a Function is called [duplicate]
  29. How to extract text within a string of text
  30. GET pictures from a url and then rename the picture

Leave a Comment