Information générale
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
I found the problem. There was another instance of excel open.
>What line of code geneartes the error?
>
>>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?
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement