Powered by SpreadsheetGear 2010
 
<%@ Page Language="VB" EnableViewState="false" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Excel Report to Excel 2007-2010 Open XML (XLSX) with ASP.NET and VB.NET Returns Excel Workbook Using SpreadsheetGear 2010</title>
<meta content="Excel Report to Excel 2007-2010 Open XML (XLSX) with ASP.NET, Visual Basic .NET and SpreadsheetGear 2010, a royalty free Microsoft Excel compatible spreadsheet component for the Microsoft .NET Framework featuring the fastest and most complete calculation engine available. Create, read, modify, calculate and write Microsoft Excel workbooks from your Microsoft .NET, ASP.NET, C#, VB.NET and Microsoft Office solutions. Integrates with Microsoft Visual Studio .NET, including IntelliSense and Dynamic Help." name="description" />
<script language="VB" runat="server">
     
    Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        ' Create a new workbook.
        Dim workbook As SpreadsheetGear.IWorkbook = SpreadsheetGear.Factory.GetWorkbook()
        Dim worksheet As SpreadsheetGear.IWorksheet = workbook.Worksheets("Sheet1")
        Dim cells As SpreadsheetGear.IRange = worksheet.Cells
    
        ' Set the worksheet name.
        worksheet.Name = "2005 Sales"
    
        ' Load column titles and center.
        cells("B1").Formula = "North"
        cells("C1").Formula = "South"
        cells("D1").Formula = "East"
        cells("E1").Formula = "West"
        cells("B1:E1").HorizontalAlignment = SpreadsheetGear.HAlign.Center
    
        ' Load row titles using multiple cell text reference and iteration.
        Dim quarter As Integer = 1
        Dim cell As SpreadsheetGear.IRange
        For Each cell In cells("A2:A5")
            cell.Formula = "Q" & quarter
            quarter = quarter + 1
        Next cell

        ' Load random data and format as $ using a multiple cell range.
        Dim body As SpreadsheetGear.IRange = cells(1, 1, 4, 4)
        body.Formula = "=RAND() * 10000"
        body.NumberFormat = "$#,##0_);($#,##0)"
        
        ' Stream the Excel spreadsheet to the client in Excel 2007-2010 Open XML format.
        Response.Clear()
        Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
        Response.AddHeader("Content-Disposition", "attachment; filename=report.xlsx")
        workbook.SaveToStream(Response.OutputStream, SpreadsheetGear.FileFormat.OpenXMLWorkbook)
        Response.End()
    End Sub 'Page_Load
    
</script>
</head>
<body>
</body>
</html>