? Excel 2010 kommt mit Visual Basic für Applikationen ( VBA) , die eine einfache Programmiersprache, die Sie verwenden, um Ihre Excel-Arbeitsblatt manipulieren kann. VBA können auch ein paar einfache Rechenaufgaben , wie das Öffnen oder Ändern einer angegebenen Datei . Wenn Ihr Excel VBA-Code muss mit Dateien arbeiten, kann es hilfreich sein, um festzustellen, ob eine Datei existiert, bevor der Code versucht, auszuführen. Sie können eine VBA-Funktion , um die Datei Existenz suchen, und rufen Sie dann die Funktion , wenn Sie nach einer Datei suchen müssen. Anleitung
1
Öffnen Sie eine neue Excel 2010 -Arbeitsblatt. Drücken Sie die " Alt" und " F11 ", um die Konsole zu öffnen VBA .
2
Rechts-Klick auf " Tabelle1 " auf der linken Seite der Konsole. Bewegen Sie die Maus über "Einfügen " auf dem Pop -up-Menü und wählen Sie "Module ". Doppelklicken Sie auf das Modul, das in der Liste der Elemente auf der linken Seite des Bildschirms angezeigt.
3
Klicken Sie auf den leeren Raum auf der rechten Seite des VBA -Konsole. Geben Sie den folgenden Code:
Funktion checkfile (Dateiname As String) As Boolean
checkfile = (Dir (Dateiname) <> "" )
End Function
Dadurch wird eine Funktion namens " checkfile ", die Sie aus anderen Abschnitten der VBA-Code aufrufen können. Die Funktion ist Boolean , wie es entweder zurückkehren wird ein Ja oder Nein beantworten , und es erfordert, dass Sie einen Dateinamen eingeben, wenn Sie die Funktion aufrufen . Die Funktion verwendet den Befehl "dir" , um die Datei in den Speicher zu bringen. Wenn die Datei nicht vorhanden ist, wird die Dir-Befehl eine leere Eintrag und " checkfile " falsch sein .
4
Taste "Enter ", um eine neue Zeile unterhalb der Funktion, die Sie gerade erstellt bekommen . Geben Sie den folgenden Code: Sub
FileTest ()
Wenn checkfile ( "c: \\ screenshot1.bmp ") Then
MsgBox " Yup "
Else
MsgBox " Nope "
End If End Sub
Dies ist nur ein einfaches Makro , die Ihren checkfile Funktion verwenden und geben eine " Yup " oder " Nein "-Nachricht , je nachdem, ob die Datei vorhanden ist oder nicht. Ändern Sie "C: \\ screenshot1.bmp " , was auch immer Datei, die Sie suchen. Klicken Sie auf die grüne Taste "Play" in VBA Befehl bar um das Makro auszuführen und überprüfen Sie die Datei Existenz.