Excel. Копировать диапозона ячеек

max3

Есть шаблон на 1стр необходимо сгенерить такой же шаблон на этой же странице

соотв. на скопировать диапозон с 1 по 65 строку и вставить чуть ниже

может кто делал через методы,

для примера копирование 1й выбранной строки:

* исходная строка
CALL METHOD OF sheet 'Rows' = rows
EXPORTING
#1 = p_line.
CALL METHOD OF rows 'Copy'.
* новая строка
CALL METHOD OF sheet 'Rows' = rows
EXPORTING
#1 = p_newline.
CALL METHOD OF rows 'Select'.
CALL METHOD OF excel 'Selection' = selection.
CALL METHOD OF selection 'Insert'.

построчное копирование не подходит, т.к. есть объединение ячеек

Заранее спасибо.

Felix

CALL METHOD OF selection 'PasteSpecial' и т.д.

Sub Макрос1()

Range("B2:D2").Select
Selection.Copy
Range("B10:D10").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

max3

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

CALL METHOD OF selection 'PasteSpecial' и т.д.

Sub Макрос1()

Range("B2:D2").Select
Selection.Copy
Range("B10:D10").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

как на ABAP прописать методамы выбор диапозона для копирования?
Range("B2:D2").Select
Selection.Copy
Range("B10:D10").Select

abap

Code:

method range_copy.
* ...
  data: rng       type ole2_object.
  data: subrc     type i.
*
  call method of worksheet 'RANGE' = rng exporting #1 = range.
  return = subrc = me->errors_check( sy-subrc ).
  if subrc <> 0. free object: rng. exit. endif.
*
  set property of me->application 'CutCopyMode' = 'False'.
  return = subrc = me->errors_check( sy-subrc ).
  if subrc <> 0. free object: rng. exit. endif.
*
  call method of rng 'COPY'.
  return = subrc = me->errors_check( sy-subrc ).
  if subrc <> 0. free object: rng. exit. endif.
*
  free object rng.

endmethod.
method range_pastespecial .
* ...
  data: rng      type ole2_object,
        pastespecial type ole2_object.
  data: subrc    type i.
*
  call method of worksheet 'RANGE' = rng exporting #1 = range.
  return = subrc = me->errors_check( sy-subrc ).
  if subrc <> 0. free object: rng. exit. endif.
*
  if paste_type = 3.       "вставить значения
    call method of rng 'PASTESPECIAL' = pastespecial
                       exporting #1 = 3.
    return = subrc = me->errors_check( sy-subrc ).
    if subrc <> 0. free object: rng, pastespecial. exit. endif.
  endif.
*
  if paste_type = 2.       "вставить все
    call method of rng 'PASTESPECIAL' = pastespecial
                       exporting #1 = -4104.
    return = subrc = me->errors_check( sy-subrc ).
    if subrc <> 0. free object: rng, pastespecial. exit. endif.
  endif.
*
  if paste_type = 4.       "вставить формат
    call method of rng 'PASTESPECIAL' = pastespecial
                       exporting #1 = 4.
    return = subrc = me->errors_check( sy-subrc ).
    if subrc <> 0. free object: rng, pastespecial. exit. endif.
  endif.
*
  if paste_type = 8.       "вставить ширину столб
    call method of rng 'PASTESPECIAL' = pastespecial
                       exporting #1 = 8.
    return = subrc = me->errors_check( sy-subrc ).
    if subrc <> 0. free object: rng, pastespecial. exit. endif.
  endif.
*
  free object rng.
  free object pastespecial.

endmethod.

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

Excel. Копировать диапозона ячеек

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