Лист Excel

← →
Orc © (2004-03-29 09:59) [0]

Приветствую Мастеров!

Вопрос может быть не в тему, но: под Delphi 7 использую ExcelApplication. Открываю книгу (нормально), ищу заданную строку (тоже нормально), а вот дальше начинается проблема: не могу
а) Получить имя текущего листа;
б) Узнать количество листов в книге;
с) Переключиться между листами.

может кто сталкивался? Вопрос жизни и смерти :(

← →
Nikolay M. © (2004-03-29 10:03) [1]

ExcelApplication.(Work)Sheets
ExcelApplication.Active(Work)Sheet
?

← →
bushmen © (2004-03-29 11:01) [2]

c) ExcelApplication.Sheets(2).Activate

← →
Ser2000 (2004-03-29 12:26) [3]

Orc Извини что влазю, но где ты искал информацию по работе с Excel в делфи, а то сильно надо а в моих книгах такого нет.

← →
Orc © (2004-03-29 14:43) [4]

2 Ser2000:

Сказать честно, нигде не искал. Всё методом научного тыка + изучения объектной модели VB for Application :)) Если есть желание пообщаться - пиши на мыло admin@r-style.perm.ru. А для всех остальных, всё оказалось гораздо проще:

Var LCID : Integer; NewIndex : OLEVariant; workbk : _workbook; worksh : _worksheet; begin LCID := GetUserDefaultLCID; excelapplication1.Workbooks.Open("c:\SomeBook.xls",true,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptypara m,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,lcid); excelapplication1.Visible[LCID]:=false; excelapplication1.DisplayAlerts[LCID]:=false; workbk:=excelapplication1.Workbooks.Item[iindex]; worksh:=workbk.Worksheets.get_item(1) as _worksheet; excelapplication1.Workbooks.Close(lcid); excelapplication1.Quit; end;

И у переменной worksh появляется замечательное свойство Name, как раз то, что мне и надо было. Но так или иначе - всем спасибо за поддержку ;)

> worksh:=workbk.Worksheets.get_item(1) as _worksheet;

Это тоже самое, что в [1] & [2].

2 Nikolay M.

Я понял :)) Только привёл полный пример, мало ли у кого возникнет подобная проблема ;)

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