Главная страница
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.014 c
3-1227778244
vegarulez
2008-11-27 12:30
2009.10.04
Вопрос про ZeosDBO. (Zquery.Fields[i].AsDatetime)


15-1248973487
Северянин
2009-07-30 21:04
2009.10.04
Кто-нибудь сталкивался с КА?


15-1249365904
ford
2009-08-04 10:05
2009.10.04
видеоплеер


15-1248790363
Копир
2009-07-28 18:12
2009.10.04
Большой российский суперкомпьютер.


2-1248564636
xyz
2009-07-26 03:30
2009.10.04
занесение записи в БД ADO