如果说是调用客户自己的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
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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货