Question Re: VBA Code - Automation in Technology Q&A

VBA Code - Automation

Former Member — Thu, 04 Apr 2024 11:41:50 GMT

Hi All,

How to insert an IF function into SAP VBA Code so that IF a pop up comes up "Data has been changed:", "Do you want to save the changes?" Yes, No or Cancel and I want to Press Yes and enter to continue but I can't seem to figure this out

TIA.

Re: VBA Code

Former Member — Wed, 03 Apr 2024 12:59:54 GMT

Can I get some help for this please?

Re: VBA Code - Automation

MKreitlein — Thu, 04 Apr 2024 11:19:42 GMT

Hello @Former Member

Maybe I don't understand your question right... but have you already tried google?

E.g: https://www.wallstreetmojo.com/vba-message-box-yes-no/

In your case you need to use "vbYesNoCancel"

BR, Martin

Re: VBA Code - Automation

Former Member — Thu, 04 Apr 2024 11:46:37 GMT

Hi,

Yes I've tried to google loads but nobody seems to have a similar issue across most forums I've checked and searched.

My code below from when it goes into SAP below:

This is when a that pop up I've just attached to my original post comes up and it just completely bugs out as it doesn't always come up when I run the full code.

session.StartTransaction "DE9"
session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").Text = "ZVP1A"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/tabsTABSTR/tabpVOR").Select
session.findById("wnd[0]/tbar[1]/btn[31]").press
session.findById("wnd[1]/usr/ctxtDY_PATH").Text = "C:\folder\setup\"
session.findById("wnd[1]/usr/ctxtDY_FILENAME").Text = "Preallocation.txt"
session.findById("wnd[1]/usr/ctxtDY_FILENAME").caretPosition = 17
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[0]/tbar[0]/btn[11]").press
session.findById("wnd[0]/tbar[0]/btn[0]").press
session.findById("wnd[0]/usr/tabsTABSTR/tabpBAS").Select
session.findById("wnd[0]/tbar[1]/btn[31]").press
session.findById("wnd[1]/usr/ctxtDY_PATH").Text = "C:\folder\setup\"

Re: VBA Code - Automation

Former Member — Wed, 10 Apr 2024 13:16:57 GMT

Solved it with an extra few lines of code to auto save before it requests to save.

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