Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Saving and closing Excel file properly
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Divers
Thread ID:
01396469
Message ID:
01396776
Vues:
51
Try APPEND FROM (cNewFichier) DELIMITED WITH TAB
or APPEND FROM &cNewFichier DELIMITED WITH TAB
along with the warning off


>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!
Edgar L. Bolton, B.S. B.B.A.
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform