EXCEL的VBA编程

发布网友发布时间：2022-04-23 05:22

共4个回答

热心网友时间：2023-10-12 22:40

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.OnTime Now + TimeValue("00:10:00"), "bc"
End Sub
以上代码复制到sheet代码区
Public Sub bc()
m = ActiveWorkbook.Path
i = Year(Now) & "年" & Month(Now) & "月"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=m & "\" & i & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
以上代码放到模块里面
以上方法使用了另存法，没10分钟另存一次按照当前年月命名，直接覆盖原来文件，当前月份变动时候就没有可以覆盖的文件了，直接另存，循环操作的
我用的是2007 如果是03版本的话将文件后缀改为.xls即可

不知道你讲的空母文件什么意思，不论什么时候打开代码所执行的是一样
至于丢失前面的数据，不太明白你的意思，代码是引用了系统的当前日期提取的年、月，应该跟你将的没有直接联系。已经加你了白杨

热心网友时间：2023-10-12 22:40

哈哈，这个要求不错，我来研究一下。

热心网友时间：2023-10-12 22:41

简单啊，计时代码加自动存档，回头看看如何改代码

热心网友时间：2023-10-12 22:41

来晚了