Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.02.18;
Скачать: CL | DM;

Вниз

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]

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



Страницы: 1 вся ветка

Текущий архив: 2007.02.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.031 c
3-1163080786
Megabyte
2006-11-09 16:59
2007.02.18
Аналог Profiler а(для MSSQL) для Firebird 2.0


15-1169022126
infom
2007-01-17 11:22
2007.02.18
Реляционная БД и ООП


2-1170416926
Garacio
2007-02-02 14:48
2007.02.18
Как в Delphi получить букву системного диска?


2-1170252333
DelphiLexx
2007-01-31 17:05
2007.02.18
Узнать количество элементов


15-1169877415
6sema9
2007-01-27 08:56
2007.02.18
нужна ваша помощь