Database Search
If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.
TechHome
OLE with Excel
 |
- 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 Multiple Columns
Keywords: OLE sorting multiple columns excel
Question:
I want to sort an Excel sheet with OLE. So far, I can open the sheet, select the sort zone, but I am stuck there.I did the sort using an Excel macro that looks like this:
Range("A1:C100").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
My code at this point is:
objExcel = ObjectOpen("Excel.Application")
objExcel.DisplayAlerts = @false
objExcel_Document = objExcel.WorkBooks
objExcel_Document.OpenText("test.xls")
objWork_Space = objExcel.activeworkbook
objWork_Sheet = objWork_Space.worksheets("test")
objWork_Sheet.Activate
objCell = objWork_Sheet.range("A1:C100")
objcell.select
How can I use the SORT function on my selection ?!?
Answer:
Make sure the following constants are defined in your code:xlAscending=1 xlGuess=0 False=0 xlTopToBottom= 1For information on constant values see Article ID: W14910.
This should work:
objExcel = ObjectOpen("Excel.Application")
objExcel.DisplayAlerts = @false
;objExcel.visible = @true
objExcel_Document = objExcel.WorkBooks
objExcel_Document.OpenText("C:\temp\test.xls")
objWork_Space = objExcel.activeworkbook
objWork_Sheet = objWork_Space.worksheets("test")
objWork_Sheet.Activate
objRange = objWork_Sheet.Range("A1:C100")
;objRange.select
xlAscending = 1
xlGuess = 0
xlSortColumns = 1
objRange.Sort(:: Key1=objRange,Order1=%xlAscending%, Header=%xlGuess%, OrderCustom=1, MatchCase=0, Orientation=%xlSortColumns%)
ObjectClose(objExcel_Document)
ObjectClose(objWork_Space)
ObjectClose(objExcel)
Question (cont'd):
YES!!!!!!!This works. Now the last step: sort on multiple columns.
If I select multiple columns with:
objRange = objWork_Sheet.Range("A:Z")
The macro gives:
Selection.Sort Key1:=Range("B1"), Order1:=1, Key2:=Range("A1"), Order2:=1, Header:=0,
OrderCustom:=1, MatchCase:=0, Orientation:=1
How can I supply the values for Key1 and Key2 ?
Answer:
This will do it:
objRange = objWork_Sheet.Range("A:BZ")
key_1 = objWork_Sheet.Range("A2")
key_2 = objWork_Sheet.Range("H2")
objRange.Sort(:: Key1=key_1, Order1=1, Key2=key_2, Order2=1, Header=1, OrderCustom=1,
MatchCase=0, Orientation=1)
Article ID: W15259
File Created: 2002:09:05:13:50:52
Last Updated: 2002:09:05:13:50:52