Open XLS add Filter to selected columns

[Leosy]

Hello.

I need open XLS file and add "filter"/"autofilter" columns.
Could you help me with this ?

Function OK()

Const ForReading = 1
Const ForWriting = 2

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True

Set objFile = bjFSO.objExcel("C:\07-05-2012.xls", ForReading)

Excel.Range("A1:Z23").Autofilter 

Set objFile = objFSO.objExcel("C:\Result.xls", ForWriting)

objFile.Write strNewContents
objFile.Close

Set objFile = Nothing
Set objFSO = Nothing

End Function

but it doesnt work

could you help me ?

 

[Leosy]

Now it working

OK

Function OK()
  dim wb

  Set objExcel = CreateObject("Excel.Application")
  set wb = objExcel.Workbooks.Open("C:\BegoExcel\(Bego)-BONDUELLE-Rapport de sauvegarde du 07-05-2012 - Copy.xls")

  wb.worksheets(1).Range("A1:Z23").Autofilter
  wb.save
  wb.close

  set wb = nothing
  Set objExcel = Nothing
End Function

I've defined Function but haven't called it. Called it by putting the OK