Скачать: CL | DM;

Лист 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, как раз то, что мне и надо было. Но так или иначе - всем спасибо за поддержку ;)

---

← →
Nikolay M. ©   (2004-03-29 15:04) [5]

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

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

---

← →
Orc ©   (2004-03-29 15:40) [6]

2 Nikolay M.

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c