Ubuntu-fr

mond14

Convertir in fichier csv en fichier xls

Bonjour,

j'ai un fichier csv et je veux le convertir en fichier xls avec ligne de commande

et je veux savoir si il existe une possiblité de colorer la première ligne.

merci

Dernière modification par mond14 (Le 22/05/2013, à 12:50)

mond14

Re : Convertir in fichier csv en fichier xls

Bonjour,

j'ai un fichier csv et je veux le convertir en fichier xls avec ligne de commande

et je veux savoir si il existe une possiblité de colorer la première ligne.

j'ai trouvé ce code python j'ai installé le packet demandé masi ne sais pas ou je doit spécifier le chemin d fichier .

import os
import glob
import csv
import xlwt # from [url]http://www.python-excel.org/[/url]

for csvfile in glob.glob(os.path.join('.', '*.csv')):
    wb = xlwt.Workbook()
    ws = wb.add_sheet('data')
    with open(csvfile, 'rb') as f:
        reader = csv.reader(f)
        for r, row in enumerate(reader):
            for c, col in enumerate(row):
                ws.write(r, c, col)
    wb.save(csvfile + '.xls')

merci

pingouinux

Re : Convertir in fichier csv en fichier xls

Salut,
Apparemment, ce script traite tous les fichiers de la forme *.csv dans le répertoire courant.

mond14

Re : Convertir in fichier csv en fichier xls

J'ai trouvé un autre script en perle mais il focionne pas :

#!/usr/bin/perl
use strict;use warnings;
use Spreadsheet::WriteExcel;

open LIRE_CSV,"fichier.csv"
    or die "E/S : $!\n";

my $classeur = Spreadsheet::WriteExcel->new("perl.xls");
my $feuille = $classeur->add_worksheet();

while(<LIRE_CSV>){
        chomp;
        my @tmp = split /;/,$_;
        my $c = 0; # colonne commence à zéro
        my $r = $. - 1; # le nombre de ligne correspond au nombre de lignes de .csv -  1 (commence à zéro)
        foreach my $e(@tmp){
                print "$r, $c, $e\n"; # affiche à l'écran ligne, colonne, valeur (pour test) - facultatif
                $feuille->write($r,$c,$e);
                ++$c;
        }
}
__END__