我使用workbooks.add（模板）时VBA代码中断

Question

我尝试创建一个新工作簿作为现有Excel文件的模板，并遇到一些困难。一切都好，直到这个刺痛：

Set wkb = Workbooks.Add(Path & FileName)
'do next stuff

新工作簿创建，但代码中断没有任何错误消息，VBE项目窗口激活。该模板是一个宏启用文件，具有userform。任何有关如何解决问题的建议都会非常感激。

更新

Path = ThisWorkbook.Path & "\"
StrFile = Dir(Path & "*2014*")
Do While Len(StrFile) > 0
    NewFile = StrFile
    StrFile = Dir
    i = i + 1
Loop
Set wkb = Workbooks.Add(Path & NewFile)
wkb.SaveAs Filename:=Path & "0" & i + 1 & "=" & Format(Dateserial(2014,i +1,1), "mmmm") & "=2014.xlsm"

Answer 1

尝试

Set wbk = Workbooks.Add
wbk.Name = Filename
wbk.Save...... (put filepath etc etc here).