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

Вниз

как получить имя листа Excel   Найти похожие ветки 

 
vvrz   (2008-01-24 12:01) [0]

Открываю нужный  Excel файл:
ExcelApp:=CreateOleObject("Excel.application");
  if OpenDialog1.Execute then
     Edit1.Text:=OpenDialog1.FileName;
workbook:=ExcelApp.workbooks.add(Edit1.Text);
ExcelApp.visible:=True;

Далее мне нужно открыть нужный мне лист и вернуть его имя, типо так:
list:=Workbook.ActiveSheet.Name;
Только вот возвращает пока имя первого листа, а не тот который я открываю.
Как получить имя выбранного листа?


 
DiamondShark ©   (2008-01-24 12:55) [1]


> мне нужно открыть нужный мне лист

"Нужный" -- это какой?
Доступ к листам осуществляется либо по индексу, либо по имени:
Workbook.Sheets(1).Activate
Workbook.Sheets("Лист1").Activate


> Только вот возвращает пока имя первого листа, а не тот который
> я открываю.

В приведённом коде ты никакой лист не "открываешь"


> Как получить имя выбранного листа?

"Выбранного" -- это какого? Кем и каким образом выбранного?
В книге есть просто листы и активный (он же текущий) лист.
Тебе какой надо?


 
vvrz   (2008-01-24 13:41) [2]

"Нужный" - это тот который выберет пользователь.
Пример: пользователь открывает через диалог файл xls, в нем допустим 5 листов, он просматривает содержимое каждого листа, находит лист с нужной информацией и оставляет этот лист активным(текущим), вот имя этого листа и нужно присвоить list.
Следующий файл может содержать, допустим 20 листов.
Имя файла xls, количество и наименование листов заранее не известно.



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

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

Наверх




Память: 0.47 MB
Время: 0.019 c
15-1200425147
Kolan
2008-01-15 22:25
2008.02.17
Решил сделать доклад для руководства :) послали&#133


2-1201253294
Nicola
2008-01-25 12:28
2008.02.17
Данные из массива


2-1201188185
Knob
2008-01-24 18:23
2008.02.17
Положение курсора в StringGrid


15-1200544927
Slider007
2008-01-17 07:42
2008.02.17
С днем рождения ! 17 января 2008 четверг


2-1200918836
tomkat
2008-01-21 15:33
2008.02.17
поиск строки в TStringlist