Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];




Вниз

Подскажите плз, как програмно вставить строку в Excel. 


Serega__2   (2001-12-10 09:29) [0]

сабж.



TonnyS   (2001-12-10 14:20) [1]

на сайте Королевство Дельфи есть несколько статей "По вопросам интеграции" (вроде там) http://delphi.vitpc.com



Сергей Чурсин   (2001-12-11 13:31) [2]

Через ActiveX Automation как-то так...
***********************************


var
ExOle :OleVariant;
Sheet1, Cells:OleVariant;

***********************************

try
ExOle:=GetActiveOleObject("Excel.Application");
except
ExOle:=CreateOleObject("Excel.Application");
if ExOle.Workbooks.Count<1 then
ExOle.Workbooks.Add;
if ExOle.Workbooks[1].Sheets.Count<2 then
ExOle.Workbooks[1].Sheets.Add("Sheets1");
if ExOle.Workbooks[1].Sheets.Count<2 then
ExOle.Workbooks[1].Sheets.Add("Sheets2");

end;
ExOle.Visible:=true;
*******************************************************

Sheet1:= ExOle.ActiveWorkbook.Worksheets["Sheets1"];
Sheet1.Cells[1,2]:="aaaa";



Denis V. Didenko   (2001-12-17 14:29) [3]

v:Variant
v:=CreateOleObject("Excel.application");
v.Visible:=True;
v.// Здесь начинаеться Эксель бейсик прочитай в помощи по Эхелю как вставлять строку и учитывая синтаксис паская смело действуй




Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.018 c
7-57542           Cherep2               2001-12-14 17:48  2002.03.18  
Про Модем и реестр!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!<<<<<<Срочно>>>>>>


3-57331           boogier               2002-02-18 18:06  2002.03.18  
Как заставить ADO использовать индексы


1-57443           Nuce                  2002-03-04 01:50  2002.03.18  
PaintBox?


1-57359           M@XIDROM              2002-02-28 16:57  2002.03.18  
Scrollbar XP


14-57519          copyr25               2002-01-31 20:14  2002.03.18  
Анекдот