Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Problems with reading files
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 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 Thanks alot in advance |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Reading Multiple Files | Excel Worksheet Functions | |||
Mircosoft Web Outlook having problems reading my mail | Excel Discussion (Misc queries) | |||
Reading dbf files | Excel Discussion (Misc queries) | |||
reading data from text files in VBA | Excel Programming | |||
Reading all files in a folder | Excel Programming |