Visual Basic pour Applications ( VBA ) est un sous-ensemble de Visual Basic qui est utilisé pour les programmes Office de Microsoft adapter à vos besoins . Lors de l'écriture dans un fichier en VBA, c'est une bonne pratique de s'assurer que le fichier particulière existe avant d'essayer d' écrire. Si vous voulez savoir si un fichier existe dans Excel, créer un module VBA qui fait le tour. Pour utiliser cette fonction, vous devez avoir une certaine expérience préalable avec la programmation VB . Choses que vous devez
Excel 2007 ou Excel 2010
Afficher plus Instructions
1

Copier le code suivant :

Option Explicit
< p > FileOrDirExists de fonction ( pathName As String ) As Boolean

' But Macro: retourne TRUE en fonction si le fichier

spécifié ». ou le dossier existe, faux sinon pathName

' : prend en charge les lecteurs mappés Windows ou UNC

»: charge les chemins Macintosh

' usage du fichier: Fournir chemin complet du fichier et l'utilisation des dossiers prolongation

': Fournir chemin complet du dossier < br >

' accepte avec /sans fuite "\\" (Windows)

« Accepte avec /sans fuite ": " (Macintosh)

Dim iTEMP As Integer

« Ignorer les erreurs pour permettre erreur évaluation

On Error Resume Next

iTEMP = GetAttr ( PathName )

' Vérifiez si l'erreur existe et réponse réglée de manière appropriée
< p > Select Case Err.Number

Case Is = 0

FileOrDirExists = True

Case Else

FileOrDirExists = False

End Select Photos

' erreur de reprise de contrôle

On Error Goto 0

Fin de Fonction:

Sous TestItWithWindows ()

' But de Macro: Pour tester les FileOrDirExists fonctionnent avec Windows

' seulement inclus pour démontrer la fonction. Non requis pour une utilisation normale

sPath Dim As String

« Changez votre répertoire ici

sPath =" C: \\ Test.xls "

' ! test si le répertoire ou le fichier existe

Si FileOrDirExists ( sPath ) Puis " existe! "

MsgBox sPath &

Else MsgBox

sPath et " ne exister "

End If End Sub

Sous TestItWithMacintosh ()

' But de Macro: . Pour tester la fonction FileOrDirExists avec un Macintosh

«Seul inclus pour démontrer la fonction. Non requis pour une utilisation normale

sPath Dim As String

« Changez votre répertoire ici

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

'Test si le répertoire ou le fichier existe

Si FileOrDirExists ( sPath ) Puis

MsgBox sPath & "existe ! "

Else MsgBox

sPath et " ne pas exister. "

End If End Sub

2

Ouvrez Excel et appuyez sur" Alt- F11 "pour entrer dans l'éditeur Visual Basic .

3

Cliquez sur "Insérer " puis cliquez sur "Module ".
4

Collez le code dans la fenêtre de droite en appuyant sur " Ctrl- " V. "< br >
5

changement " text.xls " au nom de fichier que vous recherchez .
6

Appuyez sur " F5" pour exécuter la procédure . la procédure pour revenir un pop-up fenêtre vous indiquant si le fichier existe .