Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error whil reading file
Could it be that the first time through it found the newest--and you didn't keep
track of that first filename? Option Explicit Sub Auto_Open() Dim Dat As Date Dim DatVgl As Date Dim Mappe As String Dim ZMappe As String '<-- added Const s = _ "c:\temp" Mappe = Dir(s & "\*.xls") Dat = FileDateTime(s & "\" & Mappe) ZMappe = s & "\" & Mappe '<-- added 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 Philipp Oberleitner wrote: 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 -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
reading from another file and pasting to current file, "combobox" | New Users to Excel | |||
Reading a text file ? | Excel Worksheet Functions | |||
Reading a text file | Excel Discussion (Misc queries) | |||
Reading from ini file | Excel Programming | |||
Reading from file | Excel Programming |