如果说是调用客户自己的EXCEL,一般是生成一个GRID,然后将GRID中的内容输出生成EXCEL,这种方法速度也较快。
SUB A()
        Dim conn As SqlClient.SqlConnection
        Dim comd As SqlClient.SqlDataAdapter
        Dim ds As New DataSet
        Dim sql As String        conn = New SqlClient.SqlConnection(Application("KK"))
        conn.Open()
        sql = "select top 200 * from TABLE" 
        comd = New SqlClient.SqlDataAdapter(sql, conn)
        comd.Fill(ds, "aa")
        dg.DataSource = ds.Tables("aa").DefaultView
        dg.DataBind()        Response.ContentType = "application/vnd.ms-excel"
        '' 从Content-Type header中去除charset设置
        Response.Charset = ""
        Dim tw As New System.IO.StringWriter
        Dim hw As New System.Web.UI.HtmlTextWriter(tw)
           ' 把HTML写回浏览器
        Response.Write(tw.ToString())
        Response.End()
        ds.Dispose()
        comd.Dispose()
        conn.Close()
END SUB