MOSS的Excel Services相信大家都听说过.我们可以创建一个引用了外部数据的Excel文件,然后发布到Excel Services中,然后就可以让用户在网页上看到数据库中的数据的实时的状态.
我们会有这样的设想,我在Excel中设计一个计算逻辑,然后从数据库中取一些值出来,填到Excel中,然后让Excel 自动去计算,然后我们可以把计算分析后的结果呈现给拥护.恩,这个设想很好!我们要实现这个想法需要做三件事情: 
1)我们要能从数据库中取出特定的数,可能需要取到某一个数 
2)我们需要Excel Services能支持我们直接查数据库
3)我们把设计好的Excel发布出去
第一件事情我们自然想到了SQL语句比如"Select value  From table..."之类.
很遗憾,Excel Services不支持直接查询数据库,只支持SQL Server Analysis Services等间接的方式,可能是处于安全或者其他考虑,对于不了解SQL Server Analysis Services的兄弟来说就很难了  : (
这么一个好的设想,难道就实现不了吗?庆幸的是,Excel Services支持Udf用户自定义函数,我们可以通过用户自定义函数开发一个直接查数据库的Udf,使用我们熟悉的SQL语句.
Udf的开发过程:
1)VS2005新建一个类工程,应用经典目录下 12/ISAPI/Microsoft.Office.Excel.Server.Udf.dll
2)编写自定义的函数
3)注册Udf
关于Udf中的支持的返回值类型等可以参考: 
http://officeblogs.net/excel/UDFs%20for%20Excel%20client%20and%20server.doc
SQLExcuteUdf是为实现了一个方法取数据库中的某个值而设计的:
using System;
using System.Collections.Generic;
using System.Text;
using System.Data;
using Microsoft.Office.Excel.Server.Udf;
using System.Data.SqlClient;

namespace SQLExcuteUdf


{
    [UdfClass]
    public class SQLExcute

    
{

        /**//// <summary>
        /// 取SQL Server数据库中的单个值
        /// </summary>
        /// <param name="constr">数据库链接</param>
        /// <param name="comstr">SQl语句</param>
        /// <returns></returns>
        [UdfMethod]
        public string GetSingleDataFromSQL(string constr, string comstr)

        
{
            try 

            
{
                string tempstring = "无数据";
                SqlConnection mycon = new SqlConnection(constr);
                mycon.Open();
                SqlCommand mycom = new SqlCommand(comstr, mycon);
                SqlDataReader myreader = mycom.ExecuteReader();
                if (myreader.Read())

                
{
                    tempstring = myreader[0].ToString();
                }
                mycon.Close();
                mycon.Dispose();
                return tempstring;
            }
            catch (Exception ex)

            
{
                return "运行错误,错误:"+ex.Message;
            }
        }
    }
} 
编译把dll进行注册

根据Udf的设计,需要给函数提供一个数据库连接和SQL语句,在Excel中我是需要用这个Udf查数据库中某个值,直接在某个单元格输入函数"=GetSingleDataFromSQL($A$1,B4)".因为Excel不知道这个函数所以在这里会显示"#Name!"之类的东西,如果把Udf作成xll放到Excel中就能直接在Excel中用了,这里就不做介绍了. 

然后,我把这个发布到Excel Services中.
当我在浏览器中访问的时候,Excel Services就会利用Udf去数据库中查到一个值,显示出来,当数据库中数据有更新的时候,刷新页面会实时更新数据.
在
这里下载源代码. 
预告: 
如何利用Excel Services取实数据作为KPI列表数据源