LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
ayeFayze
 
Posts: n/a
Default vbs for macro

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
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On



All times are GMT +1. The time now is 08:12 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"