非常感谢，在网上看了好多，都说不能在已存在的excel中追加数据，试了你的代码，是可以的。一个新问题，我现在是需要一个循环在一个excel当中追加数据，每一个数组元素我用split按空白分开，
然后占用一行，能否修改一下代码。$Sheet->Range ('A2:D2')->{'Value'} = [ 'jack', 'venus',
'R0629','shanghai' ];这段代码不知用循环怎么弄2013/8/26 Anthony WU <[email protected]> > > #!/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。 > -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要退订此论坛并停止接收此论坛的电子邮件，请发送电子邮件到 [email protected]。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 通过以下网址访问此论坛：http://groups.google.com/group/perlchina。 要查看更多选项，请访问 https://groups.google.com/groups/opt_out。
