laatst gewijzigd openen

[frank_koreman]

hallo,

ik heb in een bestand een afsluit macro waarbij automatisch opgeslagen wordt met als naam de datum en tijd. dit ziet er als volgt uit:
20060605-223833
jjjjmmdd-uummss

nu zou ik ook graag een macro willen die het bestand opend dat het laatst is aangemaakt.
is dit mogelijk en weet iemand hoe het moet?

bij voorbaat dank,

frank

 

[jheesterbeek]

Hier staat een voorbeeldje van hoe je de datum kunt ophalen
http://exceltips.vitalnews.com/Pages/T0366_Displaying_the_'Last_Modified'_Date.html
Door van alle files in een map deze eigenschap op te halen en te bepalen wat de hoogste datum heeft kun je het gewenste bestand eruit filteren.
Hieronder een voorbeeldje van hoe je de files in een map kunt aflopen:

Sub FilesInEenMapNalopen()
Dim strPath As String
Dim lFile As Long
Dim wkb As Workbook
Dim Source As String

Application.ScreenUpdating = False
'zoek de juiste map op
With Application.FileDialog(msoFileDialogFolderPicker)
    .InitialFileName = Application.DefaultFilePath & "\"
    .Title = "Selecteer een folder"
    .Show
    If .SelectedItems.Count = 0 Then
        MsgBox ("Ophalen download-bestand gecanceled")
    Else
        strPath = .SelectedItems(1)
    End If
End With

With Application.FileSearch
  .NewSearch
  .LookIn = strPath
  .SearchSubFolders = False 
  .MatchTextExactly = False
  .FileType = msoFileTypeExcelWorkbooks
If .Execute() < 1 Then
  MsgBox "There were no files found."
  Exit Sub
End If

For lFile = 1 To .FoundFiles.Count
  Set wkb = Workbooks.Open(Filename:=.FoundFiles(lFile), _
  UpdateLinks:=False, ReadOnly:=True, _
  IgnoreReadOnlyRecommended:=True)
'   doe hier iets (een andere macro)
  wkb.Close (False)
Next lFile
End With
Set wkb = Nothing
End Sub

 

[frank_koreman]

hartelijk dank voor het uitzoeken.

het werkt!