Question

perl 如何使用命令对EXCE表格指定某一行插入多行或列？

如照片所示：我想在表格A的后面插入行，怎么做？请各位大神指教

Answer 1

use Win32::OLE;
use Win32::OLE::Variant;
my $ex = Win32::OLE->new('Excel.Application') or die "oops\n";
$ex->{Visible} = 1;
$ex->Workbooks->Add;
$ovR8 = Variant(VT_R8, "3 is a good number");
$ex->Range("A1")->{Value} = $ovR8;
$ex->Range("A2")->{Value} = Variant(VT_DATE, 'Jan 1,2010');
$ex->Range("2:2")->Insert();
$ex->Range("A2")->{Value} = "gone with the wind";
$ex->Range("B2")->{Value} = "second";

追问

你好！你的回答已经解决当问题，请问，可以复制
行或列吗？请再指点一下，谢谢

追答

$ex->Range("A2:B2")->Select();
$ex->Selection()->Copy();
$ex->Range("D2")->Select();
$ex->ActiveSheet()->Paste();
代码比较简单可以用excel录制宏的功能，将想要的功能录制下看VBAcode转换下就好

Answer 2

使用Excel::Writer::XLSX

追问

能否给个列子指示啊？

追答

use Excel::Writer::XLSX;                                   
my $workbook = Excel::Writer::XLSX->new( 'perl.xlsx' ); 
$worksheet = $workbook->add_worksheet();                
for $t (1..100) {$A='A'."$t"; $worksheet->write( "$A", 'Hello' );}