美文网首页
Perl处理Excel

Perl处理Excel

作者: 潘高PG | 来源:发表于2019-03-08 13:37 被阅读0次

前言

更多内容,请访问我的 个人博客


  • 优点
    无需安装模块依赖,功能强大
  • 缺点
    无法实现跨平台,必须依赖win系统和office软件

如果想实现跨平台处理excel请移步 perl处理Excel(跨平台)

use FindBin qw($Bin);

use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';

my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');
#不显示警告窗口
$Excel->{DisplayAlerts} = 0;

my $Book = $Excel->Workbooks->Open($file);
my $Sheet = $Book->Worksheets(1);  
#my $Sheet = $Book->Worksheets($sheetName);  
#my $SheetName = $Book->Worksheets(1)->{Name};  

my $maxRow = $Sheet->UsedRange->Rows->Count;
my $maxCol = $Sheet->UsedRange->Columns->Count;

foreach my $row(1..$maxRow){
    foreach my $col(1..$maxCol){
        #隐藏的单元格,过滤
        next if $Sheet->Range("$row:$row")->EntireRow->{Hidden};
        
        #获取单元格的值
        my $value = $Sheet->Cells($row,$col)->{Value};
        
        #修改单元格填充色
        $Sheet->Cells($row,$col)->Interior->{Color} = $InColor;
        
        #字体加粗
        $sheet -> Range("G7:H7") -> Font -> {Bold} = "True";
        
        #字体斜体
        $sheet -> Range("G7:H7") -> Font -> {Italic} = "True";
        
        #字体下划线
        $sheet -> Range("G7:H7") -> Font -> {Underline} = xlUnderlineStyleSingle;
        
        #字体大小
        $sheet -> Range("G7:H7") -> Font -> {Size} = 8;
        
        #字体名称
        $sheet -> Range("G7:H7") -> Font -> {Name} = "Arial";
        
        #字体颜色
        $sheet -> Range("G7:H7") -> Font -> {ColorIndex} = 4;
        
        #列宽
        $sheet -> Range('A:A') -> {ColumnWidth} = 9.14;
        
        #行高
        $sheet -> Range("8:8") -> {RowHeight} = 30;
    }   
}

$Book->Save();
$Book->Close();
$Excel->Quit();

相关文章

  • Perl处理Excel

    前言 更多内容,请访问我的 个人博客。 优点无需安装模块依赖,功能强大 缺点无法实现跨平台,必须依赖win系统和o...

  • perl处理Excel(跨平台)

    前言 更多内容,请访问我的 个人博客。 前言 用perl处理excel有两种流行的模块:一种是 win32:OLE...

  • Perl学习15之生信分析中Perl简单运用(一)

    本文介绍:perl如何读取excel表格?perl如何读文件,存入哈希,输出到文件?首发于本人公众号:python...

  • 在 Windows 环境下用 Perl 读取 Excel 文件

    在 Windows 环境下用 Perl 读取 Excel 文件,可以使用 Spreadsheet-Read 库搭配...

  • 如何安装perl模块

    由于生物信息早期最多用的语言是perl,因此不可避免就要用别人的perl脚本或者基于perl的项目来处理数据。 使...

  • Perl操作Excel问题

    环境准备,安装必要模块 下载安装 1、打开metacpan网站搜索 2、进入网页点击下载按钮这同时也是官方文档,英...

  • perl、python产出excel

    想把每批次的结果出一个最终的Excel文档 如果用python的话,就用pandas模块: 以上只贴了相关的几句代码。

  • 【perl】perl文件处理(一)——句柄

    句柄的定义 通过句柄和“外面”的世界连接 外部:硬盘、终端输入等 句柄是一个顺序号,对于打开的文件是唯一的识别依据...

  • Effective Perl-chapter5

    用perl处理文件非常容易,perl能借助文件句柄接口处理几乎所有形式的数据。通过文件句柄我们能完成大部分重要的任...

  • Perl Match with UTF-8

    Perl Match with UTF-8 起 尝试使用perl处理中文文档时,发现匹配时总是有BUG。测试后发现...

网友评论

      本文标题:Perl处理Excel

      本文链接:https://www.haomeiwen.com/subject/ghrrpqtx.html