Excel宏以部分文件名打开文件

Question

我试过在各种论坛上寻找,似乎找不到符合我需求的解决方案.

我有一个文件"BABERs FORMULAS - 2017年1月24日 - 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