Привет, у меня странная проблема, которую я не могу понять
, если я использую этот код для перемещения полосы прокрутки в GuiTableControl, который сервер "выбрасывает и исключает"
Sub test()
Dim session As New AUTOSAP
Dim i As Integer
Dim table As GuiTableControl
Dim pos As Integer
With session
Set table = .gui_find_name("SAPLCOMKTCTRL_3020", "GuiTableControl")
On Error Resume Next
' Put free issue
For i = 0 To table.RowCount
pos = table.VerticalScrollbar.Position
' Text
'table.FindById("ctxtRESBD-SOBKZ_D[7,0]").Text = "2"
'table.FindById("ctxtRESBD-LGORT[8,0]").Text = "B04"
' Scrollbar
table.VerticalScrollbar.Position = i
Next i
' Text
table.FindById("ctxtRESBD-SOBKZ_D[7,0]").Text = "2"
table.FindById("ctxtRESBD-LGORT[8,0]").Text = "B04"
End With
Set session = Nothing
End Sub
Сейчас Раньше это работало, офисные работники здесь используют это в инструменте, который я сделал несколько лет go без проблем, внезапно я не могу автоматически переместить полосу прокрутки и не могу понять, почему?
Любая помощь приветствуется
ПРИМЕЧАНИЕ: способ автоматизации SAP - через созданную мною библиотеку классов, поэтому, если код выглядит незнакомым, именно поэтому