Visual Basic for Applications ( VBA ) är en delmängd av Visual Basic som används för att skräddarsy Microsoft Office-program för att passa dina behov . När du skriver till en fil i VBA , är det bra att se till att viss fil finns innan du försöker skriva till den . Om du vill hitta om en fil existerar i Excel , skapa en VBA -modul som gör susen . För att kunna använda denna funktion , bör du ha något tidigare erfarenhet av VB -programmering . Saker du behöver
Excel 2007 eller Excel 2010
Visa fler instruktioner
1
Kopiera följande kod :
Option Explicit
Funktion FileOrDirExists ( PathName As String ) As Boolean
" Macro Syfte : returnerar sant om den angivna filen
" . eller mappen finns , falskt om inte
" sökväg : Stödjer Windows mappade enheter eller UNC
' : stöder Macintosh banor
' filanvändningssvyn : Lämna fullständig sökväg och förlängning
" folder användning : Lämna fullständig sökväg
" Accepterar med /utan avslutande " \\ " ( Windows ) katalog
" Accepterar med /utan efterföljande " : " ( Macintosh ) katalog
Dim iTemp As Integer
" Ignorera fel att tillåta felutvärdering
On Error Resume Next
iTemp = GetAttr ( PathName ) katalog
" Kontrollera om felet finns och set respons lämpligt
Välj Case Err.Number Case
är = 0
FileOrDirExists = Sant
Case Else
FileOrDirExists = False
End Välj
" Resume felkontroll
On Error Goto 0
End Function
Sub TestItWithWindows ( ) katalog
" Macro Syfte : att testa de FileOrDirExists fungerar med Windows Review
" Endast ingår att demonstrera funktionen . Inte för normal användning
Dim SPATH As String
" Ändra din katalog här
Spath = " C : \\ test.xls "
' ! Testa om katalogen eller filen finns
p Om FileOrDirExists ( Späth ) Sen
MsgBox Spath & " finns! "
Else
MsgBox Spath & " inte existerar "
End If
End Sub
Sub TestItWithMacintosh ( ) katalog
" Macro Syfte : . för att testa FileOrDirExists funktion med en Macintosh
" ingår endast för att demonstrera funktionen . Inte för normal användning
Dim SPATH As String
" Ändra din katalog här
Spath = " HardDriveName : Dokument : test.doc " !
" Testa om katalogen eller filen finns
p Om FileOrDirExists ( Späth ) Sen
MsgBox Spath & " existerar ! "
Else
MsgBox Spath & " gör inte existerar . "
End If
End Sub
2
Öppna Excel och tryck på " Alt - F11 " för att gå in i Visual Basic Editor .
Billiga 3
Klicka på " Infoga " och klicka sedan på " modul . "
4
Klistra in koden i den högra rutan genom att trycka " Ctrl - " V. "
5
Change " text.xls " till filnamnet du söker efter .
6
Tryck " F5 " för att köra proceduren . proceduren för att återgå en pop - up fönster som talar om huruvida filen finns .
