Dateiname mit VBA auslesen

[Axel Richter]

Hallo,

Danke schonmal, aber wie stehts, wenn ich anstatt den dateinamen WORDDATEI.DAT nur WORDDATEI haben möchte?

Sub dateiname()
    Dim dateiname As String
    Dim docname As String
    dateiname = ActiveDocument.Name
    'Die letzten 4 Zeichen sind der Typ (.doc)
    docname = Left(dateiname, Len(dateiname) - 4)
    MsgBox (docname)
End Sub

Dann wirds schon schwieriger, ich versuche dies gerade mit einem Array, aber ich kann den Dokumentnamen nicht auf ein Array verteilen, geht irgendwie nicht

Ja, das Konzept hinter VisualBasic for Applications (VBA) ist etwas anders als hinter VBScript, Java und JavaScript. Eine Funktion wie
Split(Expression, Delimiter, Count, Compare)
gibt es zwar in VBScript, aber nicht in VBA, jedenfalls nicht bis Office 97. Es könnte sein, dass die neueren Office-Systeme das können. Einfach mal nach split in der Hilfe suchen.

viele Grüße

Axel