P
Philipp Oberleitner
Hmm i wrote a makro that should search the newest .xls file in a directory
and open it. But it alway brings errors and no file gets opened. Can anyone
help me ?
Public ZMappe As String
Sub Aut
pen()
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
Thanks alot in advance
and open it. But it alway brings errors and no file gets opened. Can anyone
help me ?
Public ZMappe As String
Sub Aut
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
Thanks alot in advance