xl:=ComObjCreate("Excel.Application")
xl.Visible:=true
xl.Workbooks.Add()
Sheets :=  xl.ActiveWorkbook.Sheets.count
Loop,%Sheets%
{
    i++
    MsgBox % xl.ActiveWorkbook.Sheets(a_index).Name
}