Visual Basic for Applications ( VBA ) is een subset van Visual Basic die wordt gebruikt om op maat van Microsoft Office-programma's aan uw behoeften . Bij het schrijven naar een bestand in VBA , is het verstandig om ervoor te zorgen dat specifieke bestand bestaat voordat u probeert te schrijven. Als u wilt weten of een bestand bestaat in Excel , het opbouwen van een VBA- module die de truc doet . Om deze functie te gebruiken , moet je een aantal eerdere ervaring met VB programmering . Wat je nodig hebt
Excel 2007 of Excel 2010
Toon Meer Aanwijzingen
Copy 1 de volgende code : Option Explicit
Functie FileOrDirExists ( Padnaam als Koord ) zoals Van Boole
'Macro Doel : Functie terug tRUE als het opgegeven bestand
' . of map bestaat , false als niet
' Padnaam : Ondersteunt Windows mapped drives of UNC
' : Ondersteunt Macintosh paden
' gebruik bestand : Zorg voor volledige bestand pad en gebruik folder extensie
' : Zorg voor volledige pad naar de map < br > ' accepteert met /zonder trailing " \\ " ( Windows ) op ' accepteert met /zonder trailing " : " ( Macintosh ) Dim iTEMP
als Geheel
' Negeer fouten te laten voor fouten evaluatie
On Error Resume Next iTEMP = GetAttr
( Padnaam ) op ' Controleer of fout bestaat en set respons adequaat
Selecteer Case Err.Number Case
Is = 0 FileOrDirExists
= True Case
Else FileOrDirExists
= False End
Selecteer
' Resume foutcontrole
On Error Goto 0
End Function
Sub TestItWithWindows ( ) op ' Macro Doel: Om te testen de FileOrDirExists functioneren met Windows
' Alleen opgenomen om de functie aan te tonen . NIET vereist voor normaal gebruik Dim sPath
als Koord
' Verander uw telefoonboek hier sPath
= " C : \\ Test.xls "
' ! Test of map of bestand bestaat
Als FileOrDirExists ( sPath ) dan " bestaat! "
MsgBox sPath &
Else
MsgBox sPath & " niet er bestaan " End
Als End Sub
Sub TestItWithMacintosh
( ) op 'Macro Doel : . Om de FileOrDirExists functie met een Macintosh
testen ' alleen opgenomen om de functie tonen . NIET vereist voor normaal gebruik Dim sPath
als Koord
' Verander uw telefoonboek hier sPath = " HardDriveName : Documenten : Test.doc "
!
' Test of map of bestand bestaat
Als FileOrDirExists ( sPath ) dan
MsgBox sPath & " bestaat! "
Else
MsgBox sPath & " doet niet bestaan . " End
Als End Sub kopen van 2 Open Excel
en druk op ' Alt - F11 " om de Visual Basic Editor te openen.
< br > Goedkope 3 Klik op " invoegen " en klik op "Module . "
4 Plak de code in het rechterpaneel door op " Ctrl - " V. " < br >
Change " text.xls " 5 op de bestandsnaam die u zoekt .
Druk op " F5 " 6 om de procedure uit te voeren. de procedure zal een pop - up terug venster u vertellen of het bestand bestaat .
|
