Convertir DBF en XSL avec Harbour Fermé

Question

Bonjour, 

Je cherche des infos pour transformer des fichiers dbf en xls en pror sous harbour, sous Clipper j'utilisais CLPWKS mais cela ne semble pas compatible avec Harbour.

Je dois dire que j'ai un peu de mal à trouver des library pour harbour.

Merci pour quelques tuyaux


Thierry





Configuration: Windows 7 / Chrome 22.0.1229.79

bernard.mouille · Answer

Bonjour Thierry,

Je ne sais pas comment marche CLPWKS, si tu peux me donner un exemple des fonctions utilisées afin de voir si une librairie Harbour la remplace.

Si Excel est installé sur ta machine, je t'ai mis un petit exemple dans la rubrique
Hb WIN_OLECREATEOBJECT( "Excel.Application" )
bernard.mouille.free.fr/0_Harbour/ZD00000021( les liens ne fonctionnent pas sur ce forum.

A+

Bernard

famillejo · Answer

Bonjour Bernard,
J'ai déjà regardé ce code, il est sur ton site je crois, mais ce n'est pas possible car mes clients n'ont pas forcement Excel, plutôt open office ou même pas de tableur. Mes programmes doivent creer des fichiers excel pour être envoyés par mail à un tiers.

sinon voici quelques lignes 

            function cre_xls(xfich)
local wnb:=fcount(),wchaine:="",impZ:={},impE:={},i

*
*   je suis dans mon dbf et je prepare un tableau avec le nom des zones
*
go top
for i=1 to wnb
   xx=field(i)
   if type(xx)<>"U"
      wchaine+=',"'+field(i)+'"'
   endif
NEXT i
wchaine=substr(wchaine,2)
impz:= &("{"+wchaine+"}")

*
* je clone le tableau des zones pour en faire un tableau de titre de colonne
*
impE:=aclone(impZ)
*
* je bricole un peu la date because library usa
*
set date usa
*
* je lance la fonction de CLPWKS (E4 est le format de fichier Excel, ce doit être un *très vieux format 
*
lexport(rtmp+"TEMP.XLS",impz,impE,"ALL","E4")
set date french
*
*   le fichier TEMP.XLS est crée dans mon rep temporaire
*
LF_fcopy(rtmp+"TEMP.XLS",xfich)
mes_fin("Cr'ation du fichier : "+chr(13)+chr(10)+xfich)
return nil

bernard.mouille · Answer

Re-bonjour Thierry,

La solution actuelle est d'acheter la librairie LibXl qui coûte 199 Dollards US.
J'ai déjà fait des bouts de programmes avec cette librairie en version de démonstration qui te rajoute 2 lignes d'infos de démonstration en tête du fichier créé.

J'avais déjà suivi les discussions à propos de la création de fichiers xls, mais il n'y a pas d'autres solutions.

En dBasePlus, j'ai aussi des programmes d'automation d'Open Office Calc, mais tes clients n'ont pas forcément de tableur.

Dis-moi si tu comptes essayer, puis acheter LibXl afin de te mettre quelques exemples ( on utilise le language C compilé avec Harbour )

Ast-tu les sources de ta librairie CLPWKS ?

A+

Bernard

bernard.mouille · Answer

Pour trouver les librairies Harbour, voir le site de Giovanni Di Maria :
www.elektrosoft.it/tutorials/Harbour-Reference-Guide/harbour-complete-functions-list.htm

famillejo · Answer

Ok pour les library, j'ai vu un truc sur hbmxml qui peut faire des fichier xml lisible par excel et openoffice. en cherchant sur internet j'ai vu des sources en fox pro là dessus, je vais regarder cette piste.

par contre je n'ai pas les sources de CLPWKS

Thierry

bernard.mouille · Answer

Ouf,

J'ai retrouvé des sources de CLIPWKS.

J'ai un problème, il y a une fonction en ASM et je ne sais pas comment l'utiliser avec Harbour.

Je te zippe le dossier et te l'envoie par mail.

@+

Bernard

Convertir DBF en XSL avec Harbour

6 réponses

Discussions similaires