Найти конкретный текст в SAP через VBA - PullRequest
Новая
       17

Найти конкретный текст в SAP через VBA

0 голосов
/ 21 декабря 2018

Я начинаю думать, что это не может быть решено.

У меня есть модуль 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
...