1.首先，保存壹個文件名，例如strname = this workbook . path &；“\“& amp；“文件& amp“&；“-”& amp；我& amp".xlsx“
2.然後使用:如果Dir（strName）=““那麽滿足條件，表示這個文件名可以使用，然後保存它。如果條件不滿足，則文件名存在，並重新生成壹個新文件名。
另壹種方法是用時間代替後面的I，如201403211115348。年、月、日、時、秒肯定不會重復，呵呵。