Excel Sorting by Rows or/and Columns (Ascending or Descending)

'Represents the sorting type 1 for Ascending, and 2 for Descending.
''Excel Sorting By Colum : You may parameterise the hard coded values
Function ExcelSortByColumns()
Const xlAscending = 1
Const xlYes = 1

'Create the excel object
Set objExcel = CreateObject(“Excel.Application”)
'Make excel visible
objExcel.Visible = True
'Open the document
Set objWorkbook = objExcel.Workbooks.Open(“C:\Users\sgajre\Desktop\ListOfTopics.xls”)
'select the sheet based on the index .. 1,2 ,3 …
Set objWorksheet = objWorkbook.Worksheets(1)
'Select the range of the cells which has some data other than blank
Set objRange = objWorksheet.UsedRange
'select the column to sort
Set objRange2 = objExcel.Range(“A1″)

objRange.Sort objRange2, xlAscending, , , , , , xlYes
set objExcel=nothing
End Function

'Represents the sorting type 1 for Ascending, and 2 for Descending.
''Excel Sorting By Row: You may parameterise the hard coded values
Function ExcelSortByRows()
Const xlAscending = 1
Const xlNo = 2
Const xlSortRows = 2

Set objExcel = CreateObject(“Excel.Application”)
objExcel.Visible = True

Set objWorkbook = objExcel.Workbooks.Open(“C:\Users\sgajre\Desktop\ListOfTopics.xls”)
Set objWorksheet = objWorkbook.Worksheets(1)
objWorksheet.Cells(1,1).activate

Set objRange = objExcel.ActiveCell.EntireRow
objRange.Sort objRange, xlAscending, , , , , , xlNo, , , xlSortRows
set objExcel=nothing
End Function