excel的名称后面自动加保存的时间

wahahazxx · 发表于 2017-8-17 10:11

请大神帮忙看看附件的宏语句，我想实现：
1、保存时另存为新文件，而不是覆盖原文件。
2、日期显示年月日小时分

不懂这些，求帮忙，谢谢！

hjxlj · 发表于 2017-8-19 17:34

楼主的意思是，对每个Excel文件都重新按日期时间为文件名进行保存一次？是不是这么个意思？

四季豆团队 · 发表于 2017-8-25 20:06

提示: 作者被禁止或删除内容自动屏蔽

落月问晓 · 发表于 2017-8-28 08:43

用SAVEASCOPY保存，日期可以用format函数转换成yyyymmddhhmmss的格式即可

岔路ko · 发表于 2017-8-30 08:20

本帖最后由岔路ko 于 2017-8-30 08:26 编辑

Dim Datanum As String
Datanum = " " & Format(Date, "m月d日") & " " & Format(Time, "hh时mm分ss秒")
ActiveWorkbook.SaveAs FileName:="D:\桌面\汇总" & Datanum & ".xls", FileFormat:=xlExcel8

可以实现如果看不懂可以回帖

天目怒刀 · 发表于 2018-1-14 10:47

学习了，顶一下，谢谢

		自动登录	找回密码
密码			免费注册

四季豆团队四季豆团队当前离线性别保密 UID 3841419 阅读权限 0 注册时间 2017-8-24 在线时间小时最后登录 1970-1-1 积分 21 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2017-8-25 20:06 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报