OLE EXCEL Methode saveasRésolu

Question

Bonjour à Tous,

  Je suis entrain de faire un programme en delphi,
qui dois convertir un format donné en entré  en une feuille excel.
exemple  Toto.csv devient Toto.xls, ou toto.txt devient toto.xls
Tous se passe à peu près bien sauf que:
j'utilise la méthode SAVEAS comme ceci

Excelworkbooks.SaveAs(FichiersXLS)

Là mon classeur reste ouvert , et me demande, à quel format je veux enregistrer ma feuille.
Après bien des recherches sur internet j'ai trouvé  un site en anglais qui  m'a fait rajouter ceci

Excelworkbooks.SaveAs(FichiersXLS,-4143)  pourquoi comment je n'en sais rien.

en fait il semblerait  que la syntaxe de SaveAs soit la suivante
expression.SaveAs(Filename, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AddToMru, TextCodePage, TextVisualLayout)

Ma question est la suivante:

Je cherche désespérément , tous les paramètres , que l'on peut passer à fileformat,
ou aux autres objets OLE, si quelqu'un à de la doc, un livre , un lien 
s'il vous plait, je suis preneur.
D'avance Merci 

couf

cs_Kenavo · Accepted Answer

Si tu as une version de Delphi Pro ou plus, tu as les fichiers .pas dasn le répertoire par défaut C:\Program Files\Borland\Delphi7\Ocx\Servers

Et dedans il y a :

// Constants for enum XlFileFormat
type
  XlFileFormat =  TOleEnum;
 const 
  xlAddIn  = $00000012;
  xlCSV = $00000006;
  xlCSVMac = $00000016;
  xlCSVMSDOS = $00000018;
  xlCSVWindows = $00000017;
  xlDBF2 = $00000007;
  xlDBF3 = $00000008;
  xlDBF4 = $0000000B;
  xlDIF = $00000009;
  xlExcel2 = $00000010;
  xlExcel2FarEast = $0000001B;
  xlExcel3 = $0000001D;
  xlExcel4 = $00000021;
  xlExcel5 = $00000027;
  xlExcel7 = $00000027;
  xlExcel9795 = $0000002B;
  xlExcel4Workbook = $00000023;
  xlIntlAddIn = $0000001A;
  xlIntlMacro = $00000019;
  xlWorkbookNormal = $FFFFEFD1;  
  xlSYLK = $00000002;
  xlTemplate = $00000011;
  xlCurrentPlatformText = $FFFFEFC2;
  xlTextMac = $00000013;
  xlTextMSDOS = $00000015;
  xlTextPrinter = $00000024;
  xlTextWindows = $00000014;
  xlWJ2WD1 = $0000000E;
  xlWK1 = $00000005;
  xlWK1ALL = $0000001F;
  xlWK1FMT = $0000001E;
  xlWK3 = $0000000F;
  xlWK4 = $00000026;
  xlWK3FM3 = $00000020;
  xlWKS = $00000004;
  xlWorks2FarEast = $0000001C;
  xlWQ1 = $00000022;
  xlWJ3 = $00000028;
  xlWJ3FJ3 = $00000029;
  xlUnicodeText = $0000002A;
  xlHtml = $0000002C;
  xlWebArchive = $0000002D;
  xlXMLSpreadsheet = $0000002E;

Ken@vo



 



Code, Code, Codec !






[%3C/body 
]

cs_Kenavo · Answer

Salut

Regarde ici

Ken@vo




 



Code, Code, Codec !






[%3C/body 
]

cs_couf · Answer

Salut KENAVO,

En fait je vais être un peu plus embétant la page que tu me donnes c'est bien,
mais ce que je cherche c'est la conversion , en fait j'ai trouvé
xlWorkbookNormal = -4143

donc si je met dans mon code 
Excelworkbooks.SaveAs(FichiersXLS,xlWorkbookNormal)il me marque
à la compilation 
" [Erreur] convert.dpr(42): Identificateur non déclaré : 'xlWorkbookNormal'"

Si je marque

Excelworkbooks.SaveAs(FichiersXLS,-4143)
toute se passe bien
en fait dans la page que tu m'as donné j'aurai aimé avoir les valeurs numériques des fileformat

couf

cs_couf · Answer

YES!!!!!!!!!
Merci beaucoup
tu es génial

couf

OLE EXCEL Methode saveas

4 réponses

Votre réponse

Discussions similaires