Completely foxed by excel

[Clunietp]

this will open an EXCEL workbook, sort the columns, and close the document (currently does not save changes)

Add a reference to Microsoft Excel x.0 Object Library

    Dim xl As Excel.Application
    Dim wb As Excel.Workbook
    
    Set xl = New Excel.Application
    
    Set wb = xl.Workbooks.Open("C:\test4.xls")
    
    With wb.Application
        
        .Columns("B:B").Select
        .Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        
        .Columns("C:C").Select
        .Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    End With
    
    wb.Close False
    
    xl.Quit
    Set xl = Nothing

Enjoy!

Tom

Dear all

I've got completely stuck using excel. I have a programme that creates a text file and then opens it in Excel. What I want to do next is sort columns B and C in ascending order. I've tried a couple of different approaches and every time something goes wrong!!!

I not sure how to control Excel from within vb.

thanks in advance
V