Error whil reading file
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 |
Error whil reading file
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 |
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 |
All times are GMT +1. The time now is 06:49 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com