vbs for macro

A

ayeFayze

orig post'g:
i have an inventory of appx 1000 serial numbers. using keystroke recording, i
can populate 2 - 6 fields on 4 green screens to complete a process on one
serial number. is there a way to tweak my macro to incrementally continue,
automatically, from a list stored in an excel worksheet on the client? would
be very grateful for fresh ideas.
follow up:
1st...thank you for giving me hope!
the macro feeds to a cics dummy screen (input only form) linking to corp
dBase from nt/ws 4.0 sp6. Attached below is the macro, which i would like to
link to an excel worksheet (C:\temp\serNo.xls) containing a list of serial
numbers and get this process to increment automatically.

autoAdd.mac

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

REM This line calls the macro subroutine
subSub1_

sub subSub1_()
autECLSession.autECLOIA.WaitForAppAvailable

autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[pf7]"

autECLSession.autECLOIS.WaitForAttrib 7,1,"00", "3c",3,10000

autECLSession.autECLOIS.WaitForCursor 7,2,10000

autECLSession.autECLOIA.WaitForAppAvailable

autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "s"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "[enter]"

autECLSession.autECLOIS.WaitForAttrib 5,16,"00","3c",3,10000

autECLSession.autECLOIS.WaitForCursor 5,17,10000

autECLSession.autECLOIA.WaitForAppAvailable

autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "15"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "[field]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "[field]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "[enter]"

autECLSession.autECLOIS.WaitForAttrib 5,16,"00","3c",3,10000

autECLSession.autECLOIS.Wait 1493

autECLSession.autECLOIA.WaitForAppAvailable

autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "[enter]"
end sub

i do ok with web technology and can work with java script, but vbs looks
foriegn to me still. would appreciate the guidance.
ayeFayze
 
O

Otto Moehrbach

I can't help you with that macro because that is not an Excel VBA macro.
Tell me what you have (your data layout) in Excel and tell me what you want
Excel to do with the data. If you want Excel to populate some cells
dependent on some other cells, tell me where all the data
resides. HTH Otto
ayeFayze said:
orig post'g:
i have an inventory of appx 1000 serial numbers. using keystroke
recording, i
can populate 2 - 6 fields on 4 green screens to complete a process on one
serial number. is there a way to tweak my macro to incrementally continue,
automatically, from a list stored in an excel worksheet on the client?
would
be very grateful for fresh ideas.
follow up:
1st...thank you for giving me hope!
the macro feeds to a cics dummy screen (input only form) linking to corp
dBase from nt/ws 4.0 sp6. Attached below is the macro, which i would like
to
link to an excel worksheet (C:\temp\serNo.xls) containing a list of serial
numbers and get this process to increment automatically.

autoAdd.mac

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

REM This line calls the macro subroutine
subSub1_

sub subSub1_()
autECLSession.autECLOIA.WaitForAppAvailable

autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[pf7]"

autECLSession.autECLOIS.WaitForAttrib 7,1,"00", "3c",3,10000

autECLSession.autECLOIS.WaitForCursor 7,2,10000

autECLSession.autECLOIA.WaitForAppAvailable

autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "s"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "[enter]"

autECLSession.autECLOIS.WaitForAttrib 5,16,"00","3c",3,10000

autECLSession.autECLOIS.WaitForCursor 5,17,10000

autECLSession.autECLOIA.WaitForAppAvailable

autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "15"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "[field]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "tab"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "[field]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "[enter]"

autECLSession.autECLOIS.WaitForAttrib 5,16,"00","3c",3,10000

autECLSession.autECLOIS.Wait 1493

autECLSession.autECLOIA.WaitForAppAvailable

autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLOIS.SendKeys "[enter]"
end sub

i do ok with web technology and can work with java script, but vbs looks
foriegn to me still. would appreciate the guidance.
ayeFayze
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

vbs for macro 2
as400<iSeries db<ntWS<macro<excel tools 1
CAE macro for green screen updates with Excel data 2

Top