[vba excel] verificare se un file è aperto o meno

[john_revelator]

Salve a tutti. Sono ancora qui a rompere.
Tramite word dovrò importare in excel dei dati ma prima devo verificare che il file di excel sia aperto o meno.

Il codice che ho scritto finora è questo. Anche se il file è chiuso mi dice che in realtà è già aperto. Potete darmi un consiglio? Grazie ancora.

Sub cicla()

On Error GoTo apriFile:

Dim strPath As String
Dim xlApp As Excel.Application
Set xlApp = CreateObject("Excel.Application")
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

strPath = "C:\mio_path\2009-06-19.xls"

xlApp.Visible = True


If Dir(strPath) <> "" Then
    'MsgBox "Il file esiste"
        
        If Not Workbooks(strPath) Is Nothing Then
            MsgBox "file aperto"
        Else
            MsgBox "file chiuso"
        End If

Workbooks(strPath).Activate

Else
    MsgBox "Il file non esiste"
    Exit Sub
End If


apriFile:
If Err.Number = 9 Then
    xlApp.Workbooks.Open FileName:=strPath
    Resume
End If

End Sub

[MarcoGG]

Mmm, quanto codice...

Meglio così ?

Private Function FileAperto(pathNomeFile As String) As Boolean

   On Error Resume Next
   Open pathNomeFile For Binary Access Read Write Lock Read Write As #1
   Close #1
   If Err.Number <> 0 Then
      FileAperto = True
      Err.Clear
   End If
   
End Function

Da usare così :

    Dim nomeFile As String
    nomeFile = "C:\Test.xls"

    If FileAperto(nomeFile) = True Then MsgBox "File già aperto !"

[john_revelator]

Grazie infinite per la "millantesima" volta.

[MarcoGG]

Originariamente inviato da john_revelator

Grazie infinite per la "millantesima" volta.

Mi dovrai come minimo citare negli "special thanks"...

[boomalek79]

Originariamente inviato da MarcoGG

Mmm, quanto codice...

Meglio così ?

Private Function FileAperto(pathNomeFile As String) As Boolean

   On Error Resume Next
   Open pathNomeFile For Binary Access Read Write Lock Read Write As #1
   Close #1
   If Err.Number <> 0 Then
      FileAperto = True
      Err.Clear
   End If
   
End Function

Da usare così :

    Dim nomeFile As String
    nomeFile = "C:\Test.xls"

    If FileAperto(nomeFile) = True Then MsgBox "File già aperto !"

Anche io uso questo codice... ho un solo problema..
se lo uso per verificare se è già aperto un file che è in SOLA LETTURA mi dice (giustamente visto che prova bloccarlo anche in scrittura e non ci riesce) che è aperto anche se non lo è...

c'è un modo di risolvere questa particolarità?

Grazie

[misterx]

per tagliare la testa al toro con una sporca: io proverei a rinominarlo aggiungendo semplicemente un carattere, se l'SO non si arrabbia, il file non è aperto e lo si riporta al nome precedente.

[lorenzo001]

Originariamente inviato da boomalek79

Anche io uso questo codice... ho un solo problema..
se lo uso per verificare se è già aperto un file che è in SOLA LETTURA mi dice (giustamente visto che prova bloccarlo anche in scrittura e non ci riesce) che è aperto anche se non lo è...

c'è un modo di risolvere questa particolarità?

Grazie

Lo avevi scritto anche qui

http://forum.masterdrive.it/visual-b...tml#post377488

ma non hai creato nessun nuovo thread per avere la risposta ...