Question

我开始认为这无法解决。我有一个正在更改送货方式的SAP模块。设置参数后，将列出运输方式（即地面运输，特快运输，隔夜运输等）。我需要代码来查找包含特定文本（在本例中为Standard）的唯一单元格（只有一个单元格）并选择该行。其余的代码都可以使用，但是运送方法并不总是在同一个地方。有人有想法么？更新：这是代码，很杂乱，请保持柔和。如果我可以选择包含“ FEDEX STANDARD OVERNIGHT”的单元格的行，那么我可以得到其余的:::

    Private Sub CommandButton1_Click()

MsgBox ("Please double click on the order you wish to alter the routing for and press ok")
'setting the connection with sap:
Dim App, Connection, session As Object
Dim StartRange As String
Dim EndRange As String
Set SapGuiAuto = GetObject("SAPGUI")
Set App = SapGuiAuto.GetScriptingEngine
Set Connection = App.Children(0)
Set session = Connection.Children(0)

session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[1]/btn[25]").press
session.findById("wnd[0]/tbar[1]/btn[8]").press
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\13").Select
session.findById("wnd[0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT\13/ssubSUBSCREEN_BODY:SAPMV50A:2126/ssubCUSTOMER_SCREEN:SAPLZGWM_XPS_CUSTOM_TAB:9000/btnRATE_SHOP").press
session.findById("wnd[1]/usr/cmbGV_WERKS").Key = "3110"
session.findById("wnd[1]/usr/cmbGV_GROUP").SetFocus
session.findById("wnd[1]/usr/cmbGV_GROUP").Key = "DOM"
session.findById("wnd[1]/tbar[0]/btn[13]").press
session.findById("wnd[1]/usr/cmbGV_GROUP").SetFocus
Selection.Offset(0, 12).Select
EndRange = ActiveCell.Address
session.findById("wnd[2]/tbar[0]/btn[13]").press
session.findById("wnd[1]/tbar[0]/btn[14]").press
session.findById("wnd[0]/tbar[0]/btn[11]").press


End Sub

通过VBA在SAP中查找特定文本

0 个答案: