Главная страница
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.023 c
2-1201193988
AntonUSAnoV
2008-01-24 19:59
2008.02.17
как записать в событие onkeydown сочетание клавиш


6-1180565481
samael6
2007-05-31 02:51
2008.02.17
Работа с TIdConnectionIntercept


15-1200490625
сопляк
2008-01-16 16:37
2008.02.17
Проект недоделанный


15-1200365060
zSergey
2008-01-15 05:44
2008.02.17
Разыскивается компонент


15-1200672674
Dib@zol
2008-01-18 19:11
2008.02.17
Растеризация