Discussion :

[caviar44]

Bonjour,

J'ai developper une application sous delphi permettant de piloter Excel.

Je souhaiterais savoir comment sauvegarder ma feuille active au format Csv et Texte séparé par tabulation ?

Quels sont les paramètres pour que çà fonctionne ?

J'ai essayé avec les lignes suivantes mais çà ne marche pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 DestFileName := 'd:\newPrice.csv';
    vUnused := unassigned;
    vSeparator := 9; //tab
    vXLWorkbook.Saveas     (DestFileName,, vUnused, vUnused, vSeparator);

Ou pourrais je trouver la documentation sur la commande "saveAs' pour Excel ?

Merci d'avance

Caviar

[Lung]

C'est pas quelque chose comme ca ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   ActiveWorkbook.SaveAs(DestFileName, xlCSV, False);

[caviar44]

Merci beaucoup Lung pour les paramètres , çà fonctionne avec la ligne suivante : vXLWorkbook.Saveas(DestFileName,XlCSV,false);

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
OleApplicationExcel := CreateOleObject('Excel.Application');
vXLWorkbooks := OleApplicationExcel.Workbooks;
vFileName := 'd:\SourceFile.xls';
vXLWorkbook := vXLWorkbooks.Open(vFileName);
vXLWorkbook.Saveas(DestFileName,[b]XlText[/b],false);

Voici les paramètres qui fonctionnent pour le type de fichier (Second paramètre) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
xlAddIn, xlCSV, xlCSVMac, xlCSVMSDOS, xlCSVWindows, xlDBF2,
xlDBF3, xlDBF4, xlDIF, xlExcel2, xlExcel3, xlExcel4,xlExcel4Workbook, xlIntlAddIn, xlIntlMacro, xlNormal,xlSYLK, xlTemplate, xlText, xlTextMac, xlTextMSDOS,xlTextWindows, xlTextPrinter, xlWK1, xlWK3, xlWKS,          xlWQ1, xlWK3FM3, xlWK1FMT, xlWK1ALL

Caviar