自动生成保存excel文件名称VBAmacros？

自动生成的Excel文件名称VBAmacros？ 大家好，我想在macros中自动生成excel文件名我的代码在这里下面

Sub Sheet_SaveAs() Dim wb As Workbook Sheets("Sheet1").Copy Set wb = ActiveWorkbook With wb .SaveAs ThisWorkbook.Path & "\autogenrate.xlsx" '.Close False End With End Sub 

我的代码工作正常，但是当我保存下一次然后问你要replace它，但我想自动生成名称

Answer 1

最简单的解决方法是每次更改为唯一的名称。 最简单的方法是使用date时间string

 Sub Sheet_SaveAs() Dim wb As Workbook Sheets("Sheet1").Copy Set wb = ActiveWorkbook With wb .SaveAs ThisWorkbook.Path & "\" & _ Format(Now, "yyyymmdd") & _ Replace(Format(Now, "Long Time"), ":", "") & _ ".xlsx" .Close False End With End Sub 

date和领带部分是分开的，允许你使用秒，因此你的限制是每秒节省1次。 如果你需要更频繁的保存，你将不得不包含一个毫秒计数器。 这种方法的好处在于它可以在文件夹中按顺序保存备份。

你可以阅读更多关于格式化date等在这里 – https://msdn.microsoft.com/en-us/library/office/gg251755.aspx