打开路径和文件名存储在字符串变量中的工作簿

Question

Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim strPath As String
Dim strName As String
strPath = Environ("USERPROFILE") & "DesktopREQUIRED FILESART 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其他问题

Answer 1

替换最后一行Application.Workbooks strPath.strName.Open, vbNormalNoFocus

有了这个

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

有关可以通过工作簿传递的更多选项，请打开MSDN文档

此外，如果您有多个objFile.DateLastModified > varDate文件，会发生什么情况？现在您将打开循环中的最后一个