使用不可编写脚本的窗口进行SAP电子表格导出

小熊yu生菜

1楼-- · 2020-08-15 19:15

你好艾格尼丝，

欢迎使用SAP社区。

在
wshShell.Sendkeys"％nNA_SQ00FBL5N_CA10.XML％f"行中。
％f在打开的文件对话框中表示Öffnen。
根据本地语言，您必须将其更改为快捷方式保存按钮的形式，以德语％S
您并行启动3个脚本，所有3个脚本都等待标题为"另存为"的窗口。现在，一个带有该标题的窗口打开，所有3个脚本在该窗口的文件名字段中并行写入。您不能将这种方法用于这种要求，因为您没有标准来区分从哪个SAP会话打开哪个"另存为"对话框。
也许可以检测到所有者，在这种情况下为"选择电子表格" 对话框，所有者，SAP会话。我认为，最好按顺序而不是并行执行此工作流。

最好的问候
Stefan

半个程序猿

2楼-- · 2020-08-15 19:11

请使用CODE设置代码格式。

查看区别：

'导出到电子表格- 当我进行记录导出时，记录了前两行，
 '，并且在运行良好时，将打开无法编写脚本的"另存为"窗口

 session.FindById（" wnd [0]/usr/cntlCONTAINER/shellcont/shell"）。pressToolbarContextButton"＆MB_EXPORT"
 session.FindById（" wnd [0]/usr/cntlCONTAINER/shellcont/shell"）。SelectContextMenuItem"＆XXL"

 '开始异步过程

 设置WshShell = CreateObject（" WScript.Shell"）WshShell.Run" C：\ Users \ AAA.LOGON \ Documents \ AAA \ ScriptCA.vbs"

 '-开始 -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  - -  ------------------

 设置wshShell = CreateObject（" WScript.Shell"）
 做
   WScript.Sleep 500
 循环直到wshShell.AppActivate（"另存为"）= True

 wshShell.Sendkeys"％nNA_SQ00FBL5N_CA10.XML"
 'wshShell.Sendkeys"％nNA_SQ00FBL5N_CA10.XML％f"

 '-结束 -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  - -  --------------------