表单统计该怎么做？
有如下简单需求：现在发送excel表格要下属各单位填写并通过邮件反馈回来，再进行汇总统计，汇总统计的时候太麻烦，要一个一个打开表格，并复制粘贴，下属机构多的时候很麻烦，能不能实现在web页面设计表单，由分支机构直接在上面填写。请问该用什么软件，如何实现？ --------------------编程问答-------------------- 100大分啊，没人来回答下么？ --------------------编程问答-------------------- 你自己定义Excel表格的数据列及格式，然后发送这个模板给下属各单位填写，你提供一个上载附件的Notes Web页面,这个页面只是保存这个附件到Notes文档，然后你写一个Lotus Script代理拆分这些文档里的附件，并用Lotus Script调用Excel对象打开这个附件做统计（可以导出为Notes文档，或者Excel文档，或许你先导出它们到另一个汇总的Excel更方便），然后做进一步的统计分析。注意如果你希望用服务器上的代理运行，服务器上必须安装对应的Excel程序，当然如果运行在自己的PC上，PC也应该安装有Excel程序。【关键代码】：
Dim strFilePath as string
'这里开始拆分这些文档里的附件，
strFilepath="D:\ExcelReport" '你的附件被拆分到这个路径
Set rtItem=doc.GetFirstItem("Attachment")
If Not rtItem Is Nothing Then
If rtItem.type=RICHTEXT Then
If Not IsEmpty(rtItem.EmbeddedObjects ) Then
ForAll o In rtItem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
If InStr(LCase(CStr(o.Source)),".xls")>0 Then
strFilepath=strFilepath+"\"+Cstr(o.Source)
Call o.ExtractFile(strFilepath)
End If
End If
End ForAll
End If
End If
End If
Set objExcel= CreateObject("Excel.application")
objExcel.Visible=false
Call objExcel.Workbooks.Open( strFilePath)
’这里开始输出数据，具体怎么用这些数据，取决于你的统计程序：
Dim strValue as string
strValue= objExcel.Workbooks(1).Worksheets( 1).Cells( 1, 2).value
msgbox strValue --------------------编程问答-------------------- 如果EXCEL信息量不多的话，设计个表单囊括这些信息字段，让下属部门专员填写（反正填EXCEL也是填，填表单也填），再对各下属部门表单统计或汇总就可以了。如果很多信息字段的话就照楼上大哥说的那样就好了。 --------------------编程问答-------------------- 谢谢两位，我希望是由业务人员独立处理这些工作，不需要技术人员参与，同时，也能避免收邮件、拆分、合并表格这些工作。二楼的倒是解决了收邮件、拆分这两步工作，但离我的要求还远。难道就没有比较成熟的产品直接完成这些工作么？
我看IBM Forms的介绍似乎能实现这个功能，但这个软件貌似用的人不多，是不是现在不再推了！ --------------------编程问答-------------------- --------------------编程问答--------------------
5楼广告...拖出去打
Forms?我没听过...out了..
不过用domino简单开发一下也可以实现这些功能，我目前做好的东西都是业务人员操作，一旦遇到Bug，监测程序会自动给我发mail进行提醒，基本上在业务人员打电话来之前，我就知道问题所在
目前宝钢就在用domino做OA，像发项目奖金，做发票管理，或者公文分发都是基于domino做的
补充：企业软件 , Lotus
