1. 程式人生 > >ASP.NET ,EXT.NET都適用的Excel匯出,主要使用List集合轉化為Excel輸出

ASP.NET ,EXT.NET都適用的Excel匯出,主要使用List集合轉化為Excel輸出

1             函式的定義

Public Sub DataBindTitleExcel(pPage As Page, ByVal objList As List(Of prjECWSDB.MODEL.clsWeb_vwPublicPlatformBySection), ExcelTitle As String, strUserMsg As String, Header As String)
        Dim response As HttpResponse = pPage.Response
        Dim Count As Integer
        Dim strHeader() As String
        Dim strHeadering() As String
        Dim strValue() As String
        Dim value As String
        Dim objListHeader As New List(Of prjDotNetPublicClass.clsExtNetModule.clsNameAndProperty)
        If objList.Count = 1 Then
            Exit Sub
        End If
        'objListHeader = prjDotNetPublicClass.clsExtNetModule.getListOfProperty(objList(0))
        strHeader = Split(Header, ",")
        'Count = objListHeader.Count
        Count = strHeader.Count
        If objList.Count = 0 Then
            response.Write("<script>alert('對不起,沒有可用於匯出的資料!')</script>")
            response.[End]()
        End If
        response.ContentEncoding = Encoding.GetEncoding("GB2312")
        response.ContentType = "application/ms-excel"
        response.AppendHeader("Content-Disposition", "attachment;filename=Export.xls")
        Dim builder As New StringBuilder()
        builder.Append("<html><head>" & vbLf)
        builder.Append("<meta http-equiv=""Content-Language"" content=""zh-cn"">" & vbLf)
        builder.Append("<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbLf)
        builder.Append("</head>" & vbLf)
        builder.Append("<table border=1>")
        builder.Append("<tr>" & vbLf)
        For i As Integer = 0 To Count - 1
            strHeadering = Split(strHeader(i), "=")
            builder.Append("<td bgcolor=#CCFFCC><b>" & strHeadering(1) & "</b></td>" & vbLf)
        Next

        For i As Integer = 0 To objList.Count - 1
            builder.Append("<tr>")
            For j As Integer = 0 To Count - 1
                strValue = Split(strHeader(j), "=")
                value = strValue(0)

                'builder.Append("<td style='vnd.ms-excel.numberformat:@'>" & getObjectValueByName(objList.Item(i), value) & "</td>")
                builder.Append("<td >" & getObjectValueByName(objList.Item(i), value) & "</td>")
            Next
            builder.Append("</tr>" & vbLf)
        Next
        builder.Append("</table>" & vbLf)
        response.Write(builder.ToString())
        response.[End]()
    End Sub


2 引用到的函式  getObjectValueByName  定義  

Public Function getObjectValueByName(ByRef obj As Object, ByVal strPropName As String) As Object
        Dim objType As Type = obj.GetType
        Dim pInfo As System.Reflection.PropertyInfo = objType.GetProperty(strPropName.Trim)
        Return pInfo.GetValue(obj, Nothing)
    End Function

3  函式的呼叫

 Private Sub btnTest_DirectClick(sender As Object, e As DirectEventArgs) Handles btnTest.DirectClick
        LoadWebPlatform()
        DataBindTitleExcel(Page, mobjLstOfvwWebPlatform, "公共平臺資訊匯出", getUser.UID, strAliasList)
    End Sub


相關推薦

ASP.NET ,EXT.NET適用Excel匯出主要使用List集合化為Excel輸出

1             函式的定義 Public Sub DataBindTitleExcel(pPage As Page, ByVal objList As List(Of prjECWSDB.MODEL.clsWeb_vwPublicPlatformBySecti

後臺使用jeecg模板excel匯出會出現檢索欄位傳入後臺亂碼的問題

後臺使用jeecg模板excel匯出,會出現檢索欄位傳入後臺亂碼的問題。 解決方案: 針對亂碼欄位進行轉碼,例new String(orgNameUrlStr.getBytes("iso8859-1"),"UTF-8") 參考程式碼: String orgNameUrlS

list集合物件以excel匯出

一:模板    package com.hailian.util; import java.io.IOException; import java.io.OutputStream; import java.lang.reflect.Method; import java.util.ArrayLi

list集合csv檔案以及servlet匯出csv和excel檔案

public class CsvToListObjectTest { /** * 寫入csv檔案 * @param list * @param fileName * @return */ public sta

Excel匯出特定模板二維陣列匯出

效果:@RequestMapping(value = "/exportExcelForSJSB", method = { RequestMethod.GET, RequestMethod.POST })    public void exportExcelForSJSB(  

OraclePLSQL匯出CVS資料化為Excel如何防止數字列進行科學技術。

匯出成CSV後,用excel開啟,點選excel的【資料】→【自文字】,選擇匯出的csv檔案,下一步,分隔符選擇【逗號】,下一步,選擇所有列“按住shift+滑鼠左鍵選取”後,列資料格式選文字,【完成】,選擇新建工作表,確定就好了。 

java將資料匯出帶有合併單元格的excel--jxls技術

        jxls技術可以生成各種樣式的報表,非常好用,深深地喜歡上了這個。說起用這個還是比較有意思的,當時專案有個匯出表格的功能,但是沒能合併單元格,客戶不是很滿意,當時專案中大家都說弄不了,我想著自己網上查查吧,就查到了這個,試了一下午完成了,很有成就感哪,哈哈。

C#實戰018:Excel操作-多個List集合合併問題

        今天提取Excel中的資料到集合中,然後再將集合進行合併,以獲取所有的資料再寫入到Excel中,於是我建立了多個list集合,然後分別獲取需要的資料,這裡我們用了5個集合,z1、z2、z3、z4是分別從excel提取的資料,而z這是用來合併z1

python 將txt 表格化為excel

import pandas as pd data = pd.read_table('horseColicTraining.txt') data.columns=list(range(data.shap

JONS資料化為excel資料

問題描述:博主碰到一個困惑很久的問題,需要將大批資料(萬級)匯入到資料庫中,而那些資料都是密密麻麻的json格式,首先想到的是將json格式匯入為.xls格式,以下是解決步驟1.在百度搜索了很多相關的文章,最終還是不能滿足要求;於是在google找關鍵詞"convert json to excel" ,確實能

將一二維數組化為Excel格式

das 我們 pandas taf ica type excel格式 list int32 首先,我們來看一下一維數組的, 其代碼可以如下: 1 import numpy as np 2 import pandas as pd 3 x = pd.Series([

C# MVC 自學筆記—11 在 ASP.NET MVC 中使用EXCEL匯出

====================此部分為轉載內容==================== 因為是轉載文章 在此標明出處,以前有文章是轉的沒標明的請諒解,因為有些已經無法找到出處,或者與其它原因。 如有冒犯請聯絡本人,或刪除,或標明出處。 因為好的文章,以前只想收藏,

asp.net NPOI導出xlsx格式文件打開文件報“Excel 已完成文件級驗證和修復。此工作簿的某些部分可能已被修復或丟棄”

tpc com filesize instance ons 讀取 div 技術 i++ NPOI導出xlsx格式文件,會出現如下情況: 點擊“是”: 導出代碼如下: /// <summary> /// 將datatable數據寫

.Net Excel 匯出圖表Demo(柱狀圖多標籤頁)

1 使用外掛名稱Epplus,多個Sheet頁資料應用,Demo為柱狀圖(Epplus支援多種圖表) 2 Epplus 的安裝和引用    新建一個工程檔案或控制檯應用程式 開啟 Vs2017 Tools 的Nuget&nbs

ASP.NET操作mysql資料庫的例項(傻瓜能看懂已測試過)

一、把MySql.Data.dll放到BIN目錄下。二、這是aspx.cs的全部原始碼,修改引數直接執行即可!using MySql.Data.MySqlClient; using System; using System.Collections.Generic; usin

.Net Excel 匯出圖表Demo(支援多標籤)

1 使用外掛名稱Epplus,多個Sheet頁資料應用,Demo為柱狀圖(Epplus支援多種圖表) 2 Epplus 的安裝和引用    新建一個工程檔案或控制檯應用程式 開啟 Vs2017 Tools 的Nuget 包管理器,使用命令 install-package Epplus     3 開始在建立

.Net MVC 匯入匯出Excel總結(三種匯出Excel方法一種匯入Excel方法)

public class ExcelController : Controller { // // GET: /Excel/ Models.zbwxglEntities myMdl = new Models.zbwxglEntities();

iTextSharp5.0頁首頁尾及Asp.net預覽的實現(PDF匯出)

iTextSharp5.0後沒有了HeaderFooter的類,導致頁首頁尾難以實現。經查資料後,發現可以通過PdfPageEventHelper裡面的OnEndPage來實現。先看看實現的效果圖。 頁首和頁尾部分使用PdfPTable來達成,下面是實現程式碼 usin

NET使用NPOI元件將資料匯出Excel-通用方法 【推薦】

一、Excel匯入及匯出問題產生:   從接觸.net到現在一直在維護一個DataTable匯出到Excel的類,時不時還會維護一個匯入類。以下是時不時就會出現的問題: 匯出問題:   如果是asp.net,你得在伺服器端裝Office,幾百M呢,還得及時更新它,以防漏洞,還得設定許可權允許ASP.n

.Net MVC 導入導出Excel總結(三種導出Excel方法一種導入Excel方法) 通過MVC控制器導出導入Excel文件(可用於java SSH架構)

ets esp llb pat lencod cnblogs 創建 etime mmd public class ExcelController : Controller { // // GET: /Excel/ M