perl - 将空行插入 Excel 文档

Question

我有一个 excel 文档，我正在使用 perl OLE 自动化编辑它，但我遇到了一个问题。我需要在已经包含数据的两行之间输入一个空行，有点像将它附加到文件但不是在文件末尾。我也不想使用 perl 重写整个文件。我该怎么做呢？

谢谢

Answer 1

当我使用 Perl 和 Win32::OLE 自动执行 Excel 时，总能帮到我的一件事是在 Excel 中创建一个宏，准确捕获我首先要完成的任务。从那里我可以查看 VB 代码，并且通常可以相对轻松地将其转换为 Perl。

例如，在打开的 Excel 2010 文件中:

1. 查看 -> 宏 -> 录制新宏
2. 点击确定
3. 右键单击工作表上的某处以插入新行
4. 查看 -> 宏 -> 停止录制
5. 查看 -> 宏 -> 查看宏，点击编辑

据此，我可以编写代码，例如:

#!c:/perl/bin/perl.exe

use strict;
use warnings;

use Win32::OLE;

my $excel = Win32::OLE->new( 'Excel.Application' )
    or die "Could Not Start Excel.\n";
$excel->{ 'Visible' }           = 1;
$excel->{ DisplayAlerts }       = 0;
$excel->{ SheetsInNewWorkBook } = 1;
my $workbook = $excel->Workbooks->Add;
my $sheet = $workbook->Sheets( 1 );

$sheet->Range( 'A1' )->{ Value } = 'Data 1';
$sheet->Range( 'A2' )->{ Value } = 'Data 2';
$sheet->Range( '2:2' )->Select(); #Select Entire 2nd Row
$sheet->Range( '2:2' )->Insert( {
    'Shift'      => -4121, #xlDown
    'CopyOrigin' => 0,     #xlFormatFromLeftOrAbove
} );

__END__

此外，这里是一组 Excel 枚举的列表:http://www.datapigtechnologies.com/downloads/Excel_Enumerations.txt

希望这对您有所帮助!