| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Лист Excel [D7, Excel]

Orc ©   (2004-03-29 09:59:00) 

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

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

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

---

Orc   (2004-03-29 15:40:00) [1]

2 Nikolay M.

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

---

Nikolay M.   (2004-03-29 15:04:00) [2]

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

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

---

Orc   (2004-03-29 14:43:00) [3]

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

---

Ser2000   (2004-03-29 12:26:00) [4]

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

---

bushmen   (2004-03-29 11:01:00) [5]

c) ExcelApplication.Sheets(2).Activate

---

Nikolay M.   (2004-03-29 10:03:00) [6]

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

---

Наверх