Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to automate Excel cell value update
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP
Network:
Windows 2000 Server
Database:
Visual FoxPro
Divers
Thread ID:
01048875
Message ID:
01048906
Vues:
26
It appears that I have some run-away Excel application in memory - that may be contributing to the strange behavior --- if after I reboot, I have more problems, I will send YURI the code - thanx 4 the offer...

It appears that I can .SAVE and run while .Visible


>Edgar,
>
>Probably there are some settings in your file, like protected, formatting, etc.
>
>Will this plain example work for you?
>
>oExcel=Createobject("EXCEL.APPlication")
>oExcel.Visible=.T.
>oExcel.Workbooks.Add()
>oExcel.Range("A1").Value= DATE(1990,01,01)
>....
>
>You may send the file to me to investigate, rubinov@juno.com
>
>
>>Nice try Beth,
>>but no new value is ever being recognized in the cell
>>debug shows that the cells are not changing with ...
>>
>>               cCell="A"+sRowID
>>               .Range(cCell).Select()
>>               .Range(cCell).Value= DATE(1990,01,01)&& CTOD(sA)
>>
>>this code should place 1/1/90 in the A9 cell
>>any other suggestions?
>>>
>>>>Excel gurus: HELP ---
>>>>
>>>>What commands will commit the values to an Excel spreadsheet?
>>>>
>>>>The following code has no error - - - and no update in my master spreadsheet either
>>>>extra code removed (gLogMESS shows variables are correct as does dubug stepping)
>>>>
>>>>

>>>> oExcel=CREATEOBJECT("Excel.Application")
>>>> With oExcel
>>>> .DisplayAlerts= .F.
>>>> .WorkBooks.Open(ALLTRIM("C:\Daas\Absorb_2005new.xls"),0)
>>>> .Sheets(ALLTRIM(" Buffing")).Select()
>>>> DO PopulateExcelArray
>>>> .Quit
>>>> EndWith
>>>> Release oExcel
>>>>
Edgar L. Bolton, B.S. B.B.A.
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform