Imports System.IO
Public Class WebForm2
Inherits System.Web.UI.Page
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
Private Sub InitializeComponent()
End Sub
'NOTE: The following placeholder declaration is required by the Web Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
Dim dtLocation As DataTable = CreateLocationDataTableSource()
Dim dvLocation As New DataView(dtLocation)
Dim dsT As New DataSet
dsT.Tables.Add(dvLocation.Table)
CreateXls(dsT)
End Sub
Public Sub CreateXls(ByVal data As DataSet)
Dim xlsWriter As New Aspose.Excel.Excel
With xlsWriter.Worksheets.Item(0).Cells
.ImportDataTable(data.Tables(0), True, "A1")
.Columns(0).Style.ForegroundColor = Drawing.Color.Yellow
.Columns(1).Style.ForegroundColor = Drawing.Color.Yellow
.Columns(2).Style.ForegroundColor = Drawing.Color.Yellow
End With
xlsWriter.Save("6.csv", Aspose.Excel.FileFormatType.Excel2000, Aspose.Excel.SaveType.OpenInBrowser, Response)
End Sub
Private Function CreateLocationDataTableSource() As DataTable
Dim dtL As New DataTable
dtL.Columns.Add(New DataColumn("Location Name", GetType(String)))
dtL.Columns.Add(New DataColumn("Address1", GetType(String)))
dtL.Columns.Add(New DataColumn("Address2", GetType(String)))
dtL.Columns.Add(New DataColumn("City", GetType(String)))
Dim dr As DataRow
dr = dtL.NewRow
dr.Item("Location Name") = "Location Name"
dr.Item("Address1") = ""
dr.Item("Address2") = "Address2"
dr.Item("City") = "City"
dtL.Rows.Add(dr)
dr = dtL.NewRow
dr.Item("Location Name") = "Location Name"
dr.Item("Address1") = "Address1"
dr.Item("Address2") = ""
dr.Item("City") = "City"
dtL.Rows.Add(dr)
dr = dtL.NewRow
dr.Item("Location Name") = "Location Name"
dr.Item("Address1") = "Address1"
dr.Item("Address2") = ""
dr.Item("City") = ""
dtL.Rows.Add(dr)
dr = dtL.NewRow
dr.Item("Location Name") = ""
dr.Item("Address1") = ""
dr.Item("Address2") = "Address2"
dr.Item("City") = "City"
dtL.Rows.Add(dr)
dr = dtL.NewRow
dr.Item("Location Name") = ""
dr.Item("Address1") = "Address1"
dr.Item("Address2") = ""
dr.Item("City") = "City"
dtL.Rows.Add(dr)
dr = dtL.NewRow
dr.Item("Location Name") = "Location Name"
dr.Item("Address1") = "Address1"
dr.Item("Address2") = "Address2"
dr.Item("City") = "City"
dtL.Rows.Add(dr)
dr = dtL.NewRow
dr.Item("Location Name") = "Location Name"
dr.Item("Address1") = "Address1"
dr.Item("Address2") = "Address2"
dr.Item("City") = "City"
dtL.Rows.Add(dr)
Return dtL
End Function
End Class