I get the following error when trying to import worksheets into a table from exce: ole error code 0x80030020.

My code is as follows:

Local loExcel, lnSheets, i, lcName, laSheetNames[1]

Clear All

Use S:\VFPAPPS\DEBTSERV\DATA\BOND_REDEMPTIONS.DBF Exclusive

loExcel = CreateObject("excel.application")
loExcel.Workbooks.Open("S:\VFPAPPS\DEBTSERV\DATA\PRF-first day of month.xls")
lnSheets = loExcel.ActiveWorkbook.Sheets.Count

Dimension laSheetNames[lnSheets,1]

For i = 1 to lnSheets
lcName = loExcel.ActiveWorkbook.Sheets[i].name
laSheetNames[i] = lcName
EndFor

loExcel.Workbooks.Close()
loExcel.Quit()
Release loExcel

For i = 1 to Alen(laSheetNames)
lcName = laSheetNames[i]
Append From "S:\VFPAPPS\DEBTSERV\DATA\PRF-first day of month.xls" type xl8 sheet lcName
EndFor

What am I missing?