Visual Basic for Applications (VBA) eine Teilmenge von Visual Basic , die maßgeschneiderte Microsoft Office-Programmen verwendet wird, um Ihre Bedürfnisse anzupassen ist . Beim Schreiben in eine Datei in VBA , ist es empfehlenswert, um sicherzustellen, dass bestimmte Datei , bevor Sie versuchen , es zu schreiben gibt. Wenn Sie finden, wenn eine Datei existiert in Excel wollen , bauen Sie ein VBA -Modul, das der Trick funktioniert . Um diese Funktion zu nutzen , sollten Sie einige vorherige Erfahrung mit VB -Programmierung. Things You
Excel 2007 oder Excel 2010
brauchen anzeigen Weitere Anweisungen
1

Kopieren Sie den folgenden Code: Option Explicit

< p > Funktion FileOrDirExists ( PathName As String) As Boolean

'Macro Zweck: Funktion liefert TRUE, wenn die angegebene Datei

' . oder Ordner vorhanden ist , false, wenn nicht

' PathName : Unterstützt Windows zugeordnete Laufwerke oder UNC

' : Unterstützt Macintosh Pfade

' File Nutzung: Geben Sie vollständige Pfad und Erweiterung

'Ordner Nutzung: Geben Sie den kompletten Verzeichnispfad

' akzeptiert ohne /mit nachlaufenden "\\" (Windows)

' akzeptiert ohne /mit nachlaufenden ":" (Macintosh)

Dim iTemp As Integer

" Fehler ignorieren , um Fehler Hotelbewertungen Hotels

On Error Resume Next erlauben

iTemp = GetAttr ( PathName )

' prüfen Sie, ob Fehler vorhanden ist und Satz Reaktion angemessen
< p > Select Case Err.Number

Fall = 0

FileOrDirExists = True

Case Else

FileOrDirExists = False

End Select

' Lebenslauf Fehlerprüfung

On Error Goto 0

End Function

Sub TestItWithWindows ()

' Macro Zweck: Um zu testen, die FileOrDirExists funktionieren unter Windows

' Nur enthalten , um die Funktion zu demonstrieren. Bei normaler Verwendung nicht erforderlich

Dim sPath As String

' Ändern Sie Ihr Verzeichnis hier

sPath = "C : \\ Test.xls "

'! Testen Sie, ob Verzeichnis oder Datei existiert

Wenn FileOrDirExists ( sPath ) Then MsgBox

sPath & " existiert! "

Else MsgBox

sPath & "nicht existieren "

End If End Sub

Sub TestItWithMacintosh ()

'Macro Zweck: . Um die FileOrDirExists Funktion mit einem Macintosh
testen

' Nur enthalten , um die Funktion zu demonstrieren. Bei normaler Verwendung nicht erforderlich

Dim sPath As String

' Ändern Sie Ihr Verzeichnis hier

sPath = " HardDriveName : Documents: Test.doc " !

'Test ob Verzeichnis oder Datei existiert

Wenn FileOrDirExists ( sPath ) Then MsgBox

sPath & " existiert! "

Else MsgBox

sPath & " funktioniert nicht vorhanden. "

End If End Sub

2

Excel öffnen und drücken Sie" Alt- F11 " Visual Basic-Editor zu betreten.

3

Klicken Sie auf " Einfügen" und klicken Sie dann auf "Module ".
4

Fügen Sie den Code in das rechte Fenster durch Drücken von " Strg - " V. "

5

Change " Text.xls " an den Dateinamen Sie .
6

Presse "F5" suchen , um die Prozedur auszuführen. das Verfahren zurückkehren wird ein Pop-up Fenster sagen Ihnen , ob die Datei vorhanden ist.