热点排行

將 ASP .NET WebForm 的 DataGrid 中的資料 匯出至 Microsoft Excel

类别：.NET开发 点击：0 评论：0 推荐：

將 ASP .NET WebForm 的 DataGrid 中的資料 匯出至 Microsoft Excel

本文將逐步帶領您產生 ASP.NET WebForm 上的 DataGrid Web 伺服器控制項，然後將 DataGrid 內容匯出至 Microsoft Excel。

技術

本文將說明兩種匯出 DataGrid 資料的技術：
  • 使用 Excel MIME 類型 (或內容類型)

    您可以使用伺服器端的程式碼將 DataGrid 連結至資料，然後在用戶端電腦的 Excel 中開啟資料。如果要執行這項操作，請將 ContentType 設為 application/vnd.ms-excel。用戶端收到新資料流後，資料會顯示在 Excel 中，如同在 Web 瀏覽器新網頁中開啟內容。
  • 使用 Excel 自動化

    您可以使用用戶端的程式碼，從 DataGrid 擷取成 HTML，然後「自動執行 Excel」以新的活頁簿顯示 HTML。「Excel 自動化」永遠會在 Excel 應用程式視窗的瀏覽器外側，顯示資料。「自動化」的一項優點是如果您想在匯出資料後修改活頁簿，可以由程式來控制 Excel。不過，由於 Excel 的指令碼是標示為不安全的，因此用戶端必須在 Web 瀏覽器上套用允許「自動化」的安全性設定。

逐步說明

  1. 啟動 Visual Studio .NET。在 [檔案] 功能表中，指向 [新增]，再按一下 [專案]。
  2. 按一下 [專案類型] 窗格中的 [Visual Basic 專案]。按一下 [範本] 下的 [ASP.NET Web 應用程式]。將應用程式命名為 ExcelExport，然後按一下 [確定]。

    「設計」檢視中會出現 WebForm1。
  3. 在「方案總管」的 [WebForm1.aspx] 上按右滑鼠鍵，然後按一下 [重新命名]。將檔案名稱變更為 Bottom.aspx。
  4. 在 [檢視] 功能表上按一下 [HTML 原始檔]，將下列 DataGrid 新增至 <form> 和 </form> 標籤之間：
    <asp:datagrid id="DataGrid1" runat="server" GridLines="Vertical" CellPadding="3" BackColor="White"
BorderColor="#999999" BorderWidth="1px" BorderStyle="None" Width="100%" Height="100%" Font-Size="X-Small"
Font-Names="Verdana">
	<SelectedItemStyle Font-Bold="True" ForeColor="White" BackColor="#008A8C"></SelectedItemStyle>
	<AlternatingItemStyle BackColor="Gainsboro"></AlternatingItemStyle>
	<ItemStyle BorderWidth="2px" ForeColor="Black" BorderStyle="Solid" BorderColor="Black" BackColor="#EEEEEE"></ItemStyle>
	<HeaderStyle Font-Bold="True" HorizontalAlign="Center" BorderWidth="2px" ForeColor="White" BorderStyle="Solid"
	BorderColor="Black" BackColor="#000084"></HeaderStyle>
	<FooterStyle ForeColor="Black" BackColor="#CCCCCC"></FooterStyle>
	<PagerStyle HorizontalAlign="Center" ForeColor="Black" BackColor="#999999" Mode="NumericPages"></PagerStyle>
</asp:datagrid>
  5. 在 [檢視] 功能表上按一下 [設計]，便可返回設計檢視。

    DataGrid 出現在 WebForm 上。
  6. 在 [檢視] 功能表上按一下 [程式碼]，如此便可顯示 Web Form 後面的程式碼。將下列程式碼新增至 Page_Load 事件處理常式：

    注意您必須將 User ID <username> 和 password=<strong password> 變更為正確的值，才能執行這個程式碼。使用者帳戶必須有正確的權限，才能在資料庫上執行這個作業。 
    ' Create a connection and open it.
Dim objConn As New System.Data.SqlClient.SqlConnection("User ID=<username>;Password=<strong password>;Initial Catalog=Northwind;Data Source=SQLServer;")
objConn.Open()

Dim strSQL As String
Dim objDataset As New DataSet()
Dim objAdapter As New System.Data.SqlClient.SqlDataAdapter()

' Get all the customers from the USA.
strSQL = "Select * from customers where country='USA'"
objAdapter.SelectCommand = New System.Data.SqlClient.SqlCommand(strSQL, objConn)
' Fill the dataset.
objAdapter.Fill(objDataset)
' Create a new view.
Dim oView As New DataView(objDataset.Tables(0))
' Set up the data grid and bind the data.
DataGrid1.DataSource = oView
DataGrid1.DataBind()

' Verify if the page is to be displayed in Excel.
If Request.QueryString("bExcel") = "1" Then
    ' Set the content type to Excel.
    Response.ContentType = "application/vnd.ms-excel"
    ' Remove the charset from the Content-Type header.
    Response.Charset = ""
    ' Turn off the view state.
    Me.EnableViewState = False

    Dim tw As New System.IO.StringWriter()
    Dim hw As New System.Web.UI.HtmlTextWriter(tw)

    ' Get the HTML for the control.
    DataGrid1.RenderControl(hw)
    ' Write the HTML back to the browser.
    Response.Write(tw.ToString())
    ' End the response.
    Response.End()
End If
    注意：請將程式碼中的 SQLServer 取代為您的 SQL Server 名稱。如果您無法存取 Northwind 範例資料庫所在的 SQL Server，請將連線字串修改為使用 Microsoft Access 2002 範例 Northwind 資料庫：

    provider=microsoft.jet.oledb.4.0; data source=C:\Program Files\Microsoft Office\Office10\Samples\Northwind.mdb

    如果您選取這個方法，請將 aforementioned 程式碼修改為使用 OleDbClient 命名空間 (而不使用 SqlClient 命名空間)。
  7. 在 [專案] 功能表上，按一下 [加入 HTML 網頁]。將網頁命名為 Top.htm，然後按一下 [開啟]。

    「設計」檢視中會出現 Top.htm。
  8. 在 [檢視] 功能表上，按一下 [HTML 原始檔]。將 HTML 原始檔視窗的內容取代為下列程式碼： 
    <html>
<script language="vbscript">
  Sub Button1_onclick        

  Select Case Select1.selectedIndex

    Case 0	' Use Automation.
      Dim sHTML
      sHTML = window.parent.frames("bottom").document.forms(0).children("DataGrid1").outerhtml
      Dim oXL, oBook
      Set oXL = CreateObject("Excel.Application")
      Set oBook = oXL.Workbooks.Add
      oBook.HTMLProject.HTMLProjectItems("Sheet1").Text = sHTML
      oBook.HTMLProject.RefreshDocument
      oXL.Visible = true
      oXL.UserControl = true

    Case 1	' Use MIME Type (In a New Window).
      window.open("bottom.aspx?bExcel=1")

    Case 2	' Use MIME Type (In the Frame).
      window.parent.frames("bottom").navigate "bottom.aspx?bExcel=1"
  End Select	
End Sub
</script>
<body>
Export to Excel Using:
<SELECT id="Select1" size="1" name="Select1">
<OPTION value="0" selected>Automation</OPTION>
<OPTION value="1">MIME Type (In a New Window)</OPTION>
<OPTION value="2">MIME Type (In the Frame)</OPTION>
</SELECT>
<INPUT id="Button1" type="button" value="Go!" name="Button1">
</body>
</html>
  9. 在 [專案] 功能表上，按一下 [加入 HTML 網頁]。將網頁命名為 Frameset.htm，然後按一下 [開啟]。

    「設計」檢視中會開啟 Frameset.htm。
  10. 在 [檢視] 功能表上，按一下 [HTML 原始檔]。將 HTML 原始檔視窗的內容取代為下列程式碼： 
    <html>
	<frameset rows="10%,90%">
		<frame noresize="0" scrolling="no" name="top" src="top.htm">
		<frame noresize="0" scrolling="yes" name="bottom" src="bottom.aspx">
	</frameset>
</html>
  11. 在「方案總管」的 [Frameset.htm] 上按滑鼠右鍵，然後按一下 [設定為起始頁]。
  12. 在 [建置] 功能表上，按一下 [建置方案]。

試試看！

  1. 在 [偵錯] 功能表上按一下 [啟動但不偵錯]，執行應用程式。

    Web 瀏覽器開啟框架組後，框架下方的 DataGrid 顯示出 Northwind 資料庫的資料。
  2. 在下拉清單中按一下 [Automation]，再按 [Go]。

    DataGrid 內容會顯示在 Microsoft Excel 應用程式視窗的瀏覽器外側。
  3. 在下拉清單中按一下 [MIME Type (In a New Window)]，再按 [Go]。

    DataGrid 內容會顯示在新 Web 瀏覽器視窗的 Excel 中。

    注意：提示您開啟或儲存 Excel 檔案時，請按一下 [開啟]。
  4. 在下拉清單中按一下 [MIME Type (In the Frame)]，再按 [Go]。

    DataGrid 內容會顯示在 Web 瀏覽器 Excel 框架組的下框架中。

    注意：提示您開啟或儲存 Excel 檔案時，請按一下 [開啟]。

本文地址：http://com.8s8s.com/it/it43776.htm

Copyright © 2004-2013 信息技术中文网 All rights reserved 版权所有

Powered by 信息技术中文网 Ver2.0