你好罗伯托，

SAP GUI脚本无法处理本机Windows对话框。

首先，请确保SAP登录中的本机对话框选项已禁用。

如果禁用它，则可以使用AutoIt，或者需要棘手的VBScript机制来处理本机对话框。 您可以在此处找到不同的示例 和此处。

让我们知道您的结果。

干杯
斯特凡

你好罗伯托，

这里是如何使用GOS的示例

子Test1（）

   昏暗的SapGuiAuto作为对象
   Dim App作为SAPFEWSELib.GuiApplication
   昏暗的连接为SAPFEWSELib.GuiConnection
   昏暗的会话作为SAPFEWSELib.GuiSession
    
   设置SapGuiAuto = GetObject（" SAPGUI"）
   设置应用程序= SapGuiAuto.GetScriptingEngine
   设置连接= App.Children（0）
   设置会话= connection.Children（3）

   session.FindById（" wnd [0]/tbar [0]/okcd"）。Text ="/img/nsgostest"
   session.FindById（" wnd [0]"）。SendVKey 0
   session.FindById（" wnd [0]/tbar [1]/btn [8]"）。按
   session.FindById（" wnd [0]/titl/shellcont/shell"）。PressContextButton"％GOS_TOOLBOX"
   session.FindById（" wnd [0]/titl/shellcont/shell"）。SelectContextMenuItem"％GOS_PCATTA_CREA"
   session.FindById（" wnd [1]/usr/ctxtDY_FILENAME"）。Text =" Test.txt"

 结束Sub 
 

对于我来说，我会看到一个可编写脚本的对话框来导入文件。

这是带有本机Windows对话框的示例。

 Sub Test2（）

   昏暗的SapGuiAuto作为对象
   Dim App作为SAPFEWSELib.GuiApplication
   昏暗的连接为SAPFEWSELib.GuiConnection
   昏暗的会话作为SAPFEWSELib.GuiSession
    
   设置SapGuiAuto = GetObject（" SAPGUI"）
   设置应用程序= SapGuiAuto.GetScriptingEngine
   设置连接= App.Children（0）
   设置会话= connection.Children（3）

   session.FindById（" wnd [0]/tbar [0]/okcd"）。Text ="/img/nsgostest"
   session.FindById（" wnd [0]"）。SendVKey 0
   session.FindById（" wnd [0]/tbar [1]/btn [8]"）。按
   session.FindById（" wnd [0]/titl/shellcont/shell"）。PressContextButton"％GOS_TOOLBOX"
  
   '-启动异步过程-
   昏暗的WshShell作为对象
   设置WshShell = CreateObject（" WScript.Shell"）
   WshShell.Run" C：\ Dummy \ FillFileName.vbs"
  
   session.FindById（" wnd [0]/titl/shellcont/shell"）。SelectContextMenuItem"％GOS_PCATTA_CREA"

 结束Sub 
 

如您所见，在打开本机对话框之前，我先启动一个异步VB脚本来填充对话框。

'-Begin --------------------------------------------  ---------------------

 设置wshShell = CreateObject（" WScript.Shell"）

 做
   WScript.Sleep 500
 循环直到wshShell.AppActivate（" Datei importieren"）= True

 wshShell.Sendkeys"％nTest.txt"
 'wshShell.Sendkeys"％nTest.txt％f"

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

如您所见，AppActivate搜索标题" Datei importieren"（德语为文件导入），并且Sendkeys类型为Alt + n（这表示Dateiname（文件名）的下划线）和文件名Test.txt。 注释行还按Alt + f（这表示Öffnen（打开）的下划线）以关闭对话框。

此后，您的VBA代码将在％GOS_PCATTA_CREA之后继续运行。

让我们知道您的结果。
干杯
Stefan

感谢Stefan。 我已经取消选中对话框中的选项。

您知道是否可以通过脚本进行操作或我需要：

Excel VBA->调用sap事务--->设置名称文件的保存路径？

您有什么例子吗？ 在您的链接，我看到打印或导入文件。 我可以吸引人，但会自动设置一条路径。

对不起，我的英语不好

你好罗伯托，

抱歉，我的回复延迟。

对您的问题：

1. 这是Excel中的VBA。< br>
2. 否，最后一行是
   session.FindById（" wnd [0]/titl/shellcont/shell"）。SelectContextMenuItem"％GOS_PCATTA_CREA"
   fillfilename启动并行任务< br>是，这是fillfilename。
   如果您的GOS使用可编写脚本的对话框，则可以使用第一个示例，否则可以使用第二个示例。

让我们知道您的结果。

干杯
斯特凡

感谢斯特凡

我有2个问题：

1-您的示例是写在摘要上还是Excel宏内？

2-fillfilename.vbs是您的最后一个代码？

这是fillfilename吗？

'-Begin ------------------------------------------------------------ ---------------------
设置wshShell = CreateObject（" WScript.Shell"）
执行
WScript.Sleep 500 <循环> 直到wshShell.AppActivate（" Datei importieren"）= True
wshShell.Sendkeys"％nTest.txt"
'wshShell.Sendkeys"％nTest.txt％f"
'-结束----- -------------------------------------------------- ------------

如果我尝试您的第一个示例，则对此" session.FindById（" wnd [1]/usr/ctxtDY_FILENAME"）。Text =" Test.txt""

而且我不知道我必须将其放在脚本中的哪个位置。

谢谢

你好阿格内斯·凯斯马克伊，

没有必要两次问您一个问题。/p>

https://answers.sap。 com/questions/13068673/sap-spreadsheet-export-with-non-scriptable-window.html

最诚挚的问候
Stefan