Открыть книгу с путем и именем файла, хранящимся в строковых переменных? - PullRequest
0 голосов
/ 14 декабря 2018
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 Другой вопрос

1 Ответ

0 голосов
/ 14 декабря 2018

Замените последнюю строку Application.Workbooks strPath.strName.Open, vbNormalNoFocus

этой

Application.Workbooks.Open(strPath & "\" & strName)

Дополнительные параметры можно передать с помощью Workbook.Open, проверьте Документы MSDN

Что произойдет, если у вас будет более одного файла, для которого objFile.DateLastModified > varDate?Теперь вы откроете последний в цикле

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...