Как узнать в VBA, что Excel-файл с заданным именем - открыт? / Microsoft Office

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как узнать в VBA, что Excel-файл с заданным именем - открыт?

8 сообщений из 8, страница 1 из 1

Как узнать в VBA, что Excel-файл с заданным именем - открыт?

#38878948

S70

Участник

Сообщения: 127

Рейтинг: 0 / 0

Коллего,

день добрый. В VBA экселевском я открываю файл

Set xlsaFrom = Workbooks.Open(Filename:=currPathFrom, ReadOnly:=True, UpdateLinks:=False)

Иногда, данный файл уже открыт на компе (=> тут же получаю ошибку).
Подскажите, пожалуйста, можно как-то узнать, открыт уже данный файл на этом же компе (не по сети)?
Какой-нибудь способ без обработки исключения, что-то вроде "Проверить статус"?

Спасибо

...

Рейтинг:

0 / 0

13.02.2015, 12:06

| Ответить | Цитировать | Написать

Как узнать в VBA, что Excel-файл с заданным именем - открыт?

#38878982

Казанский

Гость

Получайте доступ к файлу так - неважно, открыт он или нет:

Код: vbnet

Set xlsaFrom = getobject(currPathFrom)

...

Рейтинг:

0 / 0

13.02.2015, 12:24

| Ответить | Цитировать | Написать

Как узнать в VBA, что Excel-файл с заданным именем - открыт?

#38879055

The_Prist

Участник

Откуда: www.excel-vba.ru

Сообщения: 2 025

Рейтинг: 0 / 0

Несколько вариантов:
Как проверить открыта ли книга?

Добавлю к советую Алексея: при использовании GetObject, надо понимать, что если книга не была открыта - то она откроется в скрытом режиме. И в зависимости от задачи надо учитывать этот момент и либо закрывать её потом принудительно, либо не забыть сохранить внесенные изменения.

...

Рейтинг:

0 / 0

13.02.2015, 13:05

| Ответить | Цитировать | Написать

Как узнать в VBA, что Excel-файл с заданным именем - открыт?

#38879074

S70

Участник

Сообщения: 127

Рейтинг: 0 / 0

Казанский,

спасибо, попробую. А при открытии в скрытом режиме, связи будут у нее обновляться?
Там большая модель внизу, не хотелось бы...

...

Рейтинг:

0 / 0

13.02.2015, 13:16

| Ответить | Цитировать | Написать

Как узнать в VBA, что Excel-файл с заданным именем - открыт?

#38879082

S70

Участник

Сообщения: 127

Рейтинг: 0 / 0

The_Prist,

и кстати, если VBA понял, что книга с данным именем открыта, как мне сослаться на нее теперь?
Если раньше было:

xlsaFrom.Worksheets(sSheet).Range(sRange).Copy

то как мне теперь, после IsBookOpen, с нее данные забрать?
Спасибо

...

Рейтинг:

0 / 0

13.02.2015, 13:24

| Ответить | Цитировать | Написать

Как узнать в VBA, что Excel-файл с заданным именем - открыт?

#38879086

S70

Участник

Сообщения: 127

Рейтинг: 0 / 0

The_Prist,

или так же, через getobject?

...

Рейтинг:

0 / 0

13.02.2015, 13:26

| Ответить | Цитировать | Написать

Как узнать в VBA, что Excel-файл с заданным именем - открыт?

#38879117

The_Prist

Участник

Откуда: www.excel-vba.ru

Сообщения: 2 025

Рейтинг: 0 / 0

S70,

если открыта:

Код: vbnet

set xlsaFrom = Workbooks("имя_книги")

если закрыта:

Код: vbnet

set xlsaFrom = Workbooks.open("полный_путь_к_книге")

...

Рейтинг:

0 / 0

13.02.2015, 13:40

| Ответить | Цитировать | Написать

Как узнать в VBA, что Excel-файл с заданным именем - открыт?

#38879193

S70

Участник

Сообщения: 127

Рейтинг: 0 / 0

The_Prist,

Ну да, собственно... Не сообразил )))
Но, все равно - спасибо.

...

Рейтинг:

0 / 0

13.02.2015, 15:02

| Ответить | Цитировать | Написать

8 сообщений из 8, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как узнать в VBA, что Excel-файл с заданным именем - открыт?

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

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

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=38879117&tid=2173640]:	0ms
get settings:	10ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	35ms
get topic data:	10ms
get forum data:	3ms
get page messages:	50ms
get tp. blocked users:	1ms
others:	288ms

total:	419ms