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

Программирование на Visual Basic for Applications
Calvin
Постоялец
Постоялец
 
Сообщения: 409
Зарегистрирован: 21.01.2003 (Вт) 12:13
Откуда: Sebastopol

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

Сообщение Calvin » 08.02.2012 (Ср) 15:55

Здраствуйте уважаемые!
Вообщем-то вопрос в заголовке ну или типа так:
Код: Выделить всё
For i = 1 To Workbooks.Count
  ИмяКниги = Workbooks(i).Name
Next

*xla-ки не видит...как это побороть?
-Whose the motocycle, is this? -It`s a chopper, baby! -Whose chopper is this? -Zed`s! -Who is Zed? -Zed`s dead, baby, Zed`s dead! :-D

ger_kar
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1957
Зарегистрирован: 19.05.2011 (Чт) 19:23
Откуда: Кыргызстан, Иссык-Куль, г. Каракол

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

Сообщение ger_kar » 08.02.2012 (Ср) 20:33

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

coderx
Новичок
Новичок
 
Сообщения: 29
Зарегистрирован: 05.09.2005 (Пн) 10:44
Откуда: Узбекистан

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

Сообщение coderx » 08.02.2012 (Ср) 22:24

Попробуй так:
Код: Выделить всё
Addins(i).Name

Calvin
Постоялец
Постоялец
 
Сообщения: 409
Зарегистрирован: 21.01.2003 (Вт) 12:13
Откуда: Sebastopol

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

Сообщение Calvin » 09.02.2012 (Чт) 13:17

У меня открыто несколько книг, в том числе мною созданная xla. Вышеуказанный мною код эту xla-ку не видит.
Вариант с Addins тоже не помогает:
Код: Выделить всё
For Each wb In AddIns
MsgBox wb.Name
Next

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

а Workbooks(i).Name видит только xls файлы
-Whose the motocycle, is this? -It`s a chopper, baby! -Whose chopper is this? -Zed`s! -Who is Zed? -Zed`s dead, baby, Zed`s dead! :-D

coderx
Новичок
Новичок
 
Сообщения: 29
Зарегистрирован: 05.09.2005 (Пн) 10:44
Откуда: Узбекистан

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

Сообщение coderx » 09.02.2012 (Чт) 18:29

Код: Выделить всё
Application.VBE.VBProjects(i).FileName

Calvin
Постоялец
Постоялец
 
Сообщения: 409
Зарегистрирован: 21.01.2003 (Вт) 12:13
Откуда: Sebastopol

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

Сообщение Calvin » 10.02.2012 (Пт) 14:20

спасибо, работает, правда пришлось в безопасности макросов поставить галку "доверять доступ к объектной модели VBA"
-Whose the motocycle, is this? -It`s a chopper, baby! -Whose chopper is this? -Zed`s! -Who is Zed? -Zed`s dead, baby, Zed`s dead! :-D


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 12

    TopList