Visual Basic for Applications ( VBA ) er en delmængde af Visual Basic, der bruges til at skræddersy Microsoft Office-programmer , der passer til dine behov. Når du skriver til en fil i VBA , er det god praksis at sørge for, at bestemt fil eksisterer , før du forsøger at skrive til den. Hvis du ønsker at finde, hvis en fil eksisterer i Excel , opbygge et VBA -modul, der gør det trick . For at bruge denne funktion , skal du have nogle forudgående erfaring med VB programmering. Ting du skal
Excel 2007 eller Excel 2010
Vis Flere Instruktioner
1

Kopier følgende kode : Hej

Option Explicit
< p > Funktion FileOrDirExists ( stiNavn As String ) As Boolean

'Makro Formål: Funktion returnerer SAND, hvis den angivne fil

' . eller mappe findes , falsk, hvis ikke

' stinavn : understøtter Windows tilknyttede drev eller UNC

«: Understøtter Macintosh stier

' Filanvendelse : Give fuld sti og extension

' folder brug: Give fuld mappesti < br >

' accepterer med /uden efterfølgende "\\ " ( Windows)

' accepterer med /uden efterfølgende ":" (Macintosh)

Dim iTemp As Integer

' Ignorér fejl at give mulighed for fejl evaluering

On Error Resume Next

iTemp = GetAttr ( StiNavn )

' Tjek om fejlen findes og sæt respons passende
< p > Vælg Case Err.Number

Case is = 0

FileOrDirExists = Sand

Case Else

FileOrDirExists = False

End Vælg

' Genoptag fejlkontrol

fejl Goto 0

End Function

Sub TestItWithWindows ()

' Makro Formål : At afprøve de FileOrDirExists fungerer med Windows

' Kun medtaget for at demonstrere funktionen. IKKE påkrævet ved normal brug

Dim Späth As String

' Skift din mappe her

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

'! test om mappe eller fil findes
p Hvis FileOrDirExists ( Späth ) Så

MsgBox Späth & " eksisterer! "

Else

MsgBox Späth & " ikke eksisterer "

End If

End Sub

Sub TestItWithMacintosh ()

'Makro Formål: . at teste FileOrDirExists funktion med en Macintosh

»Kun medtaget for at demonstrere funktionen. IKKE påkrævet ved normal brug

Dim Späth As String

' Skift din mappe her

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

'Test , hvis mappe eller fil findes
p Hvis FileOrDirExists ( Späth ) Så

MsgBox Späth & " eksisterer! "

Else

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

End If

End Sub
2

Open Excel og trykke på" Alt- F11 "for at indtaste Visual Basic Editor.
< br >
3

Klik på " Indsæt " og derefter på " Modul ".
4

Indsæt koden i den højre rude ved at trykke "Ctrl - " V. " < br >
5

Change " text.xls " til det filnavn, du søger efter.
6

Tryk på " F5 " for at køre proceduren. proceduren vil returnere en pop- up vindue, der fortæller dig, om filen eksisterer.