Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Excel installed
Message
De
09/09/2008 13:19:33
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Vista
Network:
Windows 2008 Server
Database:
MS SQL Server
Divers
Thread ID:
01345964
Message ID:
01346121
Vues:
10
Ah yes. That's probably where I got it. Thanks we should give Cetin credit.

>Looks like it comes from this message Re: Running Excel from VFP App Thread #1119766 Message #1119816
>
>You may want to add some comments on the top.
>
>>>To work with Excel, I have this line:
>>>
>>>oExcel = CreateObject("Excel.Application")
>>>
>>>When running on a PC without Excel, got this error:-
>>> "Class definition EXCEL.APPLICATION is not found."
>>>
>>>What is the best way to avoid this error?
>>>
>>>Cyril
>>Here is the code I use.
>>
>>if ! IsClassRegistered("Excel.Application")
>>	messagebox("Excel cannot be found on this PC. You must have Excel installed " + ;
>>	"to run this procedure." + chr(10) +  "For further assistance please contact your software vendor.",16,"Error message")
>>	return
>>endif
>>
>>
>>function IsClassRegistered
>>	lparameters tcClass
>>	#define HKEY_CLASSES_ROOT    -2147483648
>>	#define ERROR_SUCCESS		0	&& OK
>>
>>	declare integer RegOpenKey in Win32API ;
>>		integer nHKey, string @cSubKey, integer @nResult
>>
>>	declare integer RegCloseKey in Win32API ;
>>		integer nHKey
>>
>>	local lnKey
>>	lnKey = 0
>>	llRetVal = ( RegOpenKey(HKEY_CLASSES_ROOT, tcClass, @lnKey) = ERROR_SUCCESS )
>>	if llRetVal
>>		RegCloseKey(lnKey)
>>	endif
>>	return llRetVal
>>endfunc
>>
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform