Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Saving and closing Excel file properly
Message
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Miscellaneous
Thread ID:
01396469
Message ID:
01396525
Views:
56
See also Re: Void excel 'To save?' message Thread #1396028 Message #1396040

>Hi,
>
>Here's an annoying problem I have. I want to transform a .XLS file into a .CSV file. I found that it's not possible to have semi-colom delimitation so I go with TAB delimiter.
>
>
>oExcel = CREATEOBJECT("Excel.Application")
>WITH  oExcel.Workbooks.Open(cFichier)
>
>	***Nom du nouveau CSV
>	cNewFichier = JUSTPATH(cFichier) + JUSTFNAME(cFichier) + ".csv"
>	IF FILE(cNewFichier)
>		ERASE cNewFichier
>	ENDIF 
>
>	WAIT WINDOW cNewFichier
>	.SaveAs(cNewFichier)
>	.close()
>ENDWITH 
>
>oExcel.Quit()
>oExcel.visible = .T.
>oExcel = NULL
>RELEASE oExcel
>...
>APPEND FROM cNewFichier DELIMITED WITH TAB
>...
>
>
>
>The file saves properly with the saveas() method, but right on the next line ( ".close()") it asks me if I want to save the file which doesn't seem to make sense.
>
>The second problem, definitly related to that is that my APPEND FROM says that the file does not exist (even though it does). If I replace the cNewFichier with the "?", I open the CSV file manually and it does work.
>
>Thank you!
If it's not broken, fix it until it is.


My Blog
Previous
Reply
Map
View

Click here to load this message in the networking platform