Hello,

This is my first post here so sorry if it's out of place.

Background : I'm doing an automation on our SAP, and we only have access to the front end, thus the necessity of scripting. I'm doing it on VBA in excel but due to the nature of the question I think this should be asked here and not on Stack Overflow.

Project nature: Update several fields in SAP, transaction VA02 for example

Issue: Being able to handle SAP status bar messages whenever they appear

So, sometimes SAP can yield a msg on the status bar, either a Warning, Error or Information. I know how to capture that menssage and code referencing the status bar, with that I could create a function and run it whenever I think an status bar change could happen but that would result in hundreds of calls on said function and I could simply miss where I should put the function and left a potential error spot forgotten.

What I want to do: Create a listener to handle whenever the status bar shoots and change event.

To be able to do that I need the name of the event to listen to, and to have the name and declaration I would need the class that does that, and since the class if created on SAP the only way I would be able to do that would be to reference the DLL that describes such class/event.

I can't find this DLL, not I'm sure this is the best approach/will work. I tried to explore the DLLs that I have on my SAP but I couldn't view the code on them with dotPeek or a similiar program

Questions:

1 - Is the theory of my solution sound?

2 - If I manage to find the correct DLL would it work?

3 - How can I find this DLL?

Thanks all for the time to read and maybe reply =)

Hi,

I have recorded and created a VB script to pull a daily report in VIM analytics, there are around 6 different reports which i need to pull on a daily basis.

Once the script run's it will take me till export to excel and give me the path to save, i need to give the name of the file and save, then it will run automatically for next report again till export to excel. and so on...

Can i get some loop coding, where the script should save all the excel files automatically in a specific folder, instead of asking file names every time.

So, once i run the script it should end after saving all the file.

Attach is the script details

Thanks in advance

Baig

Good day

I need to select a layout from a popup menu for layouts using the layout name. Is there a script to search and find the layout name and select it.

Regards

Chimane

Dear Community,

I'm currently writing a code to automate process of -
1. Uploading data from excel to SAP

2. Generate and save excel file (report) on specific folder, like desktop

3. Generate PDF report and save to specific folder.

Using script recorder and many useful contents given on this forum, I some how able to complete point 1 & 2. I stuck at point 3, where I'm able to generate PDF document but not able to save it on the desktop.

Below is my challange:-

Once the PDF (PrintPreview) document is generated, I need to select 'Print' button to select 'CutePDF writer' and press 'OK'.
Then the Save As window pop-up in which I need to enter path to save this pdf file.

Below are the snap-shot of screen your reference (these pop-up in these sequence).

session.findById("wnd[0]/tbar[1]/btn[8]").press                          ' <= This line generate PDF document (PrintPreview)

session.findById("wnd[0]/mbar/menu[0]/menu[0]").Select         ' <= after this line Print window open in which I need to select "CutePDF Writer"

Can some one help, how to access last two windows and select options / data I required.
Any help is much appriciated...

Hello community,

if you press F2 in the VBA Environment the object browser will be opened. With a mouse right click in the element list box a pull down menu will be opened. In this menu you can activate the item "Show hidden elements" (Verborgene Elemente anzeigen). If it is activated some classes and elements are visible, e.g. like ObjPtr, StrPtr and VarPtr from the invisible class _HiddenModule. It is very interesting to find other members from other libraries, e.g. in the GuiCtrlAbapEditor which has an undocumented change event.

Enjoy it.

Cheers

Stefan

Hello folks,

I'm having a hard time trying to understand when one will be referenced or the other. While writing my macros these guys appear as a complement of tabsTAXI and is used to change tabs inside a window, but sometimes it's just TABSTRIP and sometimes its TABSTRIP_ITEM, sometimes even on the same tab reference, and at this point I'm afraid to log onto SAP tomorrow and what was TABSTRIP yesterday is TABSTRIP_ITEM today.

Below is an example that I recorded, it just go from tab 5 to 6 and change the line. You can see that tab 5 sometimes has the ITEM append and sometimes not.

Can anyone shed somelight here? Is there  a way to predict when it will be one and when it will be the other?

Thank for reading and maybe reply =)

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_ITEM/tabpT\06").select
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_ITEM/tabpT\05").select
session.findById("wnd[0]/tbar[1]/btn[19]").press
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_ITEM/tabpT\06").select
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_ITEM/tabpT\05").select
session.findById("wnd[0]/tbar[1]/btn[19]").press
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_ITEM/tabpT\06").select
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP/tabpT\05").select
session.findById("wnd[0]/tbar[1]/btn[19]").press
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_ITEM/tabpT\06").select
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_ITEM/tabpT\05").select
session.findById("wnd[0]/tbar[1]/btn[19]").press
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_ITEM/tabpT\06").select
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP/tabpT\05").select

Hello everyone,

I'm an absolute amateur when it comes to VBA scripting.

Could you shed some light on how can I make it so that after entering the first order line which is pulled from Excel the macro will enter the next line and next until it comes across an empty row?

Sub Order()
client = Sheets("Order").Cells(2, 13)
ponumber = Sheets("Order").Cells(3, 13)
Item = Sheets("Order").Cells(8, 2)
quantity = Sheets("Order").Cells(8, 3)
If Not IsObject(SAPApplication) Then   Set SapGuiAuto = GetObject("SAPGUI")   Set SAPApplication = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(Connection) Then   Set Connection = SAPApplication.Children(0)
End If
If Not IsObject(session) Then   Set session = Connection.Children(0)
End If
If IsObject(WScript) Then   WScript.ConnectObject session, "on"   WScript.ConnectObject SAPApplication, "on"
End If
session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").Text = "/nva01"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/subSUBSCREEN_HEADER:SAPMV45A:4021/txtVBKD-BSTKD").Text = ponumber
session.findById("wnd[0]/usr/subSUBSCREEN_HEADER:SAPMV45A:4021/subPART-SUB:SAPMV45A:4701/ctxtKUAGV-KUNNR").Text = client
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG/ctxtRV45A-MABNR[1,0]").Text = Item
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG/txtRV45A-KWMENG[2,0]").Text = quantity
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG/txtRV45A-KWMENG[2,0]").SetFocus
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG/txtRV45A-KWMENG[2,0]").caretPosition = 19
session.findById("wnd[0]").sendVKey 0
End Sub

Can I put some variable in these to make it work?

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG/ctxtRV45A-MABNR[1,0]").Text = Item

session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT\02/ssubSUBSCREEN_BODY:SAPMV45A:4401/subSUBSCREEN_TC:SAPMV45A:4900/tblSAPMV45ATCTRL_U_ERF_AUFTRAG/txtRV45A-KWMENG[2,0]").Text = quantity

The excel sheet from which the data is being pulled currently looks like this:

Basically I want it to fill ctxtRV45A-MABNR and txtRV45A-KWMENG with values from columns B and C where the amount of rows is going to vary depending on the amount of items.

All,

I'm working on an application for my company to run SAP Script, using SAP Scripting API. The application is being programmed in VB.NET from Visual Studio 2015.

When I try to open a Gui Application, I can get all the things I need (GuiApplication, ScriptingEngine, Session 0 etc.), but when I try to set the first field (actually, the user name on the logon screen..) I get an error 0x80010105 (RPC_E_SERVERFAULT). This is the VB.NET code I'm using....

PublicSub RunScript()

   Dim ConnectionString AsString = BuildConnectionString()

   Dim app AsGuiApplication

   Dim mySession AsGuiSession

   Try

   'Create object wrapper

   Dim objWrapper = CreateObject("SapROTWr.SapROTWrapper")

   'Get sap GUI using wrapper

   Dim objRotSAPGUI = objWrapper.GetROTEntry("SAPGUI")

   If IsNothing(objRotSAPGUI) Then

   'New instance

       app = CType(CreateObject("Sapgui.ScriptingCtrl.1"), GuiApplication)

   Else

   'running instance

       app = CType(objRotSAPGUI.GetScriptingEngine(), GuiApplication)

   EndIf

   Dim Connection AsGuiConnection = app.OpenConnection("ECC6 EHP7 SR2 on HANA", True)

  mySession.FindById("/app/con[0]/ses[0]/wnd[0]/usr/txtRSYST-BNAME").text = "USER"

  mySession.FindById("/app/con[0]/ses[0]/wnd[0]/usr/pwdRSYST-BCODE").text = "PASSWORD"

  mySession.SendCommand("/0")

  app = Nothing

   Catch ex AsException

   EndTry

EndSub

The procedure creates the error when trying to set the user (field txtRSYST-BNAME). Has anybody ever seen that before and solved the issue?

Some parameters from my machine: OS is Windows 10 Enterprise 64bit, dev environment is Visual Studio Enterprise 2015, :Net frame work used is 4.6, the application is compiled for 32 bit. SAP Logon is 7.40, no NWBC installed.

Thanks a lot and best regards,

Werner Buchner

Dear Community,

Is it possible to make VBA monitor events raised by SAP GUI such as CreateSession or DestroySession event?

From the SAP GUI Scripting API, we know that this is possible in VBS and the procedure is pretty straightforward but VBA is not as straightforward as VBS.

I think Class Module is the way to go but so far I have not found any reference on how to connect to other objects which is not Office-related.

Any help or tips will be very much appreciated. In the mean time, I'll continue experimenting and will post if I've figure it out.

Thanks,

Sayuti

p/s: Sorry moderator if this is a redundant post, but due to bad internet connection, I'm not sure whether my earlier post on this topic went through or not.

Hi again guys/ ScriptMan,

I have a SAP recording which is repetitive as follows:

session.findById("wnd[0]/tbar[0]/okcd").text = "mmrv"

session.findById("wnd[0]").sendVKey 0

session.findById("wnd[0]/usr/ctxtMARV-BUKRS").text = "A111"

session.findById("wnd[0]").sendVKey 0

session.findById("wnd[0]/usr/chkMARV-XRUEM").selected = false

session.findById("wnd[0]/usr/chkMARV-XRUEM").setFocus

session.findById("wnd[0]/tbar[0]/btn[11]").press

session.findById("wnd[0]/usr/ctxtMARV-BUKRS").text = "B111"

session.findById("wnd[0]").sendVKey 0

session.findById("wnd[0]/usr/chkMARV-XRUEM").selected = false

session.findById("wnd[0]/usr/chkMARV-XRUEM").setFocus

session.findById("wnd[0]/tbar[0]/btn[11]").press

session.findById("wnd[0]/usr/ctxtMARV-BUKRS").text = "C111"

session.findById("wnd[0]").sendVKey 0

session.findById("wnd[0]/usr/chkMARV-XRUEM").selected = false

session.findById("wnd[0]/usr/chkMARV-XRUEM").setFocus

session.findById("wnd[0]/tbar[0]/btn[11]").press

As you have notice, only A111, B111, C111 keeps changing. In excel they are arranged in a single column row by row. Can u help me make a condition to loop the process until it reaches blank? It would be so much helpful.

Thanks in advance.

Hi,

I am trying to extract data out of SAP using VBScript. I remember this worked earlier, but ever since we upgraded to VB7, I am getting an error. Can you please look into this?

code:

Dim R3, MyFunc, App, objFileSystemObject, filOutput, objmessage As Object

Dim nTotalRecords As Long

' Define the objects to hold IMPORT parameters

Dim QUERY_TABLE As Object

Dim DELIMITER As Object

Dim NO_DATA As Object

Dim ROWSKIPS As Object

Dim ROWCOUNT As Object

' Define the objects to hold the EXPORT parameters

' None for RFC_TABLE_READ

' Define the objects to hold the TABLES parameters

' Where clause

Dim OPTIONS As Object

' Fill with fields to return. After function call will hold

' detailed information about the columns of data (start position

