Perl 从另一个Xlsx文件读取Xlsx

我有几个Xlsx文件，比如X.Xlsx、Y.Xlsx、Z.Xlsx，我把这三个Xlsx文件保存在另一个Xlsx文件中，比如A.Xlsx。现在我想通过a.xlsx一次准备好三个xlsx文件（x，y，z）中的内容

有人能帮我吗

---

提前感谢

如果您的目标计算机也安装了Microsoft Excel，则在Windows上这很容易

使用该模块创建Excel实例，打开主文件

A.xlsx

，然后迭代其

->{OLEObjects}

属性：

#!perl
use strict;
use warnings;
use Win32::OLE 'in';
$ex = Win32::OLE->new('Excel.Application') or die "oops\n";
my $Axlsx = $ex->Open('C:\\Path\\To\\A.xlsx');
my $i=0;
for my $embedded (in $Axlsx->OLEObjects) {
    $embedded->Object->Activate();
    $embedded->Object->SaveAs("test$i++.xlsx");
    $embedded->Object->Close;
}

保存后，可以将其视为普通Excel文件。或者，您可以直接使用

$embedded->Object

，但由于您没有告诉我们具体需要做什么，因此很难给出具体建议

另见