Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim strPath As String
Dim strName As String
strPath = Environ("USERPROFILE") & "\Desktop\REQUIRED FILES\ART REPORT"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPath)
For Each objFile In objFolder.Files
If objFile.DateLastModified > varDate Then
strName = objFile.Name
End If
Next
Application.Workbooks strPath.strName.Open, vbNormalNoFocus
Приведенный выше код проверяет папку (strPath) на наличие последнего сохраненного файла, сохраняет имя файла в strName и затем открывает эту книгу.
Я не могу понять, как я должен ссылаться на указанный файл, используя переменные.
Любая помощь будет высоко ценится.Спасибо
РЕДАКТИРОВАТЬ: Ссылка на ответы в следующей ссылке не решила мою проблему.Я получаю сообщение об ошибке 1004 Другой вопрос