Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Open Text based on creation date
Is there a way to open a text file based on the date it was created.
When I run my macro I want it to open the most recent text file in a specific folder. currently I'm opening my text through a user command pop-up window. Thanks UF = Application.GetOpenFilename(FileFilter:=".TXT Files(*.txt),*.txt", Title:="Satlog Measured") Workbooks.Open Filename:=UF, Format:=2 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Open Text based on creation date
On Aug 1, 11:50 am, wrote:
Is there a way to open a text file based on the date it was created. When I run my macro I want it to open the most recent text file in a specific folder. currently I'm opening my text through a user command pop-up window. Thanks UF = Application.GetOpenFilename(FileFilter:=".TXT Files(*.txt),*.txt", Title:="Satlog Measured") Workbooks.Open Filename:=UF, Format:=2 Can anyone help? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Open Text based on creation date
This will give you the path and file name to the most recently modified txt
file in "C:\Test" ____________________________________________ Sub FindNewestTextFile() strFolderPath = "C:\Test" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strFolderPath) dtmLatestDate = 0 Set colFiles = objFolder.Files For Each objFile In colFiles If objFSO.GetExtensionName(objFile) = "txt" Then If objFile.DateLastModified dtmLatestDate Then dtmLatestDate = objFile.DateLastModified strLatestFile = objFile.Path End If End If Next objFile If Not dtmLatestDate = 0 Then MsgBox strLatestFile End If Set objFolder = Nothing Set objFSO = Nothing End Sub __________________________________________________ Steve Yandl wrote in message oups.com... On Aug 1, 11:50 am, wrote: Is there a way to open a text file based on the date it was created. When I run my macro I want it to open the most recent text file in a specific folder. currently I'm opening my text through a user command pop-up window. Thanks UF = Application.GetOpenFilename(FileFilter:=".TXT Files(*.txt),*.txt", Title:="Satlog Measured") Workbooks.Open Filename:=UF, Format:=2 Can anyone help? |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Open Text based on creation date
On Aug 1, 3:19 pm, "Steve Yandl" wrote:
This will give you the path and file name to the most recently modified txt file in "C:\Test" ____________________________________________ Sub FindNewestTextFile() strFolderPath = "C:\Test" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strFolderPath) dtmLatestDate = 0 Set colFiles = objFolder.Files For Each objFile In colFiles If objFSO.GetExtensionName(objFile) = "txt" Then If objFile.DateLastModified dtmLatestDate Then dtmLatestDate = objFile.DateLastModified strLatestFile = objFile.Path End If End If Next objFile If Not dtmLatestDate = 0 Then MsgBox strLatestFile End If Set objFolder = Nothing Set objFSO = Nothing End Sub __________________________________________________ Steve wrote in message oups.com... On Aug 1, 11:50 am, wrote: Is there a way to open a text file based on the date it was created. When I run my macro I want it to open the most recent text file in a specific folder. currently I'm opening my text through a user command pop-up window. Thanks UF = Application.GetOpenFilename(FileFilter:=".TXT Files(*.txt),*.txt", Title:="Satlog Measured") Workbooks.Open Filename:=UF, Format:=2 Can anyone help?- Hide quoted text - - Show quoted text - What is all of the Dims I tried making most of them as objects but they wont work still |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Open Text based on creation date
Carlos,
If you first go to 'Tools References' and set a reference to 'Microsoft Scripting Runtime', you can dim objFSO as "Scripting.FileSystemObject" and the folder as "Scripting.Folder". You can also get away with just what I gave you but change the string at the top to the folder you're actually wanting to check and rather than generating a message box you would want to feed the file name string to whatever code you have in your VBA subroutine. Steve |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How can I get date of file creation to XLS cell in date format? | Excel Worksheet Functions | |||
Open - Output txt file creation | Excel Programming | |||
Open text file based on date. | Excel Programming | |||
Insert text based on date | Excel Discussion (Misc queries) | |||
Open file based on yesterday's date | Excel Programming |