ASP.NET 下 保持 datagrid 数据到EXCEL

        Dim objExcel As New OWC.Spreadsheet() 'Referencing Microsoft Office Web Compenents 9.0'
        Dim myRow As DataRow
        Dim myColumn As New DataColumn()
        Dim RowCount As Object
        Dim ColumnCount As Object
        Dim FileName As String = "Example.xls"
        Dim FileAndPath As String = "C:\" & FileName

        For Each myColumn In myTable.Columns
            ColumnCount += 1
            objExcel.ActiveSheet.Cells(1, ColumnCount) = myColumn.ColumnName
        Next

        ColumnCount = 0
        RowCount = 0

    
        For Each myColumn In myTable.Columns
            ColumnCount += 1
            RowCount = 1
            For Each myRow In myTable.Rows
                RowCount += 1
                objExcel.ActiveSheet.Cells(RowCount, ColumnCount) = CStr(myRow(myColumn))
            Next
        Next

        ColumnCount = 0

    
        For Each myColumn In myTable.Columns
            ColumnCount += 1
            objExcel.ActiveSheet.Columns(ColumnCount).EntireColumn.AutoFitColumns()
        Next

    
        objExcel.ActiveSheet.Columns.InsertColumns(1)
        objExcel.ActiveSheet.Rows.InsertRows(3)
        objExcel.ActiveSheet.Cells(2, 2) = "导出到 Excel 格式"
        objExcel.ActiveSheet.Rows(2).Font.Bold = True

     
        objExcel.ActiveSheet.Export(FileAndPath, OWC.SheetExportActionEnum.ssExportActionNone)

    
        Response.Clear()
        Response.ContentType = "application/octet-stream"
        Response.AddHeader("Content-Disposition", "attachment; filename=" & FileName)
        Response.Flush()
    
        Response.WriteFile(FileAndPath)