vbs for macro

[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

[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" <bird222(removeThis)@hotmail.com> wrote in message
news:7A71442A-085C-4E32-B380-457797C00A9C@microsoft.com...
> 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