Visual Basic, Applications Edition (VBA ) è un sottoinsieme di Visual Basic che viene utilizzato per adattare i programmi di Microsoft Office per le tue esigenze . Quando si scrive in un file in VBA , è buona norma fare in modo che esista particolare file 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 , è necessario avere una certa esperienza prima con la programmazione VB . Cose che ti serviranno
Excel 2007 o Excel 2010
Show More Istruzioni
1

Copia il seguente codice :

Option Explicit
< p > FileOrDirExists Function (percorso As String) As Boolean

' Obiettivo Macro : restituisce True se il file specificato

' . o cartella esiste , false se non

' PathName : Supporta unità mappate di Windows o UNC

': Supporta percorsi Macintosh

' utilizzo del file : Fornire il percorso completo del file e l'utilizzo delle cartelle estensione

' : Fornire percorso cartella completo < br >

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

' Accetta con /senza coda " : " ( Macintosh ) per

Dim iTemp As Integer

' Ignora errori per permettere errori di valutazione

On Error Resume Next

iTemp = GetAttr (percorso ) per

' Controlla se esiste errore e reazione impostata in modo appropriato
< p > Select Case Err.Number

Case Is = 0

FileOrDirExists = True

Case Else

FileOrDirExists = False

End Select

' error Resume controllo

On Error Goto 0

End Function

Sub TestItWithWindows ( ) per

' Obiettivo Macro : Per provare le FileOrDirExists funzionano con Windows

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

Dim sPath As String

' cambiare directory qui

sPath = " C : \\ Test.xls "

' ! Verifica se la directory o il file esiste

FileOrDirExists ( sPath ) Poi

MsgBox sPath & " esiste! "

Else

MsgBox sPath & " non esiste "

End If End Sub

Sub TestItWithMacintosh ( ) per

' Obiettivo Macro : . Per testare la funzione FileOrDirExists con un
Macintosh

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

Dim sPath As String

' cambiare directory qui

sPath = " HardDriveName : Documenti: Test.doc " !

' Verifica se directory o file esiste

FileOrDirExists ( sPath ) Poi

MsgBox sPath & "esiste ! "

Else

MsgBox sPath & " fa non esiste ".

End If End Sub

2

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


3

Fare clic su " Inserisci" e poi su " Modulo ".
4

Incollare il codice nel riquadro a destra premendo il tasto " Ctrl - " V. " < br >
5

cambiamento " text.xls " al nome del file che si sta cercando .
6

Premere " F5 " per eseguire la procedura . la procedura restituisce un pop-up finestra che ti dice se il file esiste .