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

Вниз

Проблема взаимодействия Delphi и Excel, как выбрать нужный лист   Найти похожие ветки 

 
Foxi_ ©   (2011-06-01 12:01) [0]

подскажите пожалуйста,
почему у меня Sheets не работает, при выборе активного листа

var
e_app: Variant;
begin
e_app := CreateOleObject("Excel.Application");
e_app.WorkBooks.Open("D:\программа\фаил.xls");
e_app.WorkBooks.WorkSheets.Item["3"].Name;
Edit1.Text := e_app.ActiveSheet.UsedRange.Rows.Count;
Edit2.Text := e_app.ActiveSheet.UsedRange.Columns.Count+1;
e_app.Quit;
end;


 
clickmaker ©   (2011-06-01 12:03) [1]

> e_app.WorkBooks.WorkSheets.Item["3"].Name;

чтобы это значило?


 
Foxi_ ©   (2011-06-01 12:06) [2]

пытаюсь открыть нужный лист в книге ;-)


 
clickmaker ©   (2011-06-01 12:12) [3]

e_app.WorkBooks.WorkSheets.Item[3].Activate ?


 
Foxi_ ©   (2011-06-01 12:17) [4]

пишет что незнает метода WorkSheets


 
clickmaker ©   (2011-06-01 12:20) [5]

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1273


 
OW ©   (2011-06-01 13:35) [6]


> var
> e_app, AcS: Variant;
> begin
> e_app := CreateOleObject("Excel.Application");
> e_app.WorkBooks.Open("D:\программа\фаил.xls");
AcS := e_app.WorkBooks.WorkSheets.Item["3"];

> Edit1.Text := AcS.UsedRange.Rows.Count;
> Edit2.Text := AcS.UsedRange.Columns.Count+1;
>
> e_app.Quit;
> end;


 
OW ©   (2011-06-01 13:36) [7]


> AcS := e_app.WorkBooks.WorkSheets.Item[3];



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

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

Наверх




Память: 0.48 MB
Время: 0.008 c
2-1306758953
And7
2011-05-30 16:35
2011.09.18
Если в строке есть символ, то


15-1306314143
KSergey
2011-05-25 13:02
2011.09.18
Про гугль-почту


15-1306362957
IPranker
2011-05-26 02:35
2011.09.18
Замыкания в Delphi.


15-1306253551
Чайник
2011-05-24 20:12
2011.09.18
Удаление файла


2-1306677371
Justin
2011-05-29 17:56
2011.09.18
Как определить соотношение ширина/высота?