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

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

Excel [D7]


P0tia ©   (2003-09-08 16:06:00) 

Как узнать количество листов в рабочей книги? Как закрыть соединение с Excel? Начинается так...
Excel := GetActiveOleObject("Excel.Application");


P0tia   (2003-09-08 17:53:00) [1]

я не сам создаю Рабочую книгу, а использую имеющиюся


Arm79   (2003-09-08 17:35:00) [2]

А еще неплохо было бы поработать с страницей Servers. Кстати, насчет макроса - сам пользуюсь этим методом. Очень помогает


dima_shapkin   (2003-09-08 17:15:00) [3]

Для того чтобы узнать кол-во листов в книге ее как бы надо и открыть для начала, поэтому лучше создать новый OLE объект(или указатель на интерфейс).

var
WorkBook, Sheet, exl : Variant;

exl := CreateOleObject("Excel.Application");
WorkBook := exl.WorkBooks.Open("Имя файла с путем");
// Кол-во шитов
ShowMessage(IntToStr(WorkBook.Sheets.Count));

Sheet := WorkBook.WorkSheets[1]; // Первый шит

Если что не понятно записываешь макрос и смотришь как на этот е..м VB это реализуется и пытаешься все это сделать из Дельфей, все в принципе также, заисключением некотрых ньюансов.

XL := Unassigned; // типа все...


Наверх

Титульная страница Поиск, карта сайта Написать письмо