问题描述
我想使用 OpenOffice Calc 在 AS400 中自动化我的流程。 这个想法是在 OpenOffice Calc 中输入一个值（例如“34”），然后将该值放入 AS400 屏幕。
这可能吗？
如果是这样，那么我可以在 AS400 中创建/录制宏并根据我的自定义需要对其进行编辑。
下面是一个录制的示例 makro：
[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION= VBStest
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)
REM This line calls the macro subroutine
subSub1_
sub subSub1_()
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[pf6]"
autECLSession.autECLPS.WaitForAttrib 11,18,"10","3c",3,10000
autECLSession.autECLPS.WaitForCursor 11,19,10000
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "Div195008"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[left]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[down]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[left]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "1"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[enter]"
autECLSession.autECLPS.WaitForAttrib 7,4,"30",10000
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[enter]"
autECLSession.autECLPS.WaitForAttrib 11,"00",10000
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[enter]"
autECLSession.autECLPS.WaitForAttrib 6,10000
autECLSession.autECLPS.WaitForCursor 6,20,10000
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "fertigra"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[enter]"
autECLSession.autECLPS.WaitForAttrib 6,10000
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[down]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[down]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "Alto Nova Holz-Alu Fertig"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[tab]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "Ausfüh"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[tab]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "RAL"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[tab]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "(lt. technisch"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[tab]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "Maß: xxx x x mm"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[tab]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[down]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[down]"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "j"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[enter]"
如果确实有可能拥有该外部值，那么我可以使用以下命令：
autECLSession.autECLPS.SetCursorPos 12,19
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "34"
这意味着我可以使用 Calc 或 DBase 确定/定义设置参数/变量并创建一个循环，该循环自动输入我需要的所有值，而无需我实际输入 亲手制作。
有没有人可以告诉我这是否可行，或者我是在疯狂追逐吗？
解决方法
暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！
如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@）