Добавление строк в Excel

← →
hooky-mars (2004-10-12 18:33) [0]

Saluer!

Надо выдать отчет из баз данных. При этом используются шаблоны. Но когда нужно выгружать самиы данные не могу доваить строку.
Метод Cells[i,j] не подходит, он периисывает то, что идет ниже таблицы. Как оформить добавление?
Код:
var XLApp,Sheet:Variant; ... egin XLApp:= CreateOleObject("Excel.Application"); XLApp.Visible:=true; XLApp.Workbooks.open("..."); XLApp.Workbooks[1].WorkSheets[1].Name:="Отчёт"; Sheet:=XLApp.Workbooks[1].WorkSheets["Отчёт"]; Sheet.Cells[1,2]:="Телефонный справочник"; Sheet.Cells[2,1]:="Фамилия"; Sheet.Cells[2,2]:="Имя"; Sheet.Cells[2,3]:="e-mail"; Sheet.Cells[2,4]:="Город"; Sheet.Cells[2,5]:="Дата рождения"; ... Sheet.Cells[index,1]:=".."; Sheet.Cells[index,2]:=".."; Sheet.Cells[index,3]:=".."; Sheet.Cells[index,4]:=".."; Sheet.Cells[index,5]:=".."; ... end;

← →
Мирон © (2004-10-12 19:18) [1]

Такой вариант. Записываем в Экселе макрос, добавляющий строку в нужном месте (и выполняющий ее форматирование, если надо).
Затем из программы делаем OLEVariant(exl).Run("Module1.MyMacros");
и заполняем получившиеся ячейки.

Надеюсь, это то, что надо

← →
hooky-mars (2004-10-12 19:21) [2]

TO Мирон ©

Я даже не знаю как это делается в VBasic`е. Подозриваю, что похожими надписами (отдаленно похожими), это можно будет сделать и в Delphi

← →
Мирон © (2004-10-12 19:53) [3]

А так?

Sheet.Cells[...там, где надо вставить...].EntireRow.Insert(xlDown)

ИМХО, вообще лучше использовать раннее связывание.

http://delphiworld.narod.ru/base/on_waves_of_integrations.html

Может кое-что проясниться...

http://www.delphimaster.ru/cgi-bin/forum.pl?n=0&search=excel

Добавление строк в Excel Найти похожие ветки