我使用workbooks.add（template）時的VBA代碼中斷

Question

我正在嘗試創建一個新的工作簿作為現有Excel文件的模板，並且遇到了一些困難。 一切正常，直到出現這種刺痛為止：

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

新的工作簿已創建，但是代碼中斷而沒有任何錯誤消息，並且VBE項目窗口被激活。 該模板是啟用宏的文件，並具有用戶窗體。 任何有關解決此問題的建議將不勝感激。

更新：

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).