[已解决]求高手修改一段代码。感激。就一段而已

12783

有这样一个代码是用来进行导出EXCEL表格指定区域的内容，然后生成一个新的EXCEL文件
我希望导出新的EXCEL文件的名字前面有当前时间的。例如
2012年1月5日17:27:30
这样可以避免导出来的文件因为文件名一样而被意外覆盖掉。

其他的代码都可以运用
以下是生成新文件名的代码，请优化一下。感激。
其他的我就不上传了，因为都OK了。感激。

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "导出全部绩效.xls",

最佳答案

月排行榜 / 总排行榜

菜鸟锐

2012-1-5 17:29

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Format(Now(), "yyyy" & "年" & "mm" & "月" & "dd" & "日" & "h" & "时" & "mm" & "分" & "ss" & "秒") & "导出全部绩效.xls",

红色的为生成当前时间&导出全部绩效.xls

生成效果为
2012年1月5日17时35分XX秒导出全部绩效.xls

比较长，不知道是不是这样。

跳转到最佳答案楼层

菜鸟锐

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Format(Now(), "yyyy" & "年" & "mm" & "月" & "dd" & "日" & "h" & "时" & "mm" & "分" & "ss" & "秒") & "导出全部绩效.xls",

红色的为生成当前时间&导出全部绩效.xls

生成效果为
2012年1月5日17时35分XX秒导出全部绩效.xls

比较长，不知道是不是这样。