时间戳

首页 > 解决方案 > 打开存储在字符串变量中的路径和文件名的工作簿

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

问题描述

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其他问题

标签： excelvba

解决方案

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

有了这个

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

有关您可以通过 Workbook.Open 传递的更多选项，请查看MSDN 文档

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

推荐阅读