Perl实现将将.txt中内容写入到excel中

最新推荐文章于 2019-05-15 20:12:45 发布

刘小菜

最新推荐文章于 2019-05-15 20:12:45 发布

阅读量1.7k

点赞数

分类专栏： perl 文章标签： excel perl microsoft application input file

本文链接：https://blog.csdn.net/lcy_hit/article/details/7755420

版权

使用Perl脚本解析.txt文件并将其内容写入Microsoft Excel，实现数据的自动化处理和整理。

摘要由CSDN通过智能技术生成

在处理存于txt中的大数据时，查看非常不方便，可以考虑写入到excel中。以下是一个简单的用perl实现的写入excel的程序。

#写文件到excel
#输入：待写入到excel表中的.txt文件
#输出：excel文件，注意要用绝对路径

#####################################################
use strict;
use Win32;
use Cwd;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;                                # die on errors...

# get already active Excel application or open new
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
    || Win32::OLE->new('Excel.Application', 'Quit');
use Encode;

my $infile1="a.txt";
my $outexcel1="E:/PerlCode/cyliu/a.xlsx";
open IN1,"$infile1"
or die "could not open the input file!";

my $Book = $Excel->Workbooks->Open("$outexcel1") or die "Could not open the $outexcel1