Convertir DBF en XSL avec Harbour

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

6 réponses

  1. 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
    0
    1. 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
      0
      1. 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
        0
        1. Pour trouver les librairies Harbour, voir le site de Giovanni Di Maria :
          www.elektrosoft.it/tutorials/Harbour-Reference-Guide/harbour-complete-functions-list.htm
          0
          1. 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
            0
            1. 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
              0