VBA Boolean Function

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von FormFollowsFunction.

    VBA Boolean Function

    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.

    Visual Basic-Quellcode

    1. Option Explicit
    2. Dim wb As Workbook
    3. Public Function GetFileExtension(FileFullName As String) As String
    4. GetFileExtension = VBA.Strings.Split(FileFullName, ".")(UBound(VBA.Strings.Split(FileFullName, ".")))
    5. End Function
    6. Public Function ExchangeFileExtension(ExchangeFile As String) As String
    7. ExchangeFileExtension = VBA.Strings.Replace(ExchangeFile, GetFileExtension(ExchangeFile), "pdf")
    8. End Function
    9. Public Function ExchangeFilePath(FileFullName As String) As String
    10. ExchangeFilePath = VBA.Strings.Replace(ExchangeFileExtension(FileFullName), "xls\", "")
    11. End Function
    12. Public Function VerifyIfFileIsExisting(FileFullName As String) As Boolean
    13. VerifyIfFileIsExisting(Dir(ExchangeFilePath(FileFullName))) = True
    14. End Function


    Damit wird die Function ausgelöst.

    Visual Basic-Quellcode

    1. Public Sub PartonDistributionFunctionFileSaveInIsoFolder()
    2. Set wb = ActiveWorkbook
    3. If VerifyIfFileIsExisting(wb.FullName) Then
    4. MsgBox ("Yes")
    5. Else
    6. MsgBox ("Nein")
    7. End If
    8. 'MsgBox ExchangeFilePath(wb.FullName)
    9. 'VerifyIfFileIsExisting (wb.FullName)
    10. End Sub


    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.

    Visual Basic-Quellcode

    1. Public Function VerifyIfFileIsExisting(FileFullName As String) As Boolean
    2. VerifyIfFileIsExisting = Dir(ExchangeFilePath(FileFullName)) <> ""
    3. End Function

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Sam85“ ()