проверка файла на открытие

[maksim_serg]

Доброго времени всем!
скажите а как проверить открыт ли конкретный файл (*.doc), и если это так то закрыть его.

[maksim_serg]

If IsWorkbookOpen("файл.xls") Then Workbook("файл.xls").Close

А если файл - это документ word? то как?

[maksim_serg]

With CreateObject("word.application")
            On Error Resume Next
            Set dw = GetObject(, "Word.Application")
            If dw.documents("файл.doc") Is Nothing Then
            .documents.Open ("путь к файлу\файл.doc")
            Else
            dw.documents("файл.doc").Close
            .documents.Open ("путь к файлу\файл.doc")
            End If
            .Visible = True
End With

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

[EducatedFool]

если документ уже открыт, то word открывается еще раз и получается один пустой

Ну так а зачем запускать ещё один Word? (строкой CreateObject("word.application"))

Зачем вообще надо открывать документ Word?

Может, так подойдёт:

Sub test()
    Set dw = GetObject("C:\Documents and Settings\Игорь\Рабочий стол\карта.doc", "Word.document")
    MsgBox dw.paragraphs.Count ' выводим количество абзацев в документе
End Sub

[maksim_serg]

программа открывает word в скрытом режиме вставляет в документ значения из ячеек, сохр. в другом месте и закрывает. если в прошлый раз произошла ошибка или файл уже открыт, то при выполнении кода выводится сообщение: "файл заблокирован таким-то - открыть копию или уведомить когда станет доступным...". так вот я хочу что б перед выполнением кода этот файл закрывался независмо от того в скрытом режиме он открыт или нет

[SAS888]

Можно воспользоваться WinAPI-функцией, которой "фиолетово", в каком режиме (скрытом или нет) открыт (или не открыт) любой файл. Например, для Вашего случая:

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Sub test()
    DocName = "qwerty" 'Имя doc-файла без расширения
    If FindWindow(vbNullString, DocName & " - Microsoft Word") = 0 Then
        MsgBox "Файл не открыт"
    Else
        MsgBox "Файл открыт"
    End If
End Sub

Вместо MsgBox используйте свой код, который требуется выполнить в случае, если файл открыт (не открыт).

[maksim_serg]

что то уменя постоянно "файл неоткрыт", даже если открыт.
хотя стоп. если я пишу имя вот так:

DocName = "М-19.doc [Режим ограниченной функциональности]"

то все работает. что такое "Режим ограниченной функциональности"???