DataTable 쌍을 Excel로 내보내기
2433 단어 Excel내보내기Datatable 내보내기
''' <summary>
''' DataTable , Excel
''' </summary>
''' <param name="Dt"> DataTable </param>
''' <returns></returns>
''' <remarks></remarks>
Public Function DataTable2Excel(ByVal Dt As DataTable) As String
' DataTable excel
Dim sb As New StringBuilder()
Dim C_name As String
Dim xx As String = ""
sb.Append("<table cellspacing=""0"" rules=""all"" border=""1"" style=""height:100%;width:100%;border-collapse:collapse;"">")
sb.Append("<tr class=""gvHeader"" >")
For i = 0 To Dt.Columns.Count - 1
C_name = Trim(Dt.Columns(i).ColumnName.ToString)
sb.AppendFormat("<td style=""font-size: 12px; background-color: #CCCCCC; line-height: 26px; text-align: center; vertical-align: middle;height:30px"">{0}</td>", C_name)
Next
For i = 0 To Dt.Rows.Count - 1
sb.Append("<tr class=""gvRow"">")
For j = 0 To Dt.Columns.Count - 1
xx = Dt.Rows(i)(j).ToString
sb.AppendFormat("<td style=""text-align: center; vertical-align: middle;height:26px;font-size: 12px;"">{0}</td>", xx)
Next
sb.Append("</tr>")
Next
sb.Append("</tr>")
sb.Append("</table>")
Return sb.ToString
End Function그리고 내보내기 버튼 아래에서 호출하면 돼요.
Response.Clear()
Response.Buffer = True
Response.Charset = "GB2312"
Response.AppendHeader("Content-Disposition", "attachment;filename=" & Excelname & ".xls")
Response.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312")
'
Response.ContentType = "application/vnd.xls"
Str = DataTable2Excel(Dt)
Dt.Dispose()
' excel 。
Response.Write(Str)
Response.End()이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
Excel Grep toolExcel Grep tool ■히나가타 ■ 시트 구성 ExcelGrep.cls...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.
좋은 웹페이지 즐겨찾기