' of each field, length, etc.

Dim FIELDS As Object

' Holds the data returned by the function

Dim tDATA As Object

' Use to write out results

Dim ROW As Object

Dim Result As Boolean

Dim iRow, iColumn, iStart, iStartRow, iField, iLength As Integer

Dim var_return As String

Public Function RFC_READ_TABLE_MARA()

'**********************************************

'Create Server object and Setup the connection

'**********************************************

Set objFileSystemObject = CreateObject("Scripting.FileSystemObject"

attachpath1 = "C:\Extracts\MARA.rtf"

Set R3 = CreateObject("SAP.Functions")

R3.Connection.system = "xxx"

R3.Connection.SystemNumber = "xxx"

R3.Connection.client = "xxx"

R3.Connection.User = "xxx"

R3.Connection.Password = "XXX"

R3.Connection.language = "EN"

R3.Connection.applicationserver = "XXX"

If R3.Connection.logon(0, True) <> True Then

MsgBox "No connection to R3!"

var_return = " has Failed"

sendmessage (var_return)

Exit Function

End If

'*****************************************************

'Call RFC function RFC_READ_TABLE

'*****************************************************

Set MyFunc = R3.Add("RFC_READ_TABLE")

ERROR RECEIVED IS:

Run-time error '-2147352568'

Bad variant type

Thank you

Hi everbody,

now I'm also a meber of this blog.

I've a Problem to address a certain SAP session via VBA code.

I've written a VBA code to control and getting some Information from the MM003 (Material) but VBA looks always to the first SAP session.

I start the VBA code with GUIXT in MM03. But if this session not the first session, the code try to operate from the first one.

Because of the reason, that I'm not able to insert the copy of my code here I gave the textfile enclose.

Thank you in advance.

Michael

Hi All,

If I am running a script and the SAP window that is being used currently has a open item (eg work order) that has been edited but not saved, is there any way to trap the 'Do you want to save the data entered?' warning that appears and give the user an option to do that, even if that means terminated the script to allow them to attend to this before they run the script again... 

My script is currently ignoring this and not saving the editing data but I would like to alert the user before I hijack that window.

Thanks

Steve.

This is the first time I used PHP to call a SAP function.  Ran into this problem that I couldn’t figure until someone with experience helped me.

This is the code used -- to fetch data from Saprfc to php

<html>

<h1>SAPRFC-Class</h1>

<?php

    // saprfc-class-library   

    require_once("saprfc.php");

    // Create saprfc-instance

    $sap = new saprfc(array(

                            "logindata"=>array(

                            "ASHOST"=>""        // application server

                            ,"SYSNR"=>""                // system number

                            ,"CLIENT"=>""            // client

                            ,"USER"=>""            // user

                            ,"PASSWD"=>""        // password

                            )

                        ,"show_errors"=>false            // let class printout errors

                        ,"debug"=>true)) ;                 // detailed debugging information

    // Call-Function

    $result=$sap->callFunction("ZBAPI",

                                array(     array("IMPORT","FROM_","100"),

                                 array("EXPORT","RETURN",""),

                                        array("TABLE","Namesdata",array())

                                ));                                

                //var_dump($result);

    // Call successfull?

    if ($sap->getStatus() == SAPRFC_OK) {

        // Yes, print out the Userlist

        ?><table>

            <?php

                    //$sap->printStatus();

                     foreach ($result["Namesdata"] as $orders) {

                          echo "<tr><td>", $orders["name"],"</td><td>",$orders["form"],"</td> <td>",$orders["Names"],"</td></tr>";

          }

        ?></table><?php

    } else {

        $sap->printStatus();

    }

    $sap->logoff();

?>

error appers like

saprfc::callFunction('ZBAPI')

Import-Parameter=FROM_ could not be set. (Does it exist?)

if i comment the IMPORT array means its displays data  how to solve the issue ..  whats wrong in this line -- array("IMPORT","FROM_","100"),

Hi All,

I am new to SAP Script recording feature. In fact I am very happy to come across this as it could save a lot of time by creating macros.

What I am trying to do is:

1) Execute a TCode using a criteria.

2) Pull specific column from grid output to an excel column.

I am able to pull it only till around 59th row, but the grid has around 511 rows of data.

Can someone tell me what is wrong in my code (I am pasting a picture of my code as I am not able to paste the text)

Hello community,

a longer time ago I presented here the possibility to contain binary files in ABAP function modules or as JSON code. With the same technic it is possible to store binary files in a script source, like AutoIt script or VBA. Here an AutoIt program BinFile2Script which offers this possibility. You can create a subroutine which contains the binary code and with the call of this subroutine the binary code is written to disc.

Here an AutoIt example:

Here an VBA example:

You can copy the whole code into the clipboard and paste it into your development environment.

The AutoIt program is an attachment to this post.

Enjoy it.

Cheers

Stefan

Hello community,

we all know the good old Scripting Wizard, which is not longer supported since Windows 7 and SAP GUI for Windows 7.20 PL?.

But SAP offers a Control Visualizer, maybe a replacment.

If you press the buttons  Ctrl  +  Shift  +  Z at the same time, it opens an additional window, called CMyControl Visualizer.

Hint: It is the Z key on keyboard with German keyboard layout - QWERTZ.

You got the field name, the style, the content and some other technical stuff about the selected control.

I am not really sure if this is a replacment, but it seems a little bit.

Hint: It works not with any screen and it is not very stable.

Addition 2016/04/13:

It still works with the actual version of the SAP GUI for Windows 7.40 PL 7 e.g. with TAC SE16.

Addition 2015/07/14:

It still works with the actual version of the SAP GUI for Windows 7.40 PL 3.

Cheers

Stefan

Dear Community

I'm doing a project in which I need to download excel report from SAP 7.3 and from the downloaded workbook I need to prepare summary report using different calculations. There are more than 200+ items which I need to download and prepare summary reports, guess need to loop through this task.

When I manually saved one excel report it get automatically open and became my active screen, hence I thought its better to do work on my summary task as soon as I saved the report but its not working. I use normal activate workbook option, but it did not locate the workbook. When I manually stop the code then the workbook get open. any Idea why is this happening..... Has anyone worked on same situation before?

Below is my code:

session.findById("wnd[0]").sendVKey 8                                      'on this line the SaveAs window pop-up

FilePath = "c:\tmp\Sap download file\ExcelReport1.xlsx")        'I run another vb script to locate the saveAs window and enter path and save it

set Wshell = CreateObject("WScript.Shell")

wshell.run """c:\tmp\save_as.vbs """ & FilePath

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

workbooks("ExcelReport1.xlsx").activate 

Hi all,      

                I am having trouble  in a automation process that am doing. Since this was the first time in SAP scripting i was testing a automation in a test region Local configuration in SAP and the login script worked fine.But when i tried the same with the Production server(Messaging server) i am having trouble in login in. The code is as below

 sap = CreateObject("SAPGUI.Scriptingctrl.1")
 sapCon = sap.OpenConnectionByConnectionString(sapServer, False)
 With sapSession            .FindById("wnd[0]/usr/txtRSYST-BNAME").Text = sapID            .FindById("wnd[0]/usr/pwdRSYST-BCODE").Text = sapPassword            .FindById("wnd[0]/usr/txtRSYST-LANGU").Text = "EN"            '.FindById("wnd[0]").SendVKey(0)            '.FindById("wnd[0]/tbar[0]/okcd").text = "SE16"            '.FindById("wnd[0]").sendVKey(0)        End With

sapserver="xxxxx.xxxxx.xxx".

When i used it with the Prodution server i got the below error message Connection is refused

This was the first issue when i changed the the server in this format

sapserver="/M/xxxx.xxxxx.xxx/S//G/PG1"

i got this error msg

Logon Balancing parser error.

Can you guys please help me with this issue.Please i really need your help. I would really appreciate it if you guys could help me as soon as possible.