Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.31;
Скачать: CL | DM;

Вниз

Добавление строк в 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;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.036 c
1-1097609980
Saintdmitry
2004-10-12 23:39
2004.10.31
Delphi bugs


4-1095680247
ipnet
2004-09-20 15:37
2004.10.31
Как сменить курсор для отдельно взятого static


8-1091559275
DreymanD
2004-08-03 22:54
2004.10.31
Видео кодеки.


1-1097783635
ALex B.
2004-10-14 23:53
2004.10.31
Динамическое создание потоков.


3-1096880740
Начинающий освоение БД
2004-10-04 13:05
2004.10.31
Массив в поле таблицы





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский