OLE EXCEL Methode saveas

Résolu
Signaler
Messages postés
213
Date d'inscription
dimanche 5 janvier 2003
Statut
Membre
Dernière intervention
6 janvier 2011
-
Messages postés
213
Date d'inscription
dimanche 5 janvier 2003
Statut
Membre
Dernière intervention
6 janvier 2011
-
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

4 réponses

Messages postés
702
Date d'inscription
vendredi 21 mars 2003
Statut
Membre
Dernière intervention
1 octobre 2009
4
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
]
Messages postés
702
Date d'inscription
vendredi 21 mars 2003
Statut
Membre
Dernière intervention
1 octobre 2009
4
Salut

Regarde ici

Ken@vo








Code, Code, Codec !






[%3C/body
]
Messages postés
213
Date d'inscription
dimanche 5 janvier 2003
Statut
Membre
Dernière intervention
6 janvier 2011
1
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
Messages postés
213
Date d'inscription
dimanche 5 janvier 2003
Statut
Membre
Dernière intervention
6 janvier 2011
1
YES!!!!!!!!!
Merci beaucoup
tu es génial

couf