TA的每日心情 | 衰 2016-6-21 09:57 |
---|
签到天数: 33 天 [LV.5]常住居民I
|
发表于 2009-9-3 17:11:57
|
显示全部楼层
我帮你查到了,代码如下:
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 |
|