Помогите реализовать basic на abap

matel

Код такой:

Code:

Range("I14,I15,I21,N14:N16").Select

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

Герман

Попробуйте так

Range("D6,D9,F11,H9:H14,I17:K17,L20:M26,L8").Select
Range("L8").Activate

matel

Вы меня не правильно поняли, на basic все работатет как надо, как это на ABAP реализовать?

Voffka

Code:

CALL METHOD OF excel_application 'Range' = range EXPORTING #1 = rangestr.

где range - объект типа range: range TYPE ole2_object; а rangestr - строка с координатами 'I14,I15,I21,N14:N16'

matel

У вас работает?
У меня проходит, но на

Code:

CALL METHOD OF go_range 'Select'

ничего не выделяет и sy-subrc в 2 сбрасывает.

Voffka

Гм.

А зачем необходимо сделать SELECT?

Range у нас уже есть... Теперь мы с ним дальше можем делать что угодно...

Ошибка, скорее всего, из-за того, что не активными являются вышестоящие объекты.

matel

Полностью код выглядит так:

Code:

Range("K14").Select
    Selection.Copy
    Range("I14,I15,I21,N14:N16").Select
    Range("N14").Activate
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
    Range("N15").Select

и мне надо как-то его реализовать,

В 3-й строке делать Select не обязательно?

Voffka

Вот блин.

На вскидку - возможно, не нужно делать activate.

Как вариант можно записать нужные действия в макрос и вызывать его.

matel

В принципе я его реализовал:

Range("I14,I15,I21,N14:N16")
разбил на несколько частей, я каждую отдельно обработал.

Но если придет куму-нить мысль, как выделить весь кусок сразу буду премного благодарен

Voffka, расскажите пожалуйста заодно, как макрос вызывать.

Bully

Надо декомпозировать код следующим образом:

Code:

Set R = Range("I14,I15,I21,N14:N16")
R.Select

- вот это на ABAP будет перевести уже проще.

Voffka

Вызов макроса:

Code:

  CALL METHOD OF excel_application 'RUN'
    EXPORTING
    #1 = i_name.

С аргументами:

Code:

      CALL METHOD OF excel_application 'RUN'
        EXPORTING
        #1 = i_name
        #2 = l_arg1
        #3 = l_arg2.

matel

Bully написал(а):

Надо декомпозировать код следующим образом:

Code:

Set R = Range("I14,I15,I21,N14:N16")
R.Select

- вот это на ABAP будет перевести уже проще.

Code:

Set R = Range("I14,I15,I21,N14:N16")

Как это сделать на абап?

Voffka

Имхо, это и есть

CALL METHOD OF excel_application 'Range' = range EXPORTING #1 = rangestr.

Только вместо переменной "R" переменная "range"

Bully

Voffka написал:

Имхо, это и есть

Code:

CALL METHOD OF excel_application 'Range' = range EXPORTING #1 = rangestr.

Только вместо переменной "R" переменная "range"

Аха, ты прав. Соответственно конечный вариант будет что-то типа

Code:

CALL METHOD OF excel_application 'Range' = range EXPORTING #1 = rangestr.
CALL METHOD OF range 'Select'.

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

Помогите реализовать basic на abap

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