我尝试使用Perl和Win32 :: Ole修改Excel

Question

我为此而苦苦挣扎，并且有很多文章介绍了它应该如何工作，但是我没有成功：

我的系统是安装并激活Office 2016的Windows 7。 我想使用Excel文件作为模板进行修改并将其保存到新位置。 这是我的代码：

sub ExcelWriter {
    my $Template = "../templates/template.xls";
    my $ExcelFile = $MyOutDir."New_Excel_File.xls";
    my $Excel = new Win32::OLE('Excel.Application');
    if (-f $Template) {
        my $WorkBook = $Excel->Workbooks->Open($Template);
        my $WorkSheet = $WorkBook->Worksheets('Overview');
        $WorkSheet->Cells(5,3)->{Value} = $Customer;
        $WorkBook->SaveAs($ExcelFile);
        $WorkBook->Close();
        undef $WorkBook;
        undef $Excel;
    }
}

我收到“ Can't call method "Worksheets" on an undefined value at... ”当我使用“ Workbooks->Add ”和“ Worksheets->Add ”创建新工作簿时，可以编写单元格。 即使选择工作表也可以在这里工作！

对于专家来说，这似乎很明显，但是我一定在这里错过了一些东西。 我已经将工作簿从“ .xlsx”保存到“ .xls”，并删除了所有公式等，甚至创建了一个新的空白工作簿！

谢谢您的帮助

问候劳伦特

Answer 1

我将代码修改为（使用原始的“ .xlsx”文件）：

sub ExcelWriter {
    my ($Volume, $Directory, $File) = File::Spec->splitpath(__FILE__);
    my $Template = $Volume.$Directory.'..\templates\template.xlsx';
    my $ExcelFile = $MyOutDir.'New_Excel_File.xlsx';
    my $Excel = new Win32::OLE('Excel.Application');
    my $WorkBook = $Excel->Workbooks->Open($Template);
    my $WorkSheet = $WorkBook->Worksheets('Overview');
    $WorkSheet->Cells(5,3)->{Value} = $Customer;
    $WorkBook->SaveAs($ExcelFile);
    $WorkBook->Close();
    undef $WorkBook;
    undef $Excel;
}

...而且效果很好！