repeater如何实现把数据导入到Excel和把数据导出到Excel？？？

和datagrid一樣的:把数据导出到Excel<%@ Page Language="VB" AutoEventWireup="True" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Drawing.Color" %><html>
   <script runat="server">
     dim MyConnection as OleDbConnection
     dim cmdSelect as OleDbCommand
     dim dtrReader as OleDbDataReader
      Sub Page_Load(sender As Object, e As EventArgs) 
      MyConnection = New OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" + Server.MapPath(".")+"/datagrid.mdb")
         If Not IsPostBack Then 
            BindGrid()
         End If
      End Sub       Sub BindGrid() 
      Dim MyCommand As OleDbDataAdapter = new OleDbDataAdapter("select * from [news]", MyConnection)
          Dim DS As DataSet = new DataSet()
          MyCommand.Fill(DS,"min") 
          MyDataGrid.DataSource =DS.Tables("min").DefaultView
          MyDataGrid.DataBind()
      End SubSub Mydatagrid_PageIndexChanged(s as object,e as DataGridPageChangedEventargs)
    MyDataGrid.CurrentPageIndex=e.newPageIndex
BindGrid()
End SubSub Button1_Click(sender As Object, e As System.EventArgs)
'-------------------
MyDataGrid.AllowPaging = "false"
BindGrid()
'-------------------
      MyDataGrid.SelectedItemStyle.BackColor=Color.white
      MyDataGrid.AlternatingItemStyle.BackColor=Color.white
      MyDataGrid.ItemStyle.BackColor=Color.white
  MyDataGrid.HeaderStyle.BackColor=Color.white
  MyDataGrid.HeaderStyle.ForeColor=Color.red
  '----------
          dim resp as HttpResponse = Page.Response
          resp.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312")
  '---------
          Response.ContentType = "application/vnd.ms-excel"
          Response.Charset = ""
          Me.EnableViewState = False
          Dim tw As New System.IO.StringWriter()
          Dim hw As New System.Web.UI.HtmlTextWriter(tw)
          MyDataGrid.RenderControl(hw)
          Response.Write(tw.ToString())
          Response.End()
    '-------------------
    MyDataGrid.AllowPaging = "true"
BindGrid()
End Sub</script>
<body>
   <form runat="server">
    <asp:Label id="lblFile" forecolor="red" runat="server"/><BR>
<asp:Button id="button1" onclick="Button1_Click" text="Write To Excle File" runat="server"/>
<BR>
      <asp:datagrid id="MyDataGrid" 
  runat="server" 
  CellPadding="4" 
  BackColor="White"
      BorderColor="#330033" 
  BorderWidth="1px" 
  BorderStyle="None" 
      Font-Size="9pt" 
  Font-Names="§&ordm;&Ecirc;^"
  AllowPaging="true" 
  pageSize="2" 
  OnPageIndexChanged="Mydatagrid_PageIndexChanged" >
  <PagerStyle Mode="NumericPages"
      Font-Bold="true" 
      BackColor="#F2F2F2"
      HorizontalAlign="right"> 
  </PagerStyle>
      <SelectedItemStyle  BackColor="#FFCC66"></SelectedItemStyle>
      <AlternatingItemStyle BackColor="#FFCC99"></AlternatingItemStyle>
      <ItemStyle BackColor="White"></ItemStyle>
      <HeaderStyle Font-Bold="True" HorizontalAlign="Center"  ForeColor="#330033" BorderColor="Black" BackColor="#FF9900"></HeaderStyle>
      </asp:datagrid>
   </form>
</body>
</html>