Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.02.2010, 18:56   #1
roplius
Пользователь
 
Регистрация: 06.05.2009
Сообщений: 15
По умолчанию Как найти все открытые „xls“ файлы?

Здравствуйте, уважаемые форумчане.
Столкнулся с проблемой. Оказывается, что ниже написанный код перебирает только те файлы, которые открыты в одном окне Excel, и не находит тех файлов, которые открыты через другое окно Excel.
Код:
For Each c In Application.Workbooks
   Msgbox c.Name 
Next c
Как написать код, который нашёл бы все открытые „xls“ файлы?
roplius вне форума Ответить с цитированием
Старый 02.02.2010, 19:31   #2
Aent
Форумчанин
 
Аватар для Aent
 
Регистрация: 17.07.2009
Сообщений: 519
По умолчанию

Объектная модель применима в рамках экземпляра приложения.
А если xls открыт скажем не в другой копии EXCEL а в CALC из Open.Office ?
Тут надо понять зачем вообще вам это нужно. И нужно ли в действительности. Если да нужно идти с помощью API по дескрипторам
открытых в системе файлов. Отслеживая их занятость. Вопрос для VBA
весьма не тривиальный. Так что сначала ответьте: зачем нужны все
открытые xls?
Aent вне форума Ответить с цитированием
Старый 03.02.2010, 09:55   #3
roplius
Пользователь
 
Регистрация: 06.05.2009
Сообщений: 15
По умолчанию

Ответ понял. Будем двигаться в другом направлении. Спасибо
roplius вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как программно закрыть все открытые модальные формы перед сворачиванием главной формы в трей? SkAndrew Общие вопросы Delphi 8 27.01.2010 22:44
Как открыть все файлы в одном каталоге Archey Общие вопросы Delphi 2 09.12.2009 12:43
Как найти все файлы в папке? blackstersl Общие вопросы Delphi 3 24.06.2009 16:52
как вывести все имеющиеся файлы в каталоге на экран? Almost456 Паскаль, Turbo Pascal, PascalABC.NET 2 24.12.2008 20:44
как присвоить значение ячейки R1C1 из 1.xls, допустим какой-нибудь любой ячейке из 2.xls ? diabloskrk Microsoft Office Excel 3 08.10.2007 12:27