用vb.net把网页内容导出excel文件的方法(源代码)

　　前些日子在做程序时,需要把网页上的内容保存到excel文件中去.
　　哎~~~对于我这个.net新手来说挺有难度,在网上狂找一番后,弄的我晕头转向!!(别笑我笨~~!呵呵)．方法五花八门啊~~

　　下面是源代码,基本是可以拿来就用,不需要改太多的的东西.需要修改的只是红字的部分!

　Sub Excel()
        Dim myCItrad As System.Globalization.CultureInfo
        Dim oStringWriter As System.IO.StringWriter
        Dim oHtmlTextWriter As System.Web.UI.HtmlTextWriter
        Dim strFilename As String

        strFilename = Today()

        Response.Clear()
        Response.Buffer = True
        Response.Charset = "utf-8"
        ''//Response.AppendHeader("Content-Disposition","attachment;filename=test.xls")
        Response.AppendHeader("Content-Disposition", "attachment;filename=Search " & strFilename & ".xls")
        Response.ContentEncoding = System.Text.Encoding.GetEncoding("utf-8") ''//设置输出流为简体中文
        Response.ContentType = "application/ms-excel" ''//设置输出文件类型为excel文件。
        Me.EnableViewState = True

        myCItrad = New System.Globalization.CultureInfo("ZH-CN", True)
        oStringWriter = New System.IO.StringWriter(myCItrad)
        oHtmlTextWriter = New System.Web.UI.HtmlTextWriter(oStringWriter)
        Me.tblOrder.RenderControl(oHtmlTextWriter)       //tblOrder是需要输出的表格的ID;如果是输出datagrid的内容那就替换成datagrid的ID就可以了.
        Response.Write(oStringWriter.ToString())
        Response.End()

    End Sub

这个方法导出的实际不是真正的excel文件,用记事本打开是一个含<table>标记的表格(具体为什么,还请高人指教!!)