Обратиться к книге которая выгружена из базы и не сохранена

Sub GetLastDownloadedFileName()
    Dim folderPath As String
    Dim fileNames() As String
    Dim lastFileName As String
    Dim lastFileDate As Date
 
    'путь к папке загрузки
    folderPath = "C:\Downloads"
 
    'получение списка файлов в папке
    fileNames = GetFolderFiles(folderPath)
 
    'поиск последнего файла в списке
    For i = UBound(fileNames) To 1 Step -1
        If LCase(fileNames(i)) Like "*.*" Then
            'получение даты создания файла
            Set fso = CreateObject("Scripting.FileSystemObject")
            Set file = fso.GetFile(folderPath & "\" & fileNames(i))
            fileDate = file.DateCreated
 
            'сравнение даты создания с последним файлом
            If fileDate > lastFileDate Then
                lastFileDate = fileDate
                lastFileName = fileNames(i)
            End If
        End If
    Next i
 
    'вывод имени последнего файла
    MsgBox "Последний скачанный файл: " & lastFileName
End Sub
 
Function GetFolderFiles(folderPath As String) As String()
    Dim fso As Object
    Dim folder As Object
    Dim fileNames() As String
    Dim i As Long
 
    'создание объекта FileSystemObject
    Set fso = CreateObject("Scripting.FileSystemObject")
 
    'получение объекта папки
    Set folder = fso.GetFolder(folderPath)
 
    'получение списка файлов в папке
    For Each file In folder.Files
        ReDim Preserve fileNames(i) As String
        fileNames(i) = file.Name
        i = i + 1
    Next file
 
    GetFolderFiles = fileNames
End Function