Come determinare se un file esiste in Excel VBA

March 22

Come determinare se un file esiste in Excel VBA


Visual Basic, Applications Edition (VBA) è un sottoinsieme di Visual Basic che viene utilizzato per personalizzare i programmi di Microsoft Office in base alle proprie esigenze. Quando si scrive in un file in VBA, è buona norma assicurarsi quel particolare file esista prima di tentare di scrivere. Se si vuole trovare se esiste un file in Excel, creare un modulo VBA che fa il trucco. Per poter utilizzare questa funzione, si dovrebbe avere qualche precedente esperienza con la programmazione VB.

istruzione

1 Copiare il codice seguente:

Option Explicit

FileOrDirExists funzione (nome di percorso come stringa) come booleano

'Macro Purpose: Function returns TRUE if the specified file

'O esiste una cartella, falso in caso contrario.

'PathName: Supporta Windows mappato unità o UNC

': Supporta percorsi di Macintosh

'Utilizzo del file: Fornire percorso completo del file e l'estensione

'Cartella utilizzo: Fornire percorso cartella piena

'Accetta con / senza finale "\" (Windows)

'Accetta con / senza finale ":" (Macintosh)

Dim iTemp As Integer

'Ignora errori per consentire l'analisi degli errori

On Error Resume Next

iTemp = GetAttr (PathName)

'Verificare se l'errore esiste e impostare la risposta in modo appropriato

Select Case Err.Number

Case Is = 0

FileOrDirExists = True

Case Else

FileOrDirExists = False

End Select

'Riprendi il controllo degli errori

On Error Goto 0

End Function

TestItWithWindows sub ()

'Macro Purpose: To test the FileOrDirExists function with Windows

'Solo incluso per dimostrare la funzione. Non richiesto per l'uso normale!

Dim sPath As String

'Cambiare la directory qui

sPath = "C: \ Test.xls"

'Test se directory o file esiste

Se FileOrDirExists (sPath) allora

MsgBox sPath e "esiste!"

Altro

MsgBox sPath e "non esiste."

Finisci se

End Sub

Sub TestItWithMacintosh ()

'Macro Purpose: To test the FileOrDirExists function with a Macintosh

'Solo incluso per dimostrare la funzione. Non richiesto per l'uso normale!

Dim sPath As String

'Cambiare la directory qui

sPath = "HardDriveName: Documenti: test.doc"

'Test se directory o file esiste

Se FileOrDirExists (sPath) allora

MsgBox sPath e "esiste!"

Altro

MsgBox sPath e "non esiste."

Finisci se

End Sub

2 Aprire Excel e premere il tasto "Alt-F11" per entrare nel Visual Basic Editor.

3 Fai clic su "Inserisci" e poi cliccare su "Modulo".

4 Incollare il codice nel riquadro a destra premendo il tasto "Ctrl" V ".

5 Cambiare "Text.xls" per il nome del file che si sta cercando.

6 Premere il tasto "F5" per eseguire la procedura. La procedura restituirà una finestra pop-up che ti dice se il file esiste.


Articoli Correlati