>Hi
>
>How would I return a list of worksheets from an excel spreadsheet.
>
>Thanks
>
>Nick Mason

lcFileName = GetFile('xls')
oExcel = createobject('Excel.Application')
oExcel.Workbooks.Open(m.lcFileName)
with oExcel.ActiveWorkbook
  dimension aSheets[.Sheets.Count]
  for ix=1 to .Sheets.Count
    aSheets[m.ix] = .Sheets(m.ix).Name
  endfor
endwith
oExcel.quit
disp memo like aSheets

Cetin