Я бы хотел, чтобы пользователь проверил ответ в диапазоне от 0092 до 0010, после чего я хотел бы поместить ответ вместо значения в сценарий sap.
Public Sub RunGUIScript()
Dim W_Ret As Boolean
Dim Date As ?
Date= Sheet("Extraction").Range("B10)
Dim Société as ?
Société = ?
' Connect to SAP
W_Ret = Attach_Session
If Not W_Ret Then
Exit Sub
End If
On Error GoTo myerr
objSess.findById("wnd[0]").maximize
objSess.findById("wnd[0]/tbar[0]/okcd").Text = "S_ALR_87012284"
objSess.findById("wnd[0]/tbar[0]/btn[0]").press
objSess.findById("wnd[0]/usr/tabsTABSTRIP_TABBL1/tabpUCOM1/
ssub%_SUBSCREEN_TABBL1:RFBILA00:0001/radBILAGRID").Select
objSess.findById("wnd[0]/usr/ctxtSD_KTOPL-LOW").Text = "PCGR"
objSess.findById("wnd[0]/usr/ctxtSD_BUKRS-LOW").Text = "0092"
objSess.findById("wnd[0]/usr/tabsTABSTRIP_TABBL1/tabpUCOM1/
ssub%_SUBSCREEN_TABBL1:RFBILA00:0001/ctxtBILAVERS").Text = "BIFR"
objSess.findById("wnd[0]/usr/tabsTABSTRIP_TABBL1/tabpUCOM30/
ssub%_SUBSCREEN_TABBL1:RFBILA00:0030/ctxtSTICHTAG").Text = "05.06.2019"
....
Сначала я не знаю, как делать с флажками, когда я хочу заменить свой сценарий флажком, который будет проверять пользователь.
Тогда я не уверен, что мой метод правильный.
