Excelmacros以部分文件名打开文件

我曾尝试在各种论坛上寻找，似乎无法find一个适合我的需求的解决scheme。

我有一个文件“BABERs FORMULAS – 2017年1月24日 – Rev 079 11-27.xlsm”。 我使用一个macros来保存对文件的更改，这些文件将date，版本号和时间戳添加到文件名中。 该文件位于以下path“D：\ FORMULAS”。

我有的macros如下，但是这给了我一个运行时错误'1004'，并说检查文件名的拼写和validation的位置是正确的。

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