Как изменить существующую книгу Excel с помощью Perl?

Question

С помощью Spreadsheet::WriteExcel я могу создать новую книгу, но что, если я хочу открыть существующую книгу и изменить некоторые столбцы? Как я могу это сделать?

Я мог разобрать все данные из листа, используя Spreadsheet::ParseExcel, а затем записать его с новыми значениями в определенных строках/столбцах, используя Spreadsheet::WriteExcel. Есть ли модуль, который уже объединяет два?

В основном я просто хочу открыть .xls, перезаписать определенные строки/столбцы и сохранить его.

Answer 1

Spreadsheet::ParseExcel прочтет в существующих файлах Excel:

my $parser = Spreadsheet::ParseExcel->new(); 
# $workbook is a Spreadsheet::ParseExcel::Workbook object 
my $workbook = $parser->Parse('Book1.xls'); 

Но то, что вы на самом деле хочу Spreadsheet::ParseExcel::SaveParser, который представляет собой сочетание Spreadsheet::ParseExcel и Spreadsheet::WriteExcel. В нижней части документации находится example.

Answer 2

Существует раздел электронных таблиц: WriteExcel, который охватывает Modifying and Rewriting Spreadsheets.

Файл Excel является двоичным файлом в двоичном файле. Он содержит несколько взаимосвязанных контрольных сумм и изменение даже одного байта может привести к его повреждению.

Таким образом, вы не можете просто добавить или обновить файл Excel. Единственный способ добиться этого - прочитать весь файл в памяти, внести необходимые изменения или дополнения, а затем снова записать файл.

Вы можете прочитать и переписать файл Excel с помощью модуля Spreadsheet :: ParseExcel :: SaveParser, который является оберткой вокруг таблицы: ParseExcel и Spreadsheet :: WriteExcel. Это часть пакета Spreadsheet::ParseExcel.

Также есть пример.

Answer 3

Модуль Spreadsheet::ParseExcel::SaveParser является оберткой вокруг таблицы :: ParseExcel и таблицы :: WriteExcel.

Недавно я обновил документацию, надеюсь, is a clearer example of how to do this.

Answer 4

Если у вас установлен Excel, то это почти тривиально, чтобы сделать это с помощью Win32::OLE. Вот пример из собственной документации Win32::OLE «s:

use Win32::OLE; 

# use existing instance if Excel is already running 
eval {$ex = Win32::OLE->GetActiveObject('Excel.Application')}; 
die "Excel not installed" if $@; 
unless (defined $ex) { 
    $ex = Win32::OLE->new('Excel.Application', sub {$_[0]->Quit;}) 
      or die "Oops, cannot start Excel"; 
} 

# get a new workbook 
$book = $ex->Workbooks->Add; 

# write to a particular cell 
$sheet = $book->Worksheets(1); 
$sheet->Cells(1,1)->{Value} = "foo"; 

# write a 2 rows by 3 columns range 
$sheet->Range("A8:C9")->{Value} = [[ undef, 'Xyzzy', 'Plugh' ], 
            [ 42, 'Perl', 3.1415 ]]; 

# print "XyzzyPerl" 
$array = $sheet->Range("A8:C9")->{Value}; 
for (@$array) { 
    for (@$_) { 
     print defined($_) ? "$_|" : "<undef>|"; 
    } 
    print "\n"; 
} 

# save and exit 
$book->SaveAs('test.xls'); 
undef $book; 
undef $ex; 

В принципе, Win32::OLE дает вам все, что доступно на VBA или Visual Basic приложение, которое включает в себя огромное разнообразие вещей - все, начиная от автоматизации Excel и Word, перечислить и установить сетевые диски через Windows Script Host. Он стал стандартным с последними версиями ActivePerl.