Главная страница
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.014 c
3-1191432473
PeL!gr!m
2007-10-03 21:27
2008.02.17
Миграция ПО с БД


2-1200919248
Alex_C
2008-01-21 15:40
2008.02.17
SizeOf для массивов более 32к


2-1201249539
Res
2008-01-25 11:25
2008.02.17
Char and String


15-1200657118
Searcher
2008-01-18 14:51
2008.02.17
Cсылку на John Lennon Revolution mp3


15-1200486753
Petr V. Abramov
2008-01-16 15:32
2008.02.17
от имени и по поручению Олега Егорова