#!/usr/bin/perl -w

use strict

use Text::CSV

use Spreadsheet::WriteExcel

die("Usage: $0 [input filename(s)]\n") if (scalar @ARGV == 0)

my $xl = Spreadsheet::WriteExcel->new('output.xls')

foreach my $filename (@ARGV) {

my $csv = Text::CSV->new

my $wsname = $filename

$wsname =~ s/.csv//g

$wsname =~ s/-/ /g

my $ws = $xl->add_worksheet($wsname)

my $row = 1

open FH, $filenamewhile (<FH>) {

$csv->parse($_)

my @fields = $csv->fields

$ws->write("A$row", \@fields)

$row++

}close FH

}以WPS Office 2020为例，可参考以下步骤将csv文件

转换为excel文件。 1、首先，在文件夹中找到以CSV为后缀的文件，双击打开

。

2、打开后，点击WPS软件中的【文件】菜单。

3、d出下拉菜单栏，选择【另存为】选项。 4、d出对话框，选择保存

的文件类型为【Microsoft Excel】类型，点击【保存】按钮。