How to act with ShowAllData in Excel

[Dizzy]

Hi,

i've a little problem with filter in excel.

I want to open an existing *.xlsx document and delete a special range.

Do to this, i've to clean any filters.

This schould work whether filters are set or not.

Here is a piece of code:

Opt("MustDeclareVars", 0)
Global $excelfile = @ScriptDir & "\new.xlsx"

$oExcel = ObjCreate("Excel.Application")
$oExcel.Visible = 0
$oExcel.Workbooks.Open ($excelfile)

;This won't work
$oExcel.ActiveSheet.ShowAllData

$oExcel.Range ("A1").Select
$oExcel.ActiveWorkbook.Save
$oExcel.Workbooks.close
$oExcel.Quit

Thx

Dizzy

[Dizzy]

OK - i found a solution in VBA.

I didn't have to use ShowAllData ...

Opt("MustDeclareVars", 0)

Global $exceldatei = @ScriptDir & "\new.xlsx"

$oExcel = ObjCreate("Excel.Application")

$oExcel.Visible = 0

$oExcel.Workbooks.Open ($exceldatei)

; Set AutoFilterMode to False if it was used

If $oExcel.ActiveSheet.AutoFilterMode then $oExcel.ActiveSheet.AutoFilterMode=False

$oExcel.Range ("A1").Select

$oExcel.ActiveWorkbook.Save

$oExcel.Workbooks.close

$oExcel.Quit

Thx

Dizzy