| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 796 人关注过本帖
标题:保存文件名为原文件加更新日期 vba代码
只看楼主 加入收藏
a56q
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2021-11-6
结帖率:0
收藏
已结贴  问题点数:20 回复次数:2 
保存文件名为原文件加更新日期 vba代码


Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    Dim s$
    w = "abc " & Month(Now) & "月" & Day(Now) & "日" & ".xls"
    With Me
        s = .ActiveSheet.[b2] & w
        If s <> .Name Then
            .SaveCopyAs .Path & "\" & s
            .ChangeFileAccess xlReadOnly
            Kill .FullName
        Else
            .Save
        End If
    End With
End Sub

我想在原文件修改之后选择保存时,文件名自动更改为原文件名加最后一次修改日期,如果原文件未修改,那么退出时正常提示是否保存
这个怎么改,求教大神,感谢
搜索更多相关主题的帖子: End 日期 文件名 文件 修改 
2021-11-06 15:42
约定的童话
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:56
帖 子:246
专家分:1442
注 册:2021-8-1
收藏
得分:10 
定义一个一维数组,取出所有工作表名称到里面,然后复制保存出来,最后删除自身。
dim ar(),sht as worksheet
for each sht in sheets
   i=i+1
   redim preserve ar(1 to i)
   ar(i)=sht.name
next
sheets(ar).copy
activeworkbook.close true,路径+文件名+时间+属性
kill .....
2021-11-07 07:49
独木星空
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:河北省曲阳县
等 级:版主
威 望:71
帖 子:935
专家分:683
注 册:2016-6-29
收藏
得分:10 
回复 楼主 a56q
约定的童话版主已经给出答案。为什么提了问题就不露面了?

素数问题的解决是我学习编程永恒的动力。
2021-11-13 07:24
快速回复:保存文件名为原文件加更新日期 vba代码
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024597 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved