Finne ut om en fil eksisterer i Excel VBA

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.

Bruksanvisning

1 Kopier følgende kode:

Option Explicit

Funksjon FileOrDirExists (banenavn As String) As Boolean

'Macro Purpose: Function returns TRUE if the specified file

'Eller mappen finnes, usann hvis ikke.

'Banenavn: Støtter Windows tilordnede stasjoner eller UNC

': Støtter Macintosh stier

'Billed: Gi fullstendig filbane og utvidelse

'Mappe bruk: Gi hele mappebanen

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

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

Dim iTemp As Integer

'Ignorer feil å tillate feilvurdering

På Error Resume Next

iTemp = GetAttr (Banenavn)

"Kontroller om det finnes feil og satt respons på riktig måte

Velg Sak err.number

Saken er = 0

FileOrDirExists = True

sak Else

FileOrDirExists = False

End Select

«Fortsett feilsjekking

On Error Goto 0

End Function

Sub TestItWithWindows ()

'Macro Purpose: To test the FileOrDirExists function with Windows

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

Dim Späth As String

"Endre katalogen her

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

«Test om katalog eller fil finnes

Hvis FileOrDirExists (Späth) og deretter

MsgBox Späth og "eksisterer!"

Ellers

MsgBox Späth & "finnes ikke."

Slutt om

End Sub

Sub TestItWithMacintosh ()

'Macro Purpose: To test the FileOrDirExists function with a 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 katalog eller fil finnes

Hvis FileOrDirExists (Späth) og deretter

MsgBox Späth og "eksisterer!"

Ellers

MsgBox Späth & "finnes ikke."

Slutt om

End Sub

2 Åpne Excel og trykk "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.