Отчет в excel по шаблону

[dmites]

через Automation можно пользовать Excel и заполнять шаблон
как добавлять через NV новые строки в excel, чтобы низ шаблона
автоматом двигался ???

[Scorpie]

XlWrkSht.Range(FORMAT(StringNo)+':'+FORMAT(StringNo)).Insert(4121);

[dmites]

вызов функции Insert неудачен...
Метод Insert из класса Range завершен неверно (((

[Scorpie]

Цитата:

Сообщение от dmites

вызов функции Insert неудачен...
Метод Insert из класса Range завершен неверно (((

Хм.
StringNo - Integer?
4121 - это числовое обозначение константы xlDown...

Условно говоря в шаблоне счёта пустая строка счёта - 20я строка в шаблоне.
Делаем
StringNo := 20;
XlWrkSht.Range(FORMAT(StringNo)+':'+FORMAT(StringNo)).Insert(4121);
// тут заполняем строку счёта в шаблоне
StringNo+=1;
XlWrkSht.Range(FORMAT(StringNo)+':'+FORMAT(StringNo)).Insert(4121);
// заполняем вторую строку счёта в шаблоне...
и так далее

[dmites]

xlWorkSheet.Range('A'+FORMAT(RowNo)+':'+'A'+FORMAT(RowNo)).Value = 'Подразделение';
xlWorkSheet.Range('A'+FORMAT(RowNo)+':'+'A'+FORMAT(RowNo)).Insert(4121);

[Scorpie]

Цитата:

Сообщение от dmites

xlWorkSheet.Range('A'+FORMAT(RowNo)+':'+'A'+FORMAT(RowNo)).Insert(4121);

xlWorkSheet.Range(FORMAT(RowNo)+':'+FORMAT(RowNo)).Insert(4121);
Так выделяется вся строка для того чтобы сдвинуть её вниз...

[dmites]

respect уже исправил - работает! )

[dmites]

для полного удолетворения..
а если неоходимо добавить столбец (сдвинуть остальное вправо)?

[Scorpie]

Цитата:

Сообщение от dmites

для полного удолетворения..
а если неоходимо добавить столбец (сдвинуть остальное вправо)?

xlWorkSheet.Range('A:A').Insert(2);

[dmites]

спасибо, тоже поискал, можно еще сделать и так:

по справочнику MSDN свойство XlDirection:
xlDown -4121
xlToLeft -4159
xlToRight -4161
xlUp -4162
, т.е. также работает 4159