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:
01048893
Vues:
21
This message has been marked as a message which has helped to the initial question of the thread.
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
>>>
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform