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 a Variable Range in Excel
Keywords: Sort Range Excel
Question:
I am trying to sort a variable range of Rows and Columns and not succeeding.
XLFileText = "C:\CBSC\TrAFIc\024\024.txt"
XLFileXls = "C:\CBSC\TrAFIc\024\024.xls"
xlFileFormat = 43 ; xls FileFormat Office XP = 43; Office 95/97 = 6
xlDown = -4121
xlToRight = -4161
XL = ObjectOpen("Excel.Application")
XL.Visible = @True
XL.DisplayAlerts = @FALSE
WB = XL.Workbooks
WB.OpenText(XLFileText,932,1,1,1,@false,@true,@true,@false,@false,@false)
WS = XL.Worksheets(1)
WS.Activate
WS.SaveAs(XLFileXls,xlFileFormat, , , , ,@False)
SR = WS.Range ("A6")
SR.Select
;This does not work
SR.End(xlDown)
SR.Select
SR.End(xlToRight)
SR.Select
; This line returns an OLE Exception probably because
; the above End.Select statements do not work !
SR.Sort("G6", 2, 0, 1, @False, 1, 0)
;Macro produced by VBA to Sort a variable Range of Rows and Columns
;Range("A6").Select
; Range(Selection, Selection.End(xlDown)).Select
; Range(Selection, Selection.End(xlToRight)).Select
; Selection.Sort Key1:=Range("G6"), Order1:=xlDescending, Header:=xlGuess, _
; OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
; DataOption1:=xlSortNormal
Row = 1
Range = WS.Range("A6:G9")
WS.Select
For Row = 1 to 4
Data = ""
Cell = Range.Cells(%Row%,7)
Data = Cell.Value
;Real code to eventually replace this message
message("","Row=%Row%, Data=%Data%")
Next
message("End of Test","")
WB.Close()
XL.Quit
ObjectClose(XL)
Exit
Answer:
Here is the revised code that most closely matches the portion of VB macro code you posted:
XLFileText = "C:\CBSC\TrAFIc\024\024.txt"
XLFileXls = "C:\CBSC\TrAFIc\024\024.xls"
xlFileFormat = 43 ; xls FileFormat Office XP = 43; Office 95/97 = 6
xlDown = -4121
xlToRight = -4161
XL = ObjectOpen("Excel.Application")
XL.Visible = @True
XL.DisplayAlerts = @FALSE
WB = XL.Workbooks
WB.OpenText(XLFileText,932,1,1,1,@false,@true,@true,@false,@false,@false)
WS = XL.Worksheets(1)
WS.Activate
WS.SaveAs(XLFileXls,xlFileFormat, , , , ,@False)
SR = WS.Range ("A6")
SR.Select
selection = XL.Selection
col1 = Selection.End(xlDown)
range1 = WS.Range(Selection, col1 )
range1.Select
selection = XL.Selection
col2 = Selection.End(xlToRight)
range2 = WS.Range(Selection, col2)
range2.Select
selection = XL.Selection
xlTopToBottom = 1
xlGuess = 0
xlDescending = 2
rangeobj = WS.Range("G6")
Selection.Sort(:: Key1=rangeobj, Order1=%xlDescending%, Header=%xlGuess%, OrderCustom=1, MatchCase=0, Orientation=%xlTopToBottom%)
Row = 1
Range = WS.Range("A6:G9")
WS.Select
For Row = 1 to 4
Data = ""
Cell = Range.Cells(%Row%,7)
Data = Cell.Value
;Real code to eventually replace this message
message("","Row=%Row%, Data=%Data%")
Next
message("End of Test","")
WB.Close()
XL.Quit
ObjectClose(XL)
Exit
Article ID: W15644
File Created: 2003:05:13:11:29:20
Last Updated: 2003:05:13:11:29:20