跳到主要內容

[ASP.net] Export Gridview to Excel but missing '0' GridView匯出excel 遺漏開頭數字0



在ASP.net要用Gridview匯出excel在之前的文章中有提到過 是很簡單的一個方法
但是匯出來的excel有些全都是數字的文字儲存格都會被視為數字所以開頭的0會被去掉
尤其是向手機號碼這種資料,更是麻煩

對於這個問題,只要在程式碼中加上
Dim strStyle As String = "<style>td{mso-number-format:\@;}</style>"
然後再輸出的StringWriter
設定 WriteLine(strStyle)
這樣就行了
完整的Code如下

Dim strExportFilename As String = "ExportedData"
Response.Clear()
  Response.AddHeader("content-disposition", "attachment;filename=" + strExportFilename + ".xls")
  Response.Cache.SetCacheability(HttpCacheability.NoCache)
  Response.ContentType = "application/vnd.xls"
  Response.Charset = "big5"
  Dim strStyle As String = "<style>td{mso-number-format:\@;}</style>"
  Dim stringWrite As New System.IO.StringWriter
  Dim htmlWrite As New HtmlTextWriter(stringWrite)
  stringWrite.WriteLine(strStyle)
  GridView1.RenderControl(htmlWrite)
  Response.Write(stringWrite.ToString().Replace("<div>", "").Replace("</div>", ""))
Response.End()

 
 

留言

這個網誌中的熱門文章

[WEB]連線 HTTPS 網站發生驗證失敗導致基礎連接已關閉

某支透過 WebClient 物件去呼叫第三方API的程式,突然有天無法使用 經過測試出現下列的錯誤 基礎連接已關閉: 傳送時發生未預期的錯誤。 InnerException : 驗證失敗,因為遠端群體已經關閉傳輸資料流。 原來是第三方的服務已經不支援 TLS 1.0 我方的程式是用.net Framework 4.0開發了 得強制讓webclient改用 TLS 1.1 或 TLS 1.2 感謝黑大提供解決方法 在程式中加入 ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12  的設定就解決了這個問題 WebClient wc = new WebClient(); ServicePointManager.SecurityProtocol = SecurityProtocolType.Ssl3 | SecurityProtocolType.Tls | SecurityProtocolType.Tls11 | SecurityProtocolType.Tls12; 參考資料:暗黑執行緒

[SQL] SQL依照你的排序條件 找出目前資料的前一筆與下一筆。 Find Pre and Next DataRows of current Datarow by your order condition

有時候需要用SQL找出前一筆跟後一筆資料 用SQL的TOP是沒有辦法做到 這個時候就可以這個語法 select * from ( SELECT TOP 1 * FROM [Article] where Poid {CurrentPoid} order by CreateDate ASC) t2 找出目前PK id前一個與後一個的資料(依照想要排序順序) 那如果指示想要一個資料行呈現的話 可以改用下面的SQL語法 讓這兩筆資料join在同一筆 select Pre.*,Nex.* from (SELECT TOP 1 * ,1 tID FROM [dbo].[Article] where Poid {CurrentPoid} order by CreateDate ASC) Nex on Pre.tID=Nex.tID

Win10電腦 強制開啟IE瀏覽器 by VB script

 用Notapad寫下以下的內容 With CreateObject("InternetExplorer.Application") .visible = True .Navigate [Url]           .Left = 0           .Top = 0           .Height = 1024           .Width = 1280 End With 然後存檔成 .vbs 檔案 之後點選檔案就會自動啟動IE 目前測試過在WIN10 版本能正常執行