OFFICE EXCEL 中为什么两次用SAVEAS 会出错？

Option Explicit
Sub save()

Dim path As String
Dim MainTitle As String 'have got "new item",po and rekey po and so on.
Dim EndChar As String
Dim VendorNum As String
Dim VendorName As String
Dim ItemNum As String
Dim ItemDesc As String
Dim FinalFileName As String
Dim fName

 

'first fill the follow of value.
MainTitle = "NEW ITEM"
EndChar = Format(Date, "MMDDYY")
VendorNum = Range("A1")
VendorName = ""
ItemNum = Range("B1")
ItemDesc = ""
FinalFileName = MainTitle & VendorName & "_" & VendorNum & "_" & ItemDesc & "_" & ItemNum & "_" & EndChar
path = ThisWorkbook.path & "/" & FinalFileName

'save file

On Error GoTo 123
ThisWorkbook.SaveAs (path)
Exit Sub
123:
fName = Application.GetSaveAsFilename
If fName = False Then Exit Sub
ThisWorkbook.SaveAs (fName) '两次作用会出错！没有解决！
End Sub