Как найти все открытые „xls“ файлы? - Microsoft Office Excel

roplius · 02.02.2010, 18:56

Здравствуйте, уважаемые форумчане.
Столкнулся с проблемой. Оказывается, что ниже написанный код перебирает только те файлы, которые открыты в одном окне Excel, и не находит тех файлов, которые открыты через другое окно Excel.

Код:

For Each c In Application.Workbooks
   Msgbox c.Name 
Next c

Как написать код, который нашёл бы все открытые „xls“ файлы?

Aent · 02.02.2010, 19:31

Объектная модель применима в рамках экземпляра приложения.
А если xls открыт скажем не в другой копии EXCEL а в CALC из Open.Office ?
Тут надо понять зачем вообще вам это нужно. И нужно ли в действительности. Если да нужно идти с помощью API по дескрипторам
открытых в системе файлов. Отслеживая их занятость. Вопрос для VBA
весьма не тривиальный. Так что сначала ответьте: зачем нужны все
открытые xls?

roplius · 03.02.2010, 09:55

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

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“ файлы?

02.02.2010, 19:31	#2
Aent Форумчанин Регистрация: 17.07.2009 Сообщений: 519	Объектная модель применима в рамках экземпляра приложения. А если xls открыт скажем не в другой копии EXCEL а в CALC из Open.Office ? Тут надо понять зачем вообще вам это нужно. И нужно ли в действительности. Если да нужно идти с помощью API по дескрипторам открытых в системе файлов. Отслеживая их занятость. Вопрос для VBA весьма не тривиальный. Так что сначала ответьте: зачем нужны все открытые xls? Andrey Entelis. http://aentelis.livejournal.com http://aentelis.dreamwidth.org/

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как программно закрыть все открытые модальные формы перед сворачиванием главной формы в трей?	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

03.02.2010, 09:55	#3
roplius Пользователь Регистрация: 06.05.2009 Сообщений: 15	Ответ понял. Будем двигаться в другом направлении. Спасибо