Re: [PerlChina] 求助一段win32::ole写入excel的代码，工作需要

Mon, 26 Aug 2013 05:39:15 -0700 

#!/usr/bin/perl -w
use strict;
use warnings;
use Win32::OLE;
my $excel = Win32::OLE->new ('Excel.Application') or die "\n";
my $Book = $excel->Workbooks->Open ('excel.xls');
my $Sheet = $Book->Worksheets (1);
$Sheet->Cells (2,1)->EntireRow->Insert (); # <<< 在 B 列上面插入新列
$Sheet->Range ('A2:D2')->{'Value'} = [ 'jack', 'venus', 'R0629',
'shanghai' ]; # <<< 在 A2 到 D2 ��入�Y料
$Book->Close ();



-------- Original Message --------
Subject: [PerlChina] 求助一段win32::ole写入excel的代码，工作需要
From: Baocheng Li <[email protected]>
To: perlchina <[email protected]>
Date: 26/8/2013 8:26
> 现在要往一个已经存在并有数据的excel表格中写入数据，因为表格已经有数
> 据，所以需要在这些数据之后插入 数据，能不能用win32:ole写段代码，工作需
> 要，求群里帮忙！
> 比如 %work={'name'=>'jack',
> 'project'=>'venus',
> 'pid'=>'R0629"
> 'add'=>'shanghai'}
> 需要插入到一个excel.xls文件中，使用win32:ole,需要知道excel已经存在数据
> 的行截至数，然后紧接着下一行插 入%work中的值(键不需要存入,依次按列插入
> 哈希值，每个cell存入一个值即可)，求一段完整代码，谢谢！
>
> 在网上搜了半天，貌似目前还没有办法用perl向已存在的excel插入数据，是这
> 样吗？
> -- 
> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”
> 论坛。
> 要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到
> [email protected]。
> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。
> 通过以下网址访问此论坛：http://groups.google.com /group/perlchina。
> <http://groups.google.com/group/perlchina%A1%A3>
> 要查看更多选项，请访问 https://groups.google.com /groups/opt_out。
> <https://groups.google.com/groups/opt_out%A1%A3>

-- 
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到 [email protected]。
要向此网上论坛发帖，请发送电子邮件至 [email protected]。
通过以下网址访问此论坛：http://groups.google.com/group/perlchina。
要查看更多选项，请访问 https://groups.google.com/groups/opt_out。

回复