Does Workbook Exist?
08.11.2019 10:59:04
Klaus
ich habe eine function namens "WkbExists", die prüft ob es eine Datei gibt und WAHR/FALSCH zurück gibt. Diese Funktion nutze ich seit über 10 Jahren durch verschiedene Excelversionen.
Neuer Job, neue Firma, neue Excelversion! Jetzt ist es "Office Professional Plus 2016". Meine Makrosammlung habe ich natürlich in den neuen Job mitgenommen - aber mein "WkbExists" funktioniert nicht mehr.
Ich habe auch fix eine alternative gegoogelt, die Version "FileExists" funktioniert. Aus akademischem Interesse: Kann mir jemand sagen woran es liegt?
LG,
Klaus M.
Option Explicit
Sub TestMe()
Debug.Print FileExists("H:\Herber\Export D.xlsx")
Debug.Print WkbExists("H:\Herber\Export D.xlsx")
End Sub
Private Function FileExists(filepath As String) As Boolean
Dim TestStr As String
TestStr = ""
On Error Resume Next
TestStr = Dir(filepath)
On Error GoTo 0
If TestStr = "" Then
FileExists = False
Else
FileExists = True
End If
End Function
Private Function WkbExists(sFile As String) As Boolean
Dim wkb As Object
On Error Resume Next
Set wkb = Workbooks(sFile)
If Not wkb Is Nothing Then
WkbExists = True
End If
On Error GoTo 0
End Function