Error whil reading file
Hmm
dont understand why it brings error
"Tom Ogilvy" schrieb im Newsbeitrag
...
Code worked OK for me.
--
Regards,
Tom Ogilvy
"Philipp Oberleitner" wrote in message
...
I try to get the newest .xls file in a directory. Anyone sees why me
method
brings up an error and doesnt find the files ? There are files in the
ginven
directory.
Public ZMappe As String
Sub Auto_Open()
Dim Dat As Date
Dim DatVgl As Date
Dim Mappe As String
Const s = _
"F:\Siemens"
Mappe = Dir(s & "\*.xls")
Dat = FileDateTime(s & "\" & Mappe)
Do Until Mappe = ""
DatVgl = FileDateTime(s & "\" & Mappe)
If DatVgl Dat Then
Dat = DatVgl
ZMappe = s & "\" & Mappe
End If
Mappe = Dir()
Loop
Workbooks.Open Filename:=ZMappe
End Sub
|