Workbooks "не видит" *.xla

[Calvin]

Здраствуйте уважаемые!
Вообщем-то вопрос в заголовке ну или типа так:

Код: Выделить всё

For i = 1 To Workbooks.Count
  ИмяКниги = Workbooks(i).Name
Next


*xla-ки не видит...как это побороть?

[ger_kar]

Я что-то ничего не понял. Может лучше напишешь с подробностями, включая версию Excel, что вообще требуется получить и т.д. А так ничего не понятно. Толи значения счетчика меньше, а может Workbooks(i).Name имя не возвращает или возвращает неправильно ну и все такое.

[coderx]

Попробуй так:

Код: Выделить всё

Addins(i).Name

[Calvin]

У меня открыто несколько книг, в том числе мною созданная xla. Вышеуказанный мною код эту xla-ку не видит.
Вариант с Addins тоже не помогает:

Код: Выделить всё

For Each wb In AddIns
MsgBox wb.Name
Next


видны только стандартные надстройки....

а Workbooks(i).Name видит только xls файлы

[coderx]

Код: Выделить всё

Application.VBE.VBProjects(i).FileName

[Calvin]

спасибо, работает, правда пришлось в безопасности макросов поставить галку "доверять доступ к объектной модели VBA"