Microsoft Office Forums - View Single Post

JohnWilson · 07-09-2014, 01:40 AM

Are you a coder?

This will be tricky and really is probably beyond the help that can be offered here.

You can use the FileScriptingObject to deduce the newest file

Code:

Sub GetMostRecentFile()
Dim objFSO As Object
Dim objFile As Object
Dim objFldr As Object
Dim strFilename As String
Dim lastDate As Date
Dim myDir As String
myDir = ActivePresentation.Path & "\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFldr = objFSO.GetFolder(myDir)
lastDate = DateSerial(1900, 1, 1)
For Each objFile In objFldr.Files
    If objFile.Name Like "*.xls*" Then
        If objFile.DateLastModified > lastDate Then
            lastDate = objFile.DateLastModified
            strFilename = objFile.Name
        End If
    End If
Next objFile
MsgBox strFilename
End Sub

To make the code run at about 15.30 you would probably need to trap the last slide event and check the value for NOW and compare with 15.30
You would probably have to create an instance of Excel , open the relevant file with no window (invisible) and copy and paste the table into PowerPoint. (Not even sure this is possible invisibly)

This is not going to be simple if you are not a reasonable coder!