Как вывести в виде выпадающего списка названия листов Excel? Есть все, что угодно, но вот именно такую вещь никак не могу найти уже несколько недель... Есть обработка, которая автоматом должна вносить из документа в 1С позиции товаров, но там документ с листами. Мне надо что бы пользователь вручную мог выбирать какой лист обрабатывать. Можно конечно номер листа указывать, но это как-то не красиво. Хочется их реальные названия выводить.

Сначала напиши макрос, который читает листы. Этот фрагмент перекинь в 1С-ный код.

Через OLE - есть варианты?

(2) можно через адо

Воспользуйся Йокселем - он позволяет легко получить перечень листов. Однако не совсеми форматами экселя работает.
.
Полученный список листов - запихиваешь в список значений, ТЗ или куда тебе заблогорассудится.
.
возможно окажется полезной вот такая мелочь:
http://infostart.ru/public/14837/

Ексель хорошая вещь - не спорю. Но именно в этом и загвоздка я не могу в нем посредством Оле найти функцию, которая отвечает за вывод названий листов.

тебе не про excel говорили - тебе про yoksel

For i = 1 To Sheets.Count
   newSheet.Cells(i, 1).Value = Sheets(i).Name
Next i