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

Вниз

список листов в книге excel   Найти похожие ветки 

 
bsv   (2009-07-24 16:40) [0]

Здравствуйте! Нужно получить список листов в книге Excel. Использую TExcelApplication.
Код:

// открываю источник
sBk:=ExcelApplicationS.Workbooks.Open("d:\file.xls", EmptyParam, EmptyParam,
                 EmptyParam, EmptyParam, EmptyParam,
                 EmptyParam, EmptyParam, EmptyParam,
                 EmptyParam, EmptyParam, EmptyParam,
                 EmptyParam, EmptyParam, EmptyParam, LCID);
 //
 // Получаю список листов в книге
 for i:=1 to sBk.Sheets.Count do
   begin
     CmbBoxShNames.Items.Add(sBk.Sheets[i].Name);
   end;

Компилятор говорит, что нет такого свойства "Name".

Что делаю неправильно? Как получить этот список?


 
Anatoly Podgoretsky ©   (2009-07-24 16:44) [1]

> bsv  (24.07.2009 16:40:00)  [0]

А что у тебя выпало после нажатия последней точки?
Кроме того ты справку по Excel DOM смотрел?


 
bsv   (2009-07-24 16:56) [2]

После точки не выпало ничего. Где эту справку посмотреть? Рецепты по работе excel ищу через яндекс.


 
bsv   (2009-07-24 16:57) [3]

Виноват, "С excel"


 
Anatoly Podgoretsky ©   (2009-07-24 17:03) [4]

> bsv  (24.07.2009 16:56:02)  [2]

На сайте Микрософт, поиск можно по указаным словам, также говорят, что оно поставляется с офисом - ни разу не пользовался, всегда лез в MSDN


 
bsv   (2009-07-31 13:20) [5]

правильный ответ:

       // открываю источник
       sBk:=ExcelApplicationS.Workbooks.Open(LblNmFileSource.Caption, EmptyParam, EmptyParam,
                 EmptyParam, EmptyParam, EmptyParam,
                 EmptyParam, EmptyParam, EmptyParam,
                 EmptyParam, EmptyParam, EmptyParam,
                 EmptyParam, EmptyParam, EmptyParam, GetUserDefaultLCID);
       //
       // Создаю список листов в книге
       for i:=1 to sBk.Sheets.Count do
         begin
           ExcelWorksheet1.ConnectTo(sBk.Worksheets[i] as _Worksheet);
           CmbBoxShNames.Items.Add(ExcelWorksheet1.Name);
           ExcelWorksheet1.Disconnect;
         end;



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

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

Наверх




Память: 0.48 MB
Время: 0.018 c
2-1248674704
aza
2009-07-27 10:05
2009.10.04
ADO MS Jet прочитать не-коммитет данные


2-1248115102
thing
2009-07-20 22:38
2009.10.04
3D игра - переход от управления с клавы на мышь


15-1249370873
Kerk
2009-08-04 11:27
2009.10.04
Набор "Юный либерал"


15-1249115904
Alkid
2009-08-01 12:38
2009.10.04
Внимание, телефонная разводка


15-1249286693
cwl
2009-08-03 12:04
2009.10.04
Аудионаркотики