| Home |
| Search |
| Today's Posts |
|
|
|
#1
|
|||
|
|||
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 |
|
#2
|
|||
|
|||
|
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" wrote in message ... 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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Hybrid Mode
