EXCEL服务器保存数据的问题

xyltk1973

在EXCEL服务器模板中用VBA设计的保存按钮，保存后出现下图：


请问是什么原因？谢谢！

aoc

我在模版中使用了 饼图 ，保存时也出现这个错误，但不管它也可以使用（当然WEB上是看不到饼图的）。

xyltk1973

回复楼上：
谢谢！关键是出现上述错误后，设置的“是否自动填写下一张的提示”就不会显示出来

chhcao

VBA代码检查一下看看，

dngzdly

VBA 输写有误，请检查，调试。

xyltk1973

回复楼上：

谢谢！
VBA代码应该没有问题，仅一条保存指令：
ActiveWorkbook.Save

苹果1

原帖由 xyltk1973 于 2009-9-3 17:04 发表
回复楼上：

谢谢！
VBA代码应该没有问题，仅一条保存指令：
ActiveWorkbook.Save

我记得在EXCEL服务器里面引用“保存”的命令好像不是这个，楼主再仔细看下帮助

苹果1

我帮你查到了，代码如下：
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

xyltk1973

原帖由 苹果1 于 2009-9-3 17:11 发表
我帮你查到了，代码如下：
SaveCase(beforeClose,noForm,askFillNext)

　

功能：保存当前正在填报的报表实例

参数：

       beforeClose              固定赋值 False

       noForm                ...

谢谢你的帮助！

我上面用的是EXCEL的vba
同时我还用EXCEL 服务器的函数代码如下：
Dim oAdd As Object
Dim bResult As Boolean
Set oAdd = Application.COMAddIns("ESClient.Connect").Object
bResult = oAdd.saveCase(, True, True)
Range("D7").Select
Set oAdd = Nothing

结果是一样的。

guang_163

学习了 ，前辈很多呀