如何使用VBA自动上传文件到SAP

Question

我想要一种非常稳定的方式使用 VBA 将文件上传到 SAP。

下面的代码在某些电脑上有效，但在其他电脑上无效。 在我的电脑上安装新的 Windows 后，它也可以工作，但几天后就不能工作了。看来这个问题是Windows设置造成的。

我想获得一些帮助来修改此代码或全新的上传方式。

---

filepath = rng.Offset(0, 20)
If filepath <> "" Then
    Wshell.Run "C:\Temp\code.vbs " & filepath & " " & "Open File", 0, False
End If
session.findById("wnd[0]/usr/tabsTAB_MAIN/tabpTSMAIN/ssubSCR_MAIN:SAPLCV110:0102/btnPB_FILE_BROWSER").press

<< code.vbs>>

set Wshell = CreateObject("WScript.Shell")

Do 
bWindowFound = Wshell.AppActivate(WScript.Arguments(1)) 
WScript.Sleep 2000
Loop Until bWindowFound

Wshell.sendkeys "%n"  'alt + n

Wshell.sendkeys WScript.Arguments(0)
WScript.Sleep 200

Wshell.sendkeys "%o"  'alt + o
WScript.Sleep 200

Answer 1

您是否找到了不同的解决方案？