Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Void excel 'To save?' message
Message
 
 
À
23/04/2009 08:38:40
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Divers
Thread ID:
01396028
Message ID:
01396052
Vues:
62
You're welcome.

>Thank you
>>Try
>>
>>oSheet.Saved = .T.
>>
>>>
>>>I call excel worksheet functions from vfp.
>>>I change one cell and return value from other.
>>>As following
>>>set strictdate to 0
>>>messagebox(alltrim(gethebdate({12/16/1969})))
>>>set strictdate to
>>>function gethebdate
>>>	lparameters djdate
>>>	local chebdate
>>>	set strictdate to 0
>>>	objexcel= createobject("Excel.Application")
>>>	oworkbook = objexcel.workbooks.open('c:\c.xls')
>>>	osheet = oworkbook.activesheet
>>>	osheet.cells(3,2).value= djdate
>>>	chebdate=osheet.cells(3,3).value
>>>	objexcel.quit
>>>	return chebdate
>>>endfunc
>>>It's work fine but Excel ask me if to save the change and its very unnecessary service for me.
>>>How can I void it?
>>>Thanks
--sb--
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform