Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.05.2015, 11:23   #1
иванлеон
Пользователь
 
Регистрация: 04.01.2012
Сообщений: 31
По умолчанию вставка ячеек в Excell со сдвигом вниз

Здравствуйте!
Есть рабочий код копирования ячеек Excel открытого документа в Delphi.
A3:G6 копируется в A9:G12.

Код:
var
Excel:Variant;
Destrange:OLEVariant;
.....

Excel:=CreateOleObject('Excel.Application');

Excel.Workbooks.Open('doc.xlt');


DestRange := Excel.Range['A9', 'G12'];
Excel.Range['A3', 'G6'].Copy(DestRange);
Проблема в том, что надо вставлять эти ячейки со сдвигом вниз именно программно. Как это делается в Excell показано на рисунке.



Не понимаю, как это сделать?

Последний раз редактировалось иванлеон; 24.05.2015 в 11:27.
иванлеон вне форума Ответить с цитированием
Старый 24.05.2015, 14:04   #2
иванлеон
Пользователь
 
Регистрация: 04.01.2012
Сообщений: 31
По умолчанию

Да, можно тупо навставлять пустых ячеек, а потом скопировать туда. Код выше.

Код:
  Excel:=CreateOleObject('Excel.Application');
    Excel.WorkBooks.Add(EmptyParam);
    Excel.Visible:=true;
    Excel.Range['A1:F5'].Value:='blablabla';
    Excel.Range['B1:B2'].Insert(xlDown);// сдвиг вниз
    Excel.Range['D4:E4'].Insert(xlToRight);
Не знаю, может есть ещё варианты?
иванлеон вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
StringGrid вставка строк со сдвигом limon77 Общие вопросы Delphi 0 06.02.2015 15:47
как создать рисунок с привязкой к тексту со сдвигом вниз? workman777 Microsoft Office Word 3 18.01.2013 02:09
Объединение ячеек со сдвигом вверх удалением(макрос) AdvSent Microsoft Office Excel 7 03.08.2012 17:07
Вопрос о выводе новостей (новых публикаций) со сдвигом старых вниз ycropp HTML и CSS 3 13.01.2012 13:32
Как вставить диапазон в конкретную строку листа Excel со сдвигом вниз имеющихся? malor Microsoft Office Excel 3 17.01.2010 17:48