General information
Category:
Coding, syntax & commands
That didn't work.
>>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?
>
>Hi Jim,
>
>From the quick glance in your code it seems like you should use name expression in your last statement as I showed.
>
>Also could be there some strange/exotic names?
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only