Visual Basic for Applications ( VBA ) er en undergruppe av Visual Basic som brukes til å skreddersy Microsoft Office-programmer som passer dine behov . Når du skriver til en fil i VBA , er det lurt å sørge for den aktuelle filen finnes før du prøver å skrive til den. Hvis du ønsker å finne ut om en fil finnes i Excel , bygge en VBA -modul som gjør utslaget. For å kunne bruke denne funksjonen , bør du ha noen tidligere erfaring med VB programmering. Du trenger
Excel 2007 eller Excel 2010
Vis flere instruksjoner
en

Kopier følgende kode :

Option Explicit
< p > Funksjon FileOrDirExists ( baneNavn As String ) As Boolean

' Macro Formål: funksjonen returnerer SANN hvis den angitte filen

' . eller mappen eksisterer , falsk hvis ikke

' veinavn : Støtter Windows nettverksstasjoner eller UNC

' : Støtter Macintosh stier

' File bruk: Gi full filbane og utvidelse

' Folder bruk: Gi full mappen banen

' Godtar med /uten etterfølgende "\\ " ( Windows)

' Godtar med /uten etterfølgende ":" ( Macintosh)

Dim iTemp As Integer

' Ignorer feil å tillate feil evaluering

On Error Resume Next

iTemp = GetAttr ( BaneNavn )

' Sjekk om feilen eksisterer, og sett responsen hensiktsmessig
< p > Velg sak err.number

saken er = 0

FileOrDirExists = sant

sak Else

FileOrDirExists = False

End Velg

' Resume feilsjekking

On Error Goto 0

End Function

Sub TestItWithWindows ( )

' Macro Formål: Å teste de FileOrDirExists fungere med Windows

' Only inkludert for å demonstrere funksjonen. IKKE nødvendig for normal bruk

Dim Späth As String

' Endre katalogen her

Späth = "C : \\ test.xls "

' ! test om katalogen eller filen finnes
p Hvis FileOrDirExists ( Späth ) Så

MsgBox Späth & " eksisterer! "

Else

MsgBox Späth & " ikke eksistere "

End If

End Sub

Sub TestItWithMacintosh ( )

' Macro Formål: . å teste FileOrDirExists funksjon med en Macintosh

' bare tatt med for å vise funksjonen. IKKE nødvendig for normal bruk

Dim Späth As String

' Endre katalogen her

Späth = " HardDriveName : Dokumenter : test.doc " !

« Test om katalogen eller filen finnes
p Hvis FileOrDirExists ( Späth ) Så

MsgBox Späth & " eksisterer ! "

Else

MsgBox Späth &" gjør ikke eksisterer. "

End If

End Sub
2

Åpne Excel og trykk på " Alt- F11 "for å gå inn i Visual Basic Editor .


3

Klikk "Sett inn " og deretter " Module ".
4

Lim inn koden på den høyre ruten ved å trykke " Ctrl - " V. "

5

Endre " text.xls " til filnavnet du søker etter .
6

Trykk " F5 " for å kjøre prosedyren . prosedyren vil returnere en pop -up vindu som forteller deg om filen eksisterer.