Code: Select all
path = .............................xlsx
Xl := ComObjCreate("Excel.Application")
Xl.Workbooks.Open(Path)
Xl.Visible := true
xl.Worksheets(1).activate
If (xl.Worksheets(1).FilterMode)
xl.Worksheets(1).ShowAllData
Gui, Add, DateTime, w153 vMyDateTime, 'Date1:' dd.MM.yyyy
Gui, Add, Button, x+5 hp gDateRoutine, Go
Gui, Show
DateRoutine:
Gui, Submit, NoHide
FormatTime, Date1, dd.MM.yyyy
xl.Worksheets(1).Range("A1:AX1").AutoFilter(18, ">=" Date1, xlAnd := 1, "<=" "22.06.2018")