Форум: "Система";
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];
ВнизПодскажите плз, как програмно вставить строку в Excel. Найти похожие ветки
← →
Сергей Чурсин (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";
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c