OLE EXCEL Methode saveas [Résolu]

Messages postés
220
Date d'inscription
dimanche 5 janvier 2003
Dernière intervention
6 janvier 2011
- - Dernière réponse : cs_couf
Messages postés
220
Date d'inscription
dimanche 5 janvier 2003
Dernière intervention
6 janvier 2011
- 1 déc. 2006 à 17:58
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
Afficher la suite 

Votre réponse

4 réponses

Meilleure réponse
Messages postés
759
Date d'inscription
vendredi 21 mars 2003
Dernière intervention
1 octobre 2009
3
Merci
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
]

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 95 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_Kenavo
Messages postés
759
Date d'inscription
vendredi 21 mars 2003
Dernière intervention
1 octobre 2009
0
Merci
Salut

Regarde ici

Ken@vo








Code, Code, Codec !






[%3C/body
]
Commenter la réponse de cs_Kenavo
Messages postés
220
Date d'inscription
dimanche 5 janvier 2003
Dernière intervention
6 janvier 2011
0
Merci
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
Commenter la réponse de cs_couf
Messages postés
220
Date d'inscription
dimanche 5 janvier 2003
Dernière intervention
6 janvier 2011
0
Merci
YES!!!!!!!!!
Merci beaucoup
tu es génial

couf
Commenter la réponse de cs_couf

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.