как определить из VBA, открыт ли определенный файл Excel?

[den4ik]

Подскажите пжлста!
как открыть файл я нашел, но мне нужно проверить условие - может он уже открыт?

[Sla]

Если попытаться открыть на запись, то можно получить ошибку...

[zubr]

Поднять все хендлы, связанные с процессом exel.exe, используя NtQuerySystemInformation, затем получить имена объектов хендлов, используя NtQueryObject. Правда не знаю, можно ли такое сотворить в VBA.
Простой и тупой способ - попробовать удалить файл, предварительно его скопировав в другое место. Если файл открыт другим процессом - не удалится.

[den4ik]

    Может можно как-нибудь в ВБА при получении ошибки не выводить ее на экран , а обработать событие соответствующе. На делфи видел как-то типа if ErrorText = '' then begin ..... просто я не хочу открывать файл если он закрыт, если открыт то беру справочно значения. соответственно если он закрыт - получу ошибку при обращении к ячейке в таблице, обработаю и не буду пытаться больше открыть. как-то все конечно будет через заднее место... но проще чем удалять - копировать - переносить...

[Kivals]

Excel.DisplayAlerts = False;

После этого если файл не откроется (по какой-то причине: уже открыт, нет доступа, не существует) - это вызовет исключение, которое можно контролировать средствами языка (VBA?)

Вот так у меня это выглядит в 1С:

Код: (1C v8)

        Excel=CreateObject("Excel.Application");
        Excel.DisplayAlerts = False;
        Excel.ScreenUpdating=False;
        Try
                Try
                        WB=Excel.Workbooks.Open(Файл,,True,5);
                Except
                        Message("Ошибка открытия файла: "+GetErrorDescription(), "!");
                        Raise;
                EndTry;
               
                // ... Продолжаем работу с файлом
        Except
                Message(GetErrorDescription(), "!!!");
        EndTry;

        // Продолжаем работу с Excel: отображаем открытый файл
        Excel.DisplayAlerts = True;
        Excel.ScreenUpdating=True;
        Excel.Application.Visible = True;

[Dimka]

Я, конечно, вопрос не изучал на практике, но разве недостаточно просмотреть коллекцию Workbooks на предмет открытых книг? К чему все эти копирования и удаления?

[den4ik]

"Я, конечно, вопрос не изучал на практике, но разве недостаточно просмотреть коллекцию Workbooks на предмет открытых книг? К чему все эти копирования и удаления?"

наверно это лучший вариант, не подскажеш код как это выглядит?

[den4ik]

Kivals, я не правильно указал, нужно не для VBA, a для Microsoft VB.

[zubr]

Я, конечно, вопрос не изучал на практике, но разве недостаточно просмотреть коллекцию Workbooks на предмет открытых книг? К чему все эти копирования и удаления?

Каков вопрос:

Подскажите пжлста!
как открыть файл я нашел, но мне нужно проверить условие - может он уже открыт?

Таков и ответ.

[HandKot]

Я, конечно, вопрос не изучал на практике, но разве недостаточно просмотреть коллекцию Workbooks на предмет открытых книг? К чему все эти копирования и удаления?

у каждого объекта своя коллекция

1 вариант, скорее нет чем да
Как проверить открыта ли книга?
2 вариант, не смотрел
Как мне узнать открыта данная книга Excel или нет?

гугль Вам в помощь

[den4ik]

Спасибо всем! HandKot 1 вариант подошел!

[Kivals]

Dimka, если я правильно помню - то Workbooks вернет книги текущего объекта Excel.Application, хотя объектов может быть несколько (даже под одним пользователем). Кроме того файл может быть заблокирован (не открываться) по разным причинам, а в третьем посте автор указывает что ему нужно просто попытаться открыть файл и если не получится - взять справочное значение. ИМХО в этом случае как раз подходит исключение.

[lazymax]

Excel.DisplayAlerts = False;

Вопрос не в тему, а что уже есть английский синтаксис для 1с? Они решили выходить на мировой рынок?

[zubr]

lazymax, а причем здесь вообще 1C ?

[lazymax]

lazymax, а причем здесь вообще 1C ?

Ох.. это я что-то ступил днем, сразу несколько разделов смотрел и видать запутался..

Добавлено через 2 минуты и 4 секунды:

lazymax, а причем здесь вообще 1C ?

А, нет, вон же у него написано, что это код из 1c