一部のタスクを自動化するための gui スクリプトを既に作成しています。ここで、SAP システム ID/名前を取得する必要がある部分があります。ユーザーが現在ログオンしているシステム ID/名前を取得する必要があります。
現在Q4Nを使用しています。これまでのところ、私のコードは次のとおりです。
Dim app As Variant
Dim SAPGUIAuto As Object
Dim Connection As Variant
Dim session As Variant
Dim MainPage as Worksheet
set MainPage = Sheets("Main")
If Not IsObject(app) Then
Set SAPGUIAuto = GetObject("SAPGUI")
Set app = SAPGUIAuto.GetScriptingEngine
End If
If Not IsObject(Connection) Then
Set Connection = app.Children(0)
End If
If Not IsObject(session) Then
Set session = Connection.Children(0)
End If
If IsObject(WScript) Then
WScript.ConnectObject session, "on"
WScript.ConnectObject app, "on"
End If
Set Info = session.Info()
MainPage.Range("E22") = Val(Info.SystemName())
この Info.SystemName() を表示しようとしましたが、番号がゼロになります。
この情報を取得するために、スクリプトの記録も試みました。
残念ながら、システム ID を取得するための手順は記録されていません。