Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Вниз

Добавление строк в 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

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

---

← →
YurikGL ©   (2004-10-12 19:59) [4]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.049 c