SaveCase(beforeClose,noForm,askFillNext)
功能：保存当前正在填报的报表实例
参数：
beforeClose 固定赋值 False
noForm 布尔型，是否弹出保存窗口, True 不弹出对话框，False 弹出对话框。
askFillNext 布尔型，保存后是否询问填下一张， True 询问是否填写下一张， False 不询问是否填写下一张。应用场合：模板上vba程序调用
例程：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim oAdd As Object
Dim bResult As Boolean
'获取Excel服务器编程接口
Set oAdd = Application.COMAddIns("ESClient.Connect").Object
'如果光标跳转到C3单元格
If Target.Address = "$C$3" Then
'保存当前报表，不弹出保存对话框，但成功后询问是否填报下一张
bResult = oAdd.saveCase(, True, True)
If bResult = False Then
'若保存失败，提示
MsgBox "保存失败！"
Else
'保存成功，光标自动跳转到C2，等待输入下一张
Range("C2").Select
End If
End If
'释放对象
Set oAdd = Nothing
End Sub