UDF für LastUser unter Office2010
eres
mit folgender UDF aus dem Forum konnte ich für Excel-Dateien bis Excel2003 den letzten User auslesen:
Function LastUser(strFileName As String) As String
Dim strText As String
Dim strFlag1 As String, strFlag2 As String
Dim i As Integer, j As Integer
strFlag1 = Chr(0)
strFlag2 = Chr(32) & Chr(32)
Open strFileName For Binary As #1
strText = Space(LOF(1))
Get 1, , strText
Close #1
j = InStr(1, strText, strFlag2)
i = InStrRev(strText, strFlag1, j) + Len(strFlag1)
LastUser = Mid(strText, i, j - i)
End Function
Kennt jemand eine Alternative für Excel-Dateien ab Version 2007 ?Vielen Dank für jede Hilfe im voraus.
Gruß
eres