使用Spreadsheet::WriteExcel，我可以创建一个新工作簿，但如果我想打开现有的工作簿并修改某些列怎么办？我将如何做到这一点？
我可以使用Spreadsheet::ParseExcel 解析工作表中的所有数据，然后使用Spreadsheet::WriteExcel 在某些行/列中将新值写回。有没有一个模块已经将两者结合起来了？
主要是我只想打开一个.xls，覆盖某些行/列，然后保存。
【问题讨论】：
标签： perl spreadsheet xls
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。
【讨论】：
如果您安装了 Excel，那么使用 Win32::OLE 执行此操作几乎是微不足道的。这是Win32::OLE自己的文档中的示例：
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 最新版本的标准配置。
【讨论】：
Spreadsheet::WriteExcel 文档中有一部分涵盖了Modifying and Rewriting Spreadsheets。
Excel 文件是二进制文件中的二进制文件。它包含多个相互关联的校验和，即使更改一个字节也可能导致其损坏。
因此，您不能简单地附加或更新 Excel 文件。实现这一点的唯一方法是将整个文件读入内存，进行所需的更改或添加，然后再次将文件写出。
您可以使用 Spreadsheet::ParseExcel::SaveParser 模块读取和重写 Excel 文件，该模块是 Spreadsheet::ParseExcel 和 Spreadsheet::WriteExcel 的包装器。它是Spreadsheet::ParseExcel 包的一部分。
还有一个例子。
【讨论】：
Spreadsheet::ParseExcel::SaveParser 模块是 Spreadsheet::ParseExcel 和 Spreadsheet::WriteExcel 的包装器。
我最近更新了文档，希望是 is a clearer example of how to do this。
【讨论】：