如何考虑VBA宏中单元格的值?

时间:2019-06-07 09:07:50

标签: vba sap

我希望用户检查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"

....

首先,当我想用​​用户要检查的复选框替换脚本时,我不知道如何使用该复选框。 然后我不确定我的方法是否正确。

An example of what the user will fill in

0 个答案:

没有答案