Database Search

TechHome

Samples from Users

• Access OLE Query export to Excel
• Access table query to Excel
• Accessing an Existing Copy of Excel
• Add Comment Excel
• Add New Worksheet
• Add Worksheet
• Animate Excel office assistant
• Automating Excel Tutorial
• Basics with Excel OLE
• Change Currency Formats in Excel
• Check for Empty Cell in Excel
• Check if Column is Hidden
• Close Excel Object
• COM Test Use with Excel WorksheetFunction Object
• Consolidate Excel Workbooks
• convert the HISTOGRAM sheet to BMP or GIF
• CopyFromRecordset Loss of Formatting
• Create Excel Addin
• Create XL Graph
• Cutting and Pasting a Cell in Excel
• Delete Column
• Determine Excel File Format Type
• Determine First and Last Row and Column Used
• Determine Version That An Excel File Was Saved In
• Determine Workbook or WorkSheet Protection
• Determine Worksheet Names in Excel Workbook
• Disable Security Warning
• Display Color Chart
• Display Column and Row Data
• Display Users on Excel Workbook
• Easy CrossTabbed Spreadsheet Creation
• Enumerate Fonts in Excel
• Enumerating Excel Commandbar Controls
• Excel - constants
• Excel - Signature Worksheet
• Excel - Simple Conditional Column Hiding
• Excel 2000 - Inserting Hyperlinks with OLE
• Excel 2003 Tips
• Excel 2007 and Windows Server 2008 x64 Problem
• Excel and SaveAs Method
• Excel AutoFilter Method
• Excel Custom Variables
• Excel Dynamic Range Simple Example
• Excel File Conversion Using SaveAs
• Excel Filtering Function
• Excel Get Formatted Tables From Web Pages
• Excel Move Sheet
• Excel ObjectGet and UAC
• Excel OLE - List Named Ranges
• Excel Paste Special
• Excel Power Point Example
• Excel Print Landscape Scaled problem
• Excel Proper Case
• Excel Replace String
• Excel Time Format
• Excel to PDF
• Excel unlock some cells in a protected worksheet
• Excel Worksheet Change
• Export Excel Data to Tab Delimited Text File
• Exporting Excel Pictures
• Extract Data from specific Range in Closed Excel WorkBook
• Fastest Way to Copy Data To Excel
• Find Method in Excel
• Finding Data in Excel Cells
• Format Excel Column
• Get All Rows of Data in a Column
• Get Data Row by Row in Excel
• Get SaveAs to Close without Alert Box
• Getting Rowcount from Excel Database
• Grab Data from All WOrksheets in a Workbook
• Handle Errors in Cells
• Hide - Unhide Columns in Excel
• How to Execute Excel Function via OLE - COM
• Import a text file into an Excel Column
• Import CSV file into Excel
• Import Tab Delimited Text File
• Insert a Tracking Module in Excel Workbooks
• Inserting Pagebreaks into Excel Sheet
• Load WIL Array into Excel
• Making a Chart in Excel
• Number of pages in Excel worksheets
• ObjectGet and Excel
• OLE and Excel - Adding Cells to Workbook
• OLE and Excel - Spreadsheet Calculation
• OLE and Excel - The Basics
• OLE and Excel Animation Example
• OLE and Excel BuiltinDocumentProperties
• OLE Excel - Cutting and pasting cells problem
• OLE Excel and Outlook Examples
• OLE Excel Example that reads text from cells
• OLE with Excel and Named Parameters
• OLE with Parameters and Excel
• Open Existing Excel File And Insert Row
• Open Password Protected Excel file via OLE
• Playing Around with ADO and Updating dBase Files
• Playing Around with ADO and Updating Excel Columns
• Print All Sheets in a WorkBook
• Print Excel Worksheets
• Printing Workbooks from Excel
• Push Code into Excel using OLE
• Put Excel Column into an Array
• Reference a Specific Excel Workbook Instance
• Rename Existing Excel Worksheet
• Resize child windows in Excel
• Row Count
• Run an Excel Macro
• Run Excel Macro
• Save XLS file as a CSV file
• Search Excel for Cells and Items
• Search Excel Spreadsheet
• Set AutoSize for Cell Comment
• Set Cell Borders and Font
• Set Excel Default Path on Start-up
• Set Number of Sheets in Workbook
• Setting Proper Case in Range of Cells
• Showing the Value of Excel Dynamic Ranges
• Simple Excel Read
• Size of an EXCEL spreadsheet
• Sort Columns in XLS
• Sorting a Variable Range in Excel
• Sorting Multiple Columns
• Sorting Worksheets inside a Workbook
• SumProduct Function in Excel
• Testing the WorkSheetFunction Object
• TextToColumns FieldInfo Embedded Array Parameter Issue
• UDF for Excel Constant References
• UDF to Determine Worksheet Names in Excel Workbook
• Update Excel Cells
• Updating Worksheet Links
• Wait for Excel Add-in to Load
• Winbatch ADO Script - For EXCEL
• Working with Excels Built-in Dialogs
• Wrap Text in Excel Cell
• Write Data to an XLS file

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Sorting Worksheets inside a Workbook

:OpenExcelFileSortWorksheets

SortAsc = @TRUE      ; how to sort

xlsFilename = AskLine("Excel OLE Example", "Enter the Path & Filename", "C:\test\MyExcelFile.xls")

Excel = ObjectOpen("Excel.Application")
Excel.visible = @TRUE
Excel.Workbooks.Open(xlsFilename)
;
;message("debug", strcat("There are ", Excel.Workbooks(1).Worksheets.count, " worksheets in this workbook."))

wrkBook = Excel.Workbooks(1)
wsList = ""

;   first inventory the workbook...
For x = 1 To wrkBook.Worksheets.count
   wsList = ItemInsert(wrkBook.Worksheets(x).name, -1, wsList, @LF)  ; use LF just for nice display...
Next
;   sort the list...
wsList = ItemSort(wsList, @LF)
;message("Debug", wsList)

;   from the macro...
;    Sheets("Southwest").Select
;    Sheets("Southwest").Move Before:=Sheets(1)

If SortAsc
   ;   move in reverse order to sort Ascending...
   For x = ItemCount(wsList, @LF) To 1 By -1
      ThisName = ItemExtract(x, wsList, @LF)
      ;   grab named worksheet, make it the first sheet...
      wrkBook.Worksheets(ThisName).move(::Before=wrkbook.Worksheets(1))
   Next
Else
   ;   ...other direction to sort Descending...
   For x = 1 To ItemCount(wsList, @LF)
      ThisName = ItemExtract(x, wsList, @LF)
      ;   grab named worksheet, make it the first sheet...
      wrkBook.Worksheets(ThisName).move(::Before=wrkbook.Worksheets(1))
   Next
EndIf

Excel.Workbooks(1).Save()
Excel.quit
Excel = 0
Return

Article ID:   W17163

File Created: 2007:07:03:14:28:34

Last Updated: 2007:07:03:14:28:34