Excel

← →
AngelOfDarkness_ (2006-12-27 16:51) [0]

Доброго времени суток. Подскажите пожалуйста. Средствами Delphi открыто 2 таблицы Excel. как между ними переключаться?

программный код такой

FormMain.ExcelApplication1.AutoConnect:=true;
FormMain.ExcelApplication1.AutoQuit:=true;
FormMain.ExcelApplication1.ConnectKind:=ckRunningOrNew;
FormMain.ExcelApplication1.Visible[0]:=true;
FormMain.ExcelApplication1.Workbooks.Add(CurrentDir+"data\table1.xls",0);
FormMain.ExcelApplication1.Workbooks.Add(CurrentDir+"data\table2.xls",1);
FormMain.ExcelApplication1.Workbooks.Item[1].Activate(0);
FormMain.ExcelApplication1.Cells.Item[1,1]:="testact1";
FormMain.ExcelApplication1.Workbooks.Item[1].Activate(1);
FormMain.ExcelApplication1.Cells.Item[1,1]:="testschet1";
FormMain.ExcelApplication1.Workbooks.Item[1].Activate(0);
FormMain.ExcelApplication1.Cells.Item[2,1]:="testact2";

в таблицу с номером 1 (table2 то есть) ничего не заносится. все пишется в таблицу с номером 0

← →
umbra © (2006-12-27 16:55) [1]

> FormMain.ExcelApplication1.Workbooks.Item[1].Activate(0);

если Вы постоянно активируете первую рабочую книгу, то как что-то может попасть во вторую?

← →
AngelOfDarkness_ (2006-12-27 17:02) [2]

точна....
Спасибо огромное

Excel Найти похожие ветки