vba - 使用部分文件名打开文件的 Excel 宏

Question

我已经尝试在各种论坛上寻找，但似乎找不到适合我需要的解决方案。

我有一个文件“BABERs FORMULAS - 24 Jan 2017 - Rev 079 11-27.xlsm”。我使用一个宏来保存对文件的更改，该文件将日期、修订号和时间戳添加到文件名中。该文件位于以下路径“D:\FORMULAS”。

我的宏如下所示，但这会给我一个运行时错误“1004”，并要求检查文件名的拼写并验证位置是否正确。

Dim fname as Variant
fname = Dir("D:\FORMULAS\BABERs FORMULAS*")

If fname <> "" then
    Workbooks.open (fname)
End If

我有什么地方可能出错的想法吗？如有任何帮助，我们将不胜感激。

Answer 1

尝试类似下面的代码:

Dim fname As Variant
Dim myPath As String

myPath = "D:\FORMULAS\"
fname = Dir(myPath & "BABERs FORMULAS*")

If fname <> "" Then
    Workbooks.Open (myPath & fname)
End If