Форум: "Система";
Текущий архив: 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.// Здесь начинаеться Эксель бейсик прочитай в помощи по Эхелю как вставлять строку и учитывая синтаксис паская смело действуй
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c