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

非常感谢，在网上看了好多，都说不能在已存在的excel中追加数据，试了你的代码，是可以的。一个新问题，我现在是需要一个循环在一个excel当中追加数据，每一个数组元素我用split按空白分开，

然后占用一行，能否修改一下代码。$Sheet->Range ('A2:D2')->{'Value'} = [ 'jack', 'venus', 'R0629','shanghai' ];这段代码不知用循环怎么弄

2013/8/26 Anthony WU <anthonywuy2k@gmail.com>

#!/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 �入�料
$Book->Close ();

-------- Original Message --------
Subject: [PerlChina] 求助一段win32::ole写入excel的代码，工作需要
From: Baocheng Li <linus00917@gmail.com>
To: perlchina <perlchina@googlegroups.com>
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 讨论组"
> 论坛。
> 要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到
> perlchina+unsubscribe@googlegroups.com。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 通过以下网址访问此论坛：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 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到 perlchina+unsubscribe@googlegroups.com。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
通过以下网址访问此论坛：http://groups.google.com/group/perlchina。
要查看更多选项，请访问 https://groups.google.com/groups/opt_out。

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