Taranaga...
Пишет?
А разве для этого не надо запускать Эксель? Если надо, то я так и делаю:
1.
ExcelApp.Workbooks.Open(<путь к файлу>);
Result:=ExcelApp.sheets[SheetNumber].name;
orunbek Это и не должно работать, здесь же запрос идет, а в запросе ммм... наверно без запуска excel'а не сойдет наверно, попробуй в xls-файл внутрь заглянуть, может быть там на фиксированном месте в файле хранятся имена файла? ммм... но думаю лучше всего запустить excel.
В файле все в своем формате, ИМХО если и можно достать, то с помощью драйверов (Jet или ODBC) - то, что они "видят" имена листов (для них имена листов - имена таблиц) это факт, но как этим востпользоваться...
Taranaga 2Мальчишка - а как у тебя сейчас выглядит строка в которой ты указываешь имя листа "вручную"?
1.
2.
3.
4.
5.
6.
7.
If CheckBox3.Checked=true
then SheetName:=NameExcelSheet( 1 )
else SheetName:=ComboBox2.Text;
If SheetName = 'ошибка'
then SheetName:=ComboBox2.Text;
ADOQuery1.sql.Text:='Select * From ['+ SheetName +'$]';
DataSource1.DataSet:=ADOQuery1;
ADOQuery1.Open;
, где NameExcelSheet - функция "достающая" имя листа (напоминаю, что все в Дельфи)
Проблема в принципе не такая серьезная - открытие Экселя становится заметным тогда, когда размер файла более 2 метров - при таком размере обработка этого файла (экспорт в Оракл -> обработка его там -> выгрузка) занимает порядка 20 минут ;) Так что время определения имени листа (<5-10 сек) уже несущественно.
