Hallo,
ich habe folgende problemstellung und komme einfach nicht weiter: im intranet werden verschiedene berichte (im Format .xls) in einem ordner abgelegt. Ich benötige nun ein makro, welches aus excel heraus immer den aktuellsten bericht im intranet ordner öffnet. Mein makro - siehe anbei – funktioniert grundsätzlich auch, denn wenn ich bei stverz anstatt des intranetlinks ein laufwerk angebe läuft das makro problemlos durch. Wenn ich aber nun den intranetlink einbinde bekomme ich als fehlermeldung: laufzeitfehler 53 datei nicht gefunden.
Ich bitte um hilfe.
Sub AktuellsteDatei()
Dim Zeit As Date
Dim sttvp As String
Dim stverz As String
Dim datname, datname2 As String
sttyp = "*.xls"
datname = Dir(stverz & sttyp)
datname2 = datname
Zeit = FileDateTime(stverz & datname)
Do While datname <> ""
If Zeit < FileDateTime(stverz & datname) Then
Zeit = FileDateTime(stverz & datname)
datname2 = datname
End If
datname = Dir
Loop
MsgBox "aktuell = " & datname2
End Sub
|