Hallöchen,
ich versuche mich gerade an einer Function mit Boolean Datentyp aber irgendwie komme ich damit nicht weiter:
Ich will nur testen, ob die Datei schon vorhanden ist.
Damit wird die Function ausgelöst.
Hier die Fehlermeldung. Wenn ich ohne die boolesche Prüfung ran gehe
EDIT:
Ok hab es glaub ich so ganz ok gelöst. Falls es noch anders geht, bin ich dafür offen.
ich versuche mich gerade an einer Function mit Boolean Datentyp aber irgendwie komme ich damit nicht weiter:
Ich will nur testen, ob die Datei schon vorhanden ist.
Visual Basic-Quellcode
- Option Explicit
- Dim wb As Workbook
- Public Function GetFileExtension(FileFullName As String) As String
- GetFileExtension = VBA.Strings.Split(FileFullName, ".")(UBound(VBA.Strings.Split(FileFullName, ".")))
- End Function
- Public Function ExchangeFileExtension(ExchangeFile As String) As String
- ExchangeFileExtension = VBA.Strings.Replace(ExchangeFile, GetFileExtension(ExchangeFile), "pdf")
- End Function
- Public Function ExchangeFilePath(FileFullName As String) As String
- ExchangeFilePath = VBA.Strings.Replace(ExchangeFileExtension(FileFullName), "xls\", "")
- End Function
- Public Function VerifyIfFileIsExisting(FileFullName As String) As Boolean
- VerifyIfFileIsExisting(Dir(ExchangeFilePath(FileFullName))) = True
- End Function
Damit wird die Function ausgelöst.
Hier die Fehlermeldung. Wenn ich ohne die boolesche Prüfung ran gehe
If Dir(ExchangeFilePath(wb.FullName)) = "" Then MsgBox "nein"
dann klappt es.
---------------------------
Microsoft Visual Basic for Applications
---------------------------
Fehler beim Kompilieren:
Funktionsaufruf auf der linken Seite der Zuweisung muß den Typ Variant oder Object zurückgeben
---------------------------
OK Hilfe
---------------------------
EDIT:
Ok hab es glaub ich so ganz ok gelöst. Falls es noch anders geht, bin ich dafür offen.
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Sam85“ ()