Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to automate Excel cell value update
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows XP
Network:
Windows 2000 Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01048875
Message ID:
01048893
Views:
22
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
>>>
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform