Как варьировать данные с помощью SAP и VBA?

Question

Сначала я смог подключить SAP GUI к vba. Мне удалось получить скрипт, который работает и который отправляет мне автоматическую транзакцию. Я хотел бы знать, как сделать так, чтобы данные, введенные в SAP, например, были переменными, потому что мне приходится менять их каждый год?

   If Not IsObject(application) Then
   Set SapGuiAuto  = GetObject("SAPGUI")
   Set application = SapGuiAuto.GetScriptingEngine
   End If
   If Not IsObject(connection) Then
   Set connection = application.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 application, "on"
    End If 
   session.findById("wnd[0]/usr/tabsTABSTRIP_TABBL1/
 tabpUCOM1/ssub%_SUBSCREEN_TABBL1:RFBILA00:0001/txtBILBJAHR").text = "2015"

Например, я бы хотел, чтобы дата «2015» была переменной, и я хотел бы, чтобы каждый месяц я мог менять эту дату, чтобы поставить другую, без необходимости заново запускать извлечение в SAP GUI.

Answer 1

Таким образом, вы также должны отступать свой код:

Option Explicit
Sub Test()

    Dim MyYear As String

    MyYear = Format(Date, "yyyy")
    If Not IsObject(Application) Then
        Set SapGuiAuto = GetObject("SAPGUI")
        Set Application = SapGuiAuto.GetScriptingEngine
    End If

    If Not IsObject(Connection) Then
        Set Connection = Application.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 Application, "on"
    End If

    Session.findById("wnd[0]/usr/tabsTABSTRIP_TABBL1/tabpUCOM1/ssub%_SUBSCREEN_TABBL1:RFBILA00:0001/txtBILBJAHR").Text = MyYear

End Sub