How to Open and Save in Excel

[ryupb]

I have this question answered before in Word, however, I dint thought I will encounter this in excel...

How do I open an Excel file and later on saving it as a HTM file??

 

[baltman]

Excel - How to do Automation from VFP
faq184-4428

For an html file saveas try:

lcMyFile="test.xls"

loExcel=CREATEOBJECT("excel.application")
loExcel.Workbooks.Open(lcMyFile)
loExcel.visible=.t.
loExcel.ActiveWorkbook.SaveAs(juststem(lcMyFile),44)
loExcel.quit

 

[ryupb]

Thanks Baltman..... will try it out now...

 

[ryupb]

Baltman....

it seems that the saveas works ok.. however, is there a way where I can change the folder where the program will save the file???

currently the program is saving the file in the my documents folder....

 

[Mike Gagnon]

Have you tried using the above suggestion with a fullpath?

lcMyFile="c:\test.xls"
loExcel=CREATEOBJECT("excel.application")
loExcel.Workbooks.Open(lcMyFile)
loExcel.visible=.t.
loExcel.ActiveWorkbook.SaveAs("c:\program files\myBook.xls")
loExcel.quit

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[ryupb]

Hi Mike.....

I tried using the full path.. however if i incorporate the full path to baltman's sample.. i encounter an error.... with regards to your sample.. I was trying to save the file as an htm file...

thanks......

 

[baltman]

Sorry... was away at work all day.

This should do it.

Brian

lcMyFile="c:\test.xls"
loExcel=CREATEOBJECT("excel.application")
loExcel.Workbooks.Open(lcMyFile)
loExcel.visible=.t.
loExcel.ActiveWorkbook.SaveAs(ADDBS(JUSTPATH(lcMyFile))+JUSTSTEM(lcMyFile),44)
loExcel.quit