[Perl]对 EXCEL 文件进行简单操作

本文介绍了一个使用Perl语言处理Excel文件的实例。通过Win32::OLE模块,实现了对Excel文件的读取,包括获取工作簿中指定单元格的值与公式。示例代码展示了如何打开Excel文件、选择工作表,并遍历特定范围内的单元格。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

[Perl]对 EXCEL 文件进行简单操作

不說廢話,直接上code:

#!/usr/bin/perl -w

use strict;
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');

# open Excel file
my $Book = $Excel->Workbooks->Open("D:\\Users\\user\\workspace\\perl_test_excel\\test.xlsx"); 

# You can dynamically obtain the number of worksheets, rows, and columns
# through the Excel OLE interface. Excel's Visual Basic Editor has more
# information on the Excel OLE interface. Here we just use the first
# worksheet, rows 1 through 4 and columns 1 through 3.

# select worksheet number 1 (you can also select a worksheet by name)
my $Sheet = $Book->Worksheets(1);

print "hello;\n";

foreach my $row (1..4)
{
    foreach my $col (1..3)
    {
        # skip empty cells
        #next unless defined $Sheet->Cells($row,$col)->{'Value'};

        # print out the contents of a cell
        print "hello2;\n";

        printf "At ($row, $col) the value is %s and the formula is %s\n",
        $Sheet->Cells($row, $col)->{'Value'} = "1",
        $Sheet->Cells($row, $col)->{'Formula'} ;
        print "hello3;\n";


    }
}

print "hello4;\n";

# clean up after ourselves
$Book->Close;

=comment
#请注意,您可以用以下方式很轻松地为单元分配值:
#$sheet->Cells($row, $col)->{'Value'} = 1; 
#讀取某個值,會在稍後補充。
=cut
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值