Проверка открыта ли книга...

[Евген]

День добрый. Как проверить открыта книга или нет

[RayShade]

Посмотри внимательно. Почитай что написано на книге. Если там всего одно предложение а поверх или снизу несколько фамилий, то, скорее всего, это обложка. Если это обложка значит книга закрыта

[alibek]

Есть способ проще (c) Рондо
Если ширина книги больше, чем ее высота, то книга скорее всего открыта

[corgi]

2alibek а если это альбомная страница или я неправильно книгу держу

[G-Hacker]

Все очень просто:
Напримр можно сделать так:
application.activeworkbook.codename
В этом случае ты получаешь имя книги которое используется в программе, т.е. если открыть другую книгу ты получишь ее имя и можешь сравнить. Поскольку имя книги(используемое в коде программы) пользователь изменить не может (при условии, что у тебя VBA-проект защищен от просмотра), то можно быть уверенным что книга открыта(активна). Также можно определить и вот так:
application.activewindow.caption, но это очень просто и не совсем надежно. Еще одно полезное свойство это application.activeworkbook.creator, всегда неизменно и уникально (во всяком случае в XP Pro). Ну и еще один способ: application.activeworkbook.fuulname, если ты знаешь, где находится книга на диске.
Да, вот еще один способ:
ты получаешь список всех октрытых книг
application.workbooks.count-это количество
а далле просто перебираешь их по выше описанным свойствам:
fot i=1 to application.workbboks.count
if applivcation.workbboks.item(i).<вышеописанные свойства>=<чему- то> then
<книга открыта>
end if
next i
Вот и все. Если не получится, то напиши - помогу.

[gjghjc]

2 corgi, alibek, RayShade может я сейчас нарвусь на ответную грубость или на пристальное внимание к своим топикам со стороны гуру здешнего сайта, но я считаю стыдно господа старожилы так издеваться над новичком.
По моему мнению лучше вообще оставить данный топик без таких, как дали вы ответов, чем зарабатывать на новеньких количество постов и звезды. Отвечайте на вопросы, которые, как вы считаете, достойны вашего уровня, а на такую (по вашему мнению) элементарщину предоставьте возможность ответить подрастающему поколению (с чем кстати успешно справился G-Hacker имеющий на момент написания моего ответа всего 3 поста).
Вспомните то время, когда вы сами были молодыми и зелеными в программировании и как для вас были важны любые крохи информации неважно каким путем добыте. Или вы хотите сказать что до всего что вы сейчас умеете выдошли сами без чьей-либо помощи, и что вы в свое время не задавали глупых вопросов?
Господа, ничего личного но........

[GSerg]

Во-первых, это своеобразная традиция форума - таким образом отвечать на такие вопросы.
Во-вторых, http://www.sysadmins.ru/rtfm/ask_howto.htm

[alibek]

gjghjc, извини
Я не в обиду сказал, а в шутку, уж больно ты вопрос бестолково задал

[amda]

полностью согласен с gjghjc
а толкового ответа так и не было
я не знаю насколько это правильно, использовать рил тайм ошибку, но я использовал бы такое:

on error goto erro
Open "d:\книга.xls" For Binary Access Write Lock Write As #1
exit sub
erro:
if err.number=70 then
'файл уже открыт
end if

[amda]

полностью согласен с gjghjc
а толкового ответа так и не было
я не знаю насколько это правильно, использовать рил тайм ошибку, но я использовал бы такое:

on error goto erro
Open "d:\книга.xls" For Binary Access Write Lock Write As #1
exit sub
erro:
if err.number=70 then
'файл уже открыт
end if