Question

我正在尝试在AS400中自动化一个过程非常耗时的过程。我必须打印每个资产文件的两个页面。过程如下：登录AS400后，打开“资产描述”页面（选项3）。输入资产编号（1001到7999）。将屏幕打印到.pdf，然后将其另存为“Asset＃” - p1.pdf。页面右侧（F6），打印屏幕为.pdf，将其另存为“Asset＃” - p2.pdf。 F12，这会将我返回到菜单屏幕，我再次选择选项3并再次重复该过程，时间为6000。我已将该过程记录为宏，但让它实际保存屏幕，不起作用。另外宏使用Send键命令，所以我不知道如何继续。这是宏：

    sub PrintAssetsPg1Pg2_()
REM Menu Option - 3 Asset Description
    autECLSession.autECLOIA.WaitForAppAvailable
    autECLSession.autECLOIA.WaitForInputReady
    autECLSession.autECLPS.SendKeys "3"
    autECLSession.autECLOIA.WaitForInputReady
    autECLSession.autECLPS.SendKeys "[enter]"

    autECLSession.autECLOIA.WaitForAppAvailable
REM Asset/Zone/Location Entry Screen
    autECLSession.autECLOIA.WaitForInputReady
REM Can the below read from a list
    autECLSession.autECLPS.SendKeys "8000"
    autECLSession.autECLOIA.WaitForInputReady
    autECLSession.autECLPS.SendKeys "[field+]"
    autECLSession.autECLOIA.WaitForInputReady
    autECLSession.autECLPS.SendKeys "[enter]"
REM Page 1 Displays - Print to .pdf, Save as "8000" &"pg1" .pdf
    autECLSession.autECLOIA.WaitForAppAvailable
    autECLSession.autECLOIA.WaitForInputReady
    autECLSession.autECLPS.SendKeys "[pf6]"
REM Page 2 Displays - Print to .pdf, Save as "8000" &"pg2" .pdf
    autECLSession.autECLOIA.WaitForAppAvailable
    autECLSession.autECLOIA.WaitForInputReady
    autECLSession.autECLPS.SendKeys "[pf12]"
REM [pf12] is the only option available - this takes me to the Main Menu
autECLSession.autECLOIA.WaitForAppAvailable
REM Loop from here if possible
    autECLSession.autECLOIA.WaitForInputReady
    autECLSession.autECLPS.SendKeys "3"
    autECLSession.autECLOIA.WaitForInputReady
    autECLSession.autECLPS.SendKeys "[enter]"
    end sub

AS400宏/脚本从Excel列表中读取值输入

0 个答案: