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:
01048898
Views:
27
Yes.
We are getting somewhere :~)

And now when I try to open my Excel - I had a message that it caused serious problems last time it was open - do I want to continue. I answered yes and I could see that the values did get populated.
The only diff that I see with YURI is that he made the process 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.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform