Le forum (ô combien francophone) des utilisateurs de Powerbuilder.
Bonjour,
Dans notre produit, nous avons réalisé une consultation des commandes avec plus de critéres de sélection et des affichages variant en fonction de ceux-ci :
colonnes masquees
colonnes compute fields
changement de couleur
nos clients aimeraient bien exporter cette liste sous EXCEL
Or, dans le saveas au format excel (PB10), l'export est plutot brute :
toutes les colonnes SQL sont affichees
pas les computes fileds
Existe-t-il une autre méthode d'exportation sous excel ??
D'avance merci
Cordialement
Le gone de lyon
Hors ligne
Bonjour,
Pour exporter sous Excel, il y a aussi la solution d'utiliser les objets OLE.
Tu pourras trouver des exemples d'implémentation sur ce forum.
Hors ligne
Bonjour,
je suis en train de générer l'export via OLE EXCEL.
J'ai trouvé un certain nombre de renseignements.
(formatage colonne, format nombre, ....)
je voudrais supprimer une colonne (par exemple la colonne 3)
La syntaxe est : ole_execl.columns(3).Delete shift=:xltoleft (syntaxe VB)
Le probleme est sur la saisie de l'option (shift=xltoleft) (décalage à gauche des colonnes
Le blanc entre Delete shift=xltoleft génére une erreur à la compilation.
Je n'arrive pas à transformer la syntaxe VB en OLE EXCEL (PB)
De même, je cherche à encradrer une zone avec la syntaxe OLE EXCEL (PB)
Avez vous des solutions
d'avance merci
Le gone de lyon
Hors ligne
ole_execl.columns(3).Delete shift=:xltoleft (syntaxe VB)
typiquement en PB : ole_execl.columns(3).Delete( constante_xltoleft [,autres args] )
il faut trouver la valeur de la constante xltoleft et vérifier les arguments de la fonction, il peut y en avoir d'autres
EDIT :
xlToLeft = -4159
la syntaxe Delete(Shift) s'applique à un range, quand tu supprimes une colonne complète tu n'as pas à le spécifier (?)
Delete method as it applies to the Range object.
Deletes the object.
expression.Delete(Shift)
expression Required. An expression that returns a Range object.
Shift Optional Variant. Used only with Range objects. Specifies how to shift cells to replace deleted cells. Can be one of the following XlDeleteShiftDirection constants: xlShiftToLeft or xlShiftUp. If this argument is omitted, Microsoft Excel decides based on the shape of the range.
Hors ligne
Bonjour il existe sinon dwl2xls.
http://desta.com.ua/dw2xls/
Cela fonctionne bien, pas besoin d'avoir excel sur son poste et le cout est assez faible.
Hors ligne