导出EXCEL时为什么无边框

[haojialu]

我从网上找到一段代码，将DATAGRID导出到EXCEL，导出后发现EXCEL里除了数据全部是空白，没有了边框线，还有没有列标题。
请问怎么回事？有谁能提供更完善的代码吗？我用的是VB

代码如下：
Sub Button1_Click(sender As Object, e As System.EventArgs)
datagrid1.databind()
Response.Clear()
HttpContext.Current.Response.AddHeader("Content-Disposition","attachment;filename=Excel.xls")
HttpContext.Current.Response.Charset ="UTF-8"
dim resp as HttpResponse = Page.Response
resp.ContentEncoding = System.Text.Encoding.Default
Response.ContentType = "application/ms-excel"

Me.EnableViewState = False
Dim tw As New System.IO.StringWriter()
Dim hw As New System.Web.UI.HtmlTextWriter(tw)
datagrid1.RenderControl(hw)
HttpContext.Current.Response.Write(tw.ToString())
HttpContext.Current.Response.End()
datagrid1.databind()
End Sub

[flyin2006]

ding

[haojialu]

没人用过这个功能吗？

[leaohong]

边框要自己写

[haojialu]

请问怎么写呢，网上好像没看到比较完美的代码

[haojialu]

还有一个问题就是下载的EXCEL文件再导入到数据库时提示说：外部表不是预期的格式。

[jackljane]

如果你的页在一个大的ＴＡＢＬＥ里．有边框．则导出的有边框．
导出的ＥＸＣＥＬ是根据你的页面生成的．
你页的是什么样式．就是什么样式．
如果用ＥＸＣＥＬ类来操作．就可以在代码里加样式．

[daishengs]

设置你的datagrid1样式，让它的边框线为1