16,554
社区成员
发帖
与我相关
我的任务
分享
Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" + PATH + ";" & _
"Extended Properties=Excel 8.0;"
'建立EXCEL的连接
Dim objConn As New OleDbConnection(sConnectionString)
objConn.Open()
Dim objCmdSelect As OleDbCommand = New OleDbCommand("SELECT * FROM [Sheet1$]", objConn)
Dim objAdapter As OleDbDataAdapter = New OleDbDataAdapter()
objAdapter.SelectCommand = objCmdSelect
Dim objDataset As DataSet = New DataSet()
objAdapter.Fill(objDataset, "XLData")
Dim dt As DataTable = objDataset.Tables(0)
Dim style As String = "<style> .text { mso-number-format:\@; } </script> "
Response.ClearContent()
Response.AddHeader("content-disposition", "attachment; filename=ExportExcel.xls")
Response.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312")
Response.ContentType = "application/excel"
Dim sw As StringWriter = New StringWriter()
Dim htw As HtmlTextWriter = New HtmlTextWriter(sw)
Me.GridView1.AllowPaging = False
BindGridView()
Me.PanelResult.RenderControl(htw)
Response.Write(style)
Response.Write(sw.ToString().Replace("display: none", "display: "))
Response.End()