The Gridview to Excel Export Tool 2.0 - VB Demo Site

From SqlDataSource to Excel while moving columns

Welcome

Home

GEET Standard

GEET Easy

Multi-sheets Workbooks

More examples

GEET Home

10/09/2010

Export from sqldatasource moving columns

This demo shows how you can export data from a sqldatasource and change the position of a column in the exported Excel sheet.

Move column from position: to position:

Set start and end position to the same value to see original layout.

Postback events code for xml and xlsx Excel Exports:

   Protected Sub Button2003_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2003.Click
      ExportToExcel(ExcelOutputFormat.xml)
   End Sub
   Protected Sub Button2007_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2007.Click
      ExportToExcel(ExcelOutputFormat.xlsx)
   End Sub

The VB code to run the export to xml/xlsx Excel formats changing some columns positions:

   
   Protected Sub ExportToExcel(ByVal outputformat As ExcelOutputFormat)
      ' same sub to export to both xml and xlsx formats

      ' instatiating the GEETStandard class specifying the ExcelOutputformat
      Dim MyGEET = New GEETStandard(outputformat, User.Identity.Name, Me.Page)

      ' creating a new ExcelSheet definition - setting the sheet name and the criteria
      Dim MyExcelSheet As New ExcelSheet("move test", "Moving a column")
      Dim MyColumnList As New ExcelColumns()
      ' generating the column list from Sql Data Source
      MyColumnList = GEETFunctions.LoadColumnsListFromSQLDatasource(Me.SqlDataSource1, False, False)

      ' setting column headers to trace movements
      Dim i As Int16 = 0
      For Each EC As ExcelColumn In MyColumnList
         EC.ColumnHeader = "Position " & i.ToString()
         i += 1
      Next

      ' getting the column to move index
      Dim ColumnToMoveIndex As Int32 = DropDownList1.SelectedValue
      ' getting the new postion of the column
      Dim Destination As Int32 = DropDownList2.SelectedValue

      ' setting the column header of the column to move
      MyColumnList(ColumnToMoveIndex).ColumnHeader = MyColumnList(ColumnToMoveIndex).ColumnHeader & " moved to " & Destination.ToString
      ' move the column
      MyColumnList.Move(ColumnToMoveIndex, Destination)

      ' assigning the column list to the Excel Sheer
      MyExcelSheet.ColumnsList = MyColumnList
      ' setting the Excel Sheet datasource
      MyExcelSheet.SDS = Me.SqlDataSource1
      ' adding the Excel Sheet to the Workbook definition
      MyGEET.GEETExcelWorkbookDefinition.ExcelSheets.Add(MyExcelSheet)
      'run the export
      MyGEET.Execute()
   End Sub

Ask info

Click here to buy the Gridview to Excel Export Tool

Free Download

Ing Ettore Cefalà - via Conca del Naviglio,5 - 20123 - Milano - P.IVA: 07902170153