Форум: "Система";
Поиск по всему сайту: 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.038 c
1-57453           KvORubin              2002-03-03 09:46  2002.03.18  
АРХИВИРОВАНИЕ - ПОМОГИТЕ !!!


1-57381           1g0r                  2002-03-01 16:11  2002.03.18  
TIniFile.RenameSection


7-57532           Serghei               2001-12-14 16:25  2002.03.18  
Браузер в OleContainer


1-57387           Nikola                2002-02-28 08:50  2002.03.18  
Определить номер входящего звонка


1-57454           Григорий Ситнин       2002-02-27 15:03  2002.03.18  
Алгоритмы сравнения файлов...