如何实现代码自动保存?
您需要把以下代码放置在一个Timer的事件中.Timer的Interval 时间为自动保存的时间间隔.
On Error GoTo errH
If MVBI.ActiveVBProject.Saved = False Then
'当新建了一个 工程后,没有保存到文件中. 此时调用自动保存后会出现一个保存对话框.如果用户在自动保存时间间隔依然没有保存,那么会使得再次调用自动保存时又出现一个保存对话框.为此.程序将判断.如果吵过100次保存间隔依然没有保存.那么再次跳出一个保存对话框.
If MVBI.ActiveVBProject.FileName = "" Then
Static nx As Long
nx = nx + 1
If nx > 100 Then nx = 0
If nx >= 2 Then Exit Sub
Else
nx = 0
End If
'注意:再文件菜单中,保存的ID号码是3.
MVBI.CommandBars("File").FindControl(ID:=3).Execute
If MVBI.ActiveVBProject.FileName = "" Then
WriteLine "请您尽快为[" + MVBI.ActiveVBProject.Name + "]选择保存位置!" + vbNewLine & Now
Else
WriteLine "您的工程[" + MVBI.ActiveVBProject.Name + "]现在已经保存!" + vbNewLine & Now
End If
End If
errH:
Debug.Print err.Description