EXCEL的VBA编程。怎么办?
发布网友
发布时间：2022-04-23 05:22
共1个回答
热心网友
时间：2023-10-16 06:08
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即可
不知道你讲的空母文件啥意思，不论啥时候打开（OPEN）代码所执行的是一样
至于丢失前面的数据，不太明白你的意思，代码是引用了系统（System）的当前日期提取的年、月，应当跟你将的木有直接联系。已经加你了
白杨"
