Взять все значения из таблицы через GUI Scripting

NorthPole

Всем привет.

Есть таблица с характеристиками класса материала (в MM01/MM02) и желание выгрузить из нее данные в эксель при помощи GUI Scripting.
Добраться-то до нее добрался, но, насколько я понимаю, к таким не ALV таблицам нельзя обратиться как к таблице и взять все ее содержимое.
Надо циклом проходиться по всем видимым строкам, и если есть еще, то скролить, при этом адреса строк-контролов все также будут [i,j], где i-колонки, j-строки-контролы от 0 до 9 (по кол-ву видимых).

В коде адрес контрола со значением (2ая колонка) выглядит вот так:

Code:

.findById("wnd[0]/usr/subSUBSCR_BEWERT:SAPLCTMS:5000/tabsTABSTRIP_CHAR/tabpTAB1/ssubTABSTRIP_CHAR_GR:SAPLCTMS:5100/tblSAPLCTMSCHARS_S/ctxtRCTMS-MWERT[1,1]").text

Подскажите, как передать все значения такой таблицы на лист экселя или в массив.

Удав

У вас разрешен GUI-скриптинг, но нет полномочий на SE16/SE16N?

Такая задача проще решается, через выгрузку данных таблицы AUSP 001 вида класса.

NorthPole

Удав написал(а):

У вас разрешен GUI-скриптинг, но нет полномочий на SE16/SE16N?

Такая задача проще решается, через выгрузку данных таблицы AUSP 001 вида класса.

Это первое что я проверил, но к AUSP нет доступа. :cry:

Запросить доступ можно, но пока его дадут месяц пройдет.

В общем добыть все значения из этой псевдотаблицы оказалось проще чем я думал (передать в эксель уже мелочи):

Code:

t = "wnd[0]/usr/subSUBSCR_BEWERT:SAPLCTMS:5000/tabsTABSTRIP_CHAR/tabpTAB1/ssubTABSTRIP_CHAR_GR:SAPLCTMS:5100/tblSAPLCTMSCHARS_S"
cN = "ctxtRCTMS-MNAME" 'char name
cV = "ctxtRCTMS-MWERT" 'char value

For i = 0 To .findById(t).verticalScrollbar.Maximum
    .findById(t).verticalScrollbar.Position = i    
    с1 = .findById(t & "/" & cN & "[0,0]").Text
    с2 = .findById(t & "/" & cV & "[1,0]").Text
    Debug.Print i, .findById(t).verticalScrollbar.Maximum, с1, с2
Next

А чтобы записать обратно - нажимаем кнопку с поиском по названию, найденная характеристика всегда будет первой в списке.

Правила форума

Взять все значения из таблицы через GUI Scripting

Кто сейчас на конференции