表格保存时文件名后面自动加上修改时间_欢乐小爪

个人资料

微博

正文字体大小：大中小

表格保存时文件名后面自动加上修改时间

(2012-12-13 11:05:52)

标签：

分类： excel-vba

k = Trim(Now())

n = Left(ActiveWorkbook.Name, InStr(1, ActiveWorkbook.Name, ".") - 2)

If Len(n) > 16 Then n = Left(n, Len(n) - 16)

n = Application.Substitute(Trim(n & k), ":", "")

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & n & ".xls"

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report