Как узнать статус открытия / закрытия файла Excel из Visual Basic

Question

Я работаю в Visual Basic 6. Я открыл файл Excel из команды vb6, а затем закрыл его.Теперь я хочу получить статус файла.Как узнать, что файл закрыт или открыт?Пожалуйста, дайте мне синтаксис получения открытого или закрытого статуса определенного файла из Visual Basic 6. ИЛИ другими словами, я открыл файл Excel через VB Santax, затем снова я открываю тот же файл, тогда должен быть ответ, что этот файлуже открыт, выберите другой.

Answer 1

Как насчет этого :

Option Explicit

Private Function FileStatus(ByVal FileName As String) As VbTriState
    Dim intFile As Integer

    On Error Resume Next
    GetAttr FileName
    If Err.Number Then
        FileStatus = vbUseDefault 'File doesn't exist or file server not available.
    Else
        Err.Clear
        intFile = FreeFile(0)
        Open FileName For Binary Lock Read Write As #intFile
        If Err.Number Then
            FileStatus = vbFalse 'File already open.
        Else
            Close #intFile
            FileStatus = vbTrue 'File available and not open by anyone.
        End If
    End If
End Function

Private Sub cmdGetStatus_Click()
    Select Case FileStatus(txtFileName.Text)
        Case vbUseDefault
            MsgBox "File doesn't exist or file server not available"
        Case vbFalse
            MsgBox "File already open"
        Case vbTrue
            MsgBox "File available and not open by anyone"
    End Select
End Sub