Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 24.05.2015, 12: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 в 12:27.
иванлеон вне форума   Ответить с цитированием
Старый 24.05.2015, 15: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);
Не знаю, может есть ещё варианты?
иванлеон вне форума   Ответить с цитированием
Ответ
Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
StringGrid вставка строк со сдвигом limon77 Общие вопросы Delphi 0 06.02.2015 16: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 18:48