|
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
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
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 .
|
