Run an Pcomm VB macro from Excel

vijender singh
Hi all,

Need to run an Mainframe VB script from Excel.

I have recorded a Mainframe macro and pasted it in excel. On a daily basis i have to change the data in the macro from the web site.

All i do is copy the data from website and paste it in excel and click on a button, that button sorts the data and edits the mainframe VB script on sheet3.

Then we copy the script paste it on mainframe and run the macro.

I want to omit the copy and paste option and run the macro directly from Excel, like a mirror.

[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)

REM This line calls the macro subroutine
subSub1_
sub subSub1_()
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys"001"
autECLSession.autECLPS.SendKeys "[tab]"
autECLSession.autECLPS.SendKeys"p1.1"
autECLSession.autECLPS.SendKeys "[field+]"
autECLSession.autECLPS.SendKeys"gbp1.1"
autECLSession.autECLPS.SendKeys "[field+]"
autECLSession.autECLPS.SendKeys"1.1"
autECLSession.autECLPS.SendKeys "[field+]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys"002"
autECLSession.autECLPS.SendKeys "[tab]"
autECLSession.autECLPS.SendKeys"p2.2"
autECLSession.autECLPS.SendKeys "[field+]"
autECLSession.autECLPS.SendKeys"gbp2.2"
autECLSession.autECLPS.SendKeys "[field+]"
autECLSession.autECLPS.SendKeys"2.2"
autECLSession.autECLPS.SendKeys "[field+]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys"003"
autECLSession.autECLPS.SendKeys "[tab]"
autECLSession.autECLPS.SendKeys"p3.3"
autECLSession.autECLPS.SendKeys "[field+]"
autECLSession.autECLPS.SendKeys"gbp3.3"
autECLSession.autECLPS.SendKeys "[field+]"
autECLSession.autECLPS.SendKeys"3.3"
autECLSession.autECLPS.SendKeys "[field+]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys"004"
autECLSession.autECLPS.SendKeys "[tab]"
autECLSession.autECLPS.SendKeys"p4.4"
autECLSession.autECLPS.SendKeys "[field+]"
autECLSession.autECLPS.SendKeys"gbp4.4"
autECLSession.autECLPS.SendKeys "[field+]"
autECLSession.autECLPS.SendKeys"4.4"
autECLSession.autECLPS.SendKeys "[field+]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys"005"
autECLSession.autECLPS.SendKeys "[tab]"
autECLSession.autECLPS.SendKeys"p5.5"
autECLSession.autECLPS.SendKeys "[field+]"
autECLSession.autECLPS.SendKeys"gbp5.5"
autECLSession.autECLPS.SendKeys "[field+]"
autECLSession.autECLPS.SendKeys"5.5"
autECLSession.autECLPS.SendKeys "[field+]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys"006"
autECLSession.autECLPS.SendKeys "[tab]"
autECLSession.autECLPS.SendKeys"p6.6"
autECLSession.autECLPS.SendKeys "[field+]"
autECLSession.autECLPS.SendKeys"gbp6.6"
autECLSession.autECLPS.SendKeys "[field+]"
autECLSession.autECLPS.SendKeys"6.6"
autECLSession.autECLPS.SendKeys "[field+]"
autECLSession.autECLPS.SendKeys "[roll up]"

This is the recorded Mainframe macro which i want to run from Excel. Please help

Vijender Singh
  • RintzeRintze
    Your question doesn't seem to be related to Zotero at all. If it is, explain how. Otherwise this isn't the right forum for you.

This is an old discussion that has not been active in a long time. Before commenting here, you should strongly consider starting a new discussion instead. If you think the content of this discussion is still relevant, you can link to it from your new discussion.

Sign In or Register to comment.