62,046
社区成员
发帖
与我相关
我的任务
分享哪位大哥能不能给我讲一讲怎样把DATAGRID中的数据导成EXCEL
我导入了OFFICE WEB COMPOENT 9.0 ，EXCEL COMPOENT后，用Dim xlApp As New Excel.Application()还是不行，哪里还要配置，程序中怎样初始化，不好意思，下次补分
...全文
请发表友善的回复…
发表回复
菁菁报表 2003-09-16
- 打赏
- 举报
同意guoyan19811021(吉祥)
lincf2000 2003-09-12
- 打赏
- 举报
设置服务器：在运行中输入“dcomcnfg”，找到“microsoft excel应用程序”，按“属性”
设置“身份验证级别”为“无”，安全性中将三个均设为“使用自定义访问权限”并将“everyone”添加到其中。设置“身份标识”为“交互式用户”。
设置“身份验证级别”为“无”，安全性中将三个均设为“使用自定义访问权限”并将“everyone”添加到其中。设置“身份标识”为“交互式用户”。
guoyan19811021 2003-09-11
- 打赏
- 举报
Function ToExcel(ByVal ctl As System.Web.UI.Control)
With HttpContext.Current.Response
.Charset = "UTF-8"
.ContentEncoding = System.Text.Encoding.GetEncoding("UTF-8")
.ContentType = "Application/ms-excel"
End With
HttpContext.Current.Response.AppendHeader("content-Disposition", "attachment;filename=" & HttpUtility.UrlEncode(Title1) & ".xls")
ctl.Page.EnableViewState = False
Dim tw As System.IO.StringWriter = New System.IO.StringWriter()
tw.WriteLine(Title1)
tw.Write(Chr(13) & Chr(10))
tw.WriteLine(Source)
Dim hw As System.Web.UI.HtmlTextWriter = New System.Web.UI.HtmlTextWriter(tw)
ctl.RenderControl(hw)
HttpContext.Current.Response.Write(tw.ToString)
HttpContext.Current.Response.End()
End Function
With HttpContext.Current.Response
.Charset = "UTF-8"
.ContentEncoding = System.Text.Encoding.GetEncoding("UTF-8")
.ContentType = "Application/ms-excel"
End With
HttpContext.Current.Response.AppendHeader("content-Disposition", "attachment;filename=" & HttpUtility.UrlEncode(Title1) & ".xls")
ctl.Page.EnableViewState = False
Dim tw As System.IO.StringWriter = New System.IO.StringWriter()
tw.WriteLine(Title1)
tw.Write(Chr(13) & Chr(10))
tw.WriteLine(Source)
Dim hw As System.Web.UI.HtmlTextWriter = New System.Web.UI.HtmlTextWriter(tw)
ctl.RenderControl(hw)
HttpContext.Current.Response.Write(tw.ToString)
HttpContext.Current.Response.End()
End Function
