Question

易语言保存excel的时候回弹窗，怎么设置成自动保存





Answer 1

这个查下Vba应该很容易实现的，我这会使用手机上网，不好给你找
-------我找到一段代码------
//定义一个自动保存时间、是否关闭（成员变量）
Dim theSaveTime As Date, theCloseYes As Boolean
Private Sub Workbook_Open()//文件打开后计算时间
theSaveTime = Now + TimeValue("00:05:00")
Application.OnTime theSaveTime, "ThisWorkbook.SaveMe"//查不了，但意思应该是excel运行时间到达这个时间后调用自动保存函数
End Sub
Private Sub SaveMe()//保存函数（主要方法）
If Not Me.Saved Then Me.Save '若存在更新内容，则保存
theSaveTime = Now + TimeValue("00:05:00")
Application.OnTime theSaveTime, "ThisWorkbook.SaveMe", , True
End Sub
//判断关闭后结束自动保存
Private Sub Workbook_BeforeClose(Cancel As Boolean)
theCloseYes = True
On Error Resume Next
Application.OnTime theSaveTime, "ThisWorkbook.SaveMe", , False
On Error GoTo 0
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
Application.OnTime theSaveTime, "ThisWorkbook.SaveMe", , False
On Error GoTo 0
theSaveTime = Now + TimeValue("00:05:00")
Application.OnTime theSaveTime, "ThisWorkbook.SaveMe"
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) '防止关闭事件未真正关闭
If theCloseYes Then
theCloseYes = False
theSaveTime = Now + TimeValue("00:05:00")
Application.OnTime theSaveTime, "ThisWorkbook.SaveMe", , True
End If
End Sub
------------
如果你能看懂vba 或者vb 或Vb.net这段代码你应该都能看懂、代码是我复制的但注释是我手打的（注释格式不对，如果在其他环境运行请注意）
纯手打如果有帮助请采纳！

Answer 2

.版本 2
.支持库 eExcel2000
Excel工作簿1.取工作簿对象 ().方法 (“Save”, )
Excel工作簿1.关闭 ()
Excel工作簿1.释放 ()
这样可以，Microsoft office2019测试没有问题
给后人搜索到这个问题的人参考一下