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

原创 2015年07月08日 23:07:51

[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
版权声明:本文为博主原创文章,未经博主允许不得转载。

Perl处理Excel文件

http://blog.csdn.net/caz28/article/details/7943530 现在很多数据是以Excel文件格式保存的,对人来讲修改添加都比较方便,但程序处理就比较麻烦。 ...
  • zgyrelax
  • zgyrelax
  • 2014年03月16日 23:28
  • 792

perl读取excel的方法

1 perl作为一种使用报表提取语言具有很强的处理文本文件的能力
  • zhuzhiqi11
  • zhuzhiqi11
  • 2014年07月28日 10:17
  • 1859

Perl操作excel2007的模块

Perl操作excel2007的模块
  • herokoking
  • herokoking
  • 2017年03月27日 22:25
  • 1305

perl 写excel,支持中文

perl 写excel,支持中文
  • bing_bing
  • bing_bing
  • 2014年12月25日 12:35
  • 1113

perl文件操作总结(全面讲解perl的文件操作)

perl 文件操作,包括打开、关闭文件,读取、定入文件等。 原文链接:http://www.jbxue.com/article/3153.html 打开、关闭文件 open (filev...
  • vip_linux
  • vip_linux
  • 2013年10月23日 13:46
  • 3698

Perl 利用Win32::OLE操作Excel 技巧和诀窍

我翻译这个教程的目的就是为了回答Perl利用Win32::OLE操作Excel的有关问题,这些问题会经常遇到,但是没有一个浅显易懂的教程。如果你懂Perl,又有点VBA的知识,那么这篇短小精悍的教程你...
  • zhajio
  • zhajio
  • 2013年06月03日 22:28
  • 1474

perl 文件目录操作

perl 内置函数的操作 perl目录操作, 创建目录句柄指向要操作的目录。 打开目录句柄使用 opendir ; opendir dirhandle,directory ; 例:取某目录下文件的列表...
  • Shao_You
  • Shao_You
  • 2017年03月03日 18:13
  • 209

perl 操作excel范例

  • beishafengjiang
  • beishafengjiang
  • 2016年09月07日 16:15
  • 184

Perl 文件和文件夹操作

作为一门编程语言,perl有着强大的文件和文件夹操作功能。Perl利用文件句柄(file handle)和文件夹句柄(dir handle)与操作系统进行输入输出连接。文件和文件夹句柄一般使用大写子母...
  • konglongaa
  • konglongaa
  • 2016年06月07日 09:41
  • 340

使用POI来实现对Excel的读写操作

其实我感觉直接贴代码就好了。代码里面几乎做到每一行一个注释。应该看起来会比较简单代码托管在github上:https://github.com/chsj1/ExcelUtilspackage com....
  • caihongshijie6
  • caihongshijie6
  • 2014年11月06日 21:18
  • 2983
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:[Perl]对 EXCEL 文件进行简单操作
举报原因:
原因补充:

(最多只允许输入30个字)