5

Excel から SAP トランザクションを呼び出そうとしています。インターネットから多くのコードを使用していますが、まだ失敗しています。使用するコードに関係なく、常に同じエラーメッセージが表示されます

スクリプトがシステム SYSTEM への接続を開いています

エラーと言うより:

実行時エラー 1000 エラーの説明が利用できません"

デバッグ後よりも下に黄色で強調表示されます

Set Connection = SapGuiApp.OpenConnection("SYSTEM", True)

これをプルしようとしたすべてのコードでこれを行っています。

コード

Dim sap As Object 
Dim conn As Object
 
Sub T_login()
 
    Set sap = CreateObject("SAP.Functions")
    Set conn = sap.Connection
    conn.System = "SYSTEM"
    conn.client = "603"
    conn.user = "LANAX001"
    conn.Password = "alamzeb4"
    conn.Language = "EN"
 
If conn.logon(0, False) Then
    
    MsgBox "Logon to the SAP system is not possible", vbOKOnly, "Comment"
 
Else
 
End If
 
If Not IsObject(SapGuiApp) Then
            
    Set SapGuiApp = CreateObject("Sapgui.ScriptingCtrl.1")
 
End If
 
If Not IsObject(Connection) Then
 
    Set Connection = SapGuiApp.OpenConnection("SYSTEM", True)
 
End If
 
If Not IsObject(session) Then
 
    Set session = Connection.Children(0)     
    'launch a transaction
    session.findById("wnd[0]").Maximize
    session.findById("wnd[0]/tbar[0]/okcd").Text = "FS10N"
    session.findById("wnd[0]").sendVKey 0

End Sub
4

1 に答える 1

1

これは、私がデータを SAP にロードするために使用するものです - 動作することが確認されています。HTH。

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

session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").Text = "/nXXXX" 'XXX = your t-code
... ...

その後、t-コードで何をするかによって異なります。

幸運を！

于 2016-01-30T02:11:28.710 に答える