为什么 perl 保存两份 Excel 电子表格？

Question

这类似于A copy of Excel Addin is created in My Documents after saving，只是我使用的是Perl而不是VBA，使用xls文件而不是xlsm，并且行为的负面影响是不同的。

我继承了一个在 Windows 2003 Server 上作为 SYSTEM 运行的 Perl 脚本 (Perl 5.8.8)。将 Excel 2003 模板文件复制到唯一的、完全定义的路径位置后，它会使用 OLE 在 Excel 中打开唯一文件，编辑文件，保存文件，然后关闭文件。结果是编辑后的文件既保存在正确的、完全定义的路径位置，也保存在默认用户配置文件的 Documents 文件夹中。

这会导致数千个此类文件堆积在 C: 驱动器上，因为每位新入职的管理员都会在其 Documents 文件夹中获得一份副本。

添加设置 $OUT 值的代码：

if (!$db->Sql("EXEC GetDetails 'name'"))
{
    while ($db->FetchRow()>0)
    {
        @DataIn = $db->Data();
        $name = $DataIn[0];
        $IN = $DataIn[1];
        $OUT = $DataIn[2];
        opendir(DIR,"$OUT") || die "$OUT directory does not exist $!\n";

        #... loop of proprietary code
            #...
            @Completed = $db1->Data();
            #...

            &formatExcelReport  #The code that I previously posted

            #...
            # more proprietary code
        # end of loop

    } #end of while
}#end of if

我最初发布的代码：

# Initialize Excel object
eval {Win32::OLE->new('Excel.Application', 'Quit')};
eval {$Excel = Win32::OLE->GetActiveObject('Excel.Application')};
unless (defined $Excel)
{
    $Excel = Win32::OLE->GetActiveObject('Excel.Application')
             || Win32::OLE->new('Excel.Application', 'Quit');
}
$infiles = "Report_Template.xls";
$infiles = $OUT."/".$infiles;
$db6->Sql("EXEC FormatResults '".$Completed[0]."','".$Completed[1]."'");
$row = 2;
$fileName = $Completed[0]."_".$Completed[1];
$uniquefile = $fileName.$printdate.".xls";

# $OUT is a fully defined path on the E: drive
$reportfile = "$OUT"."\\".$uniquefile;
copy($infiles,$reportfile);
$Book = $Excel->Workbooks->Open("$reportfile");
$sheetnum = 1;
my $Sheet = $Book->Worksheets($sheetnum);

# Set Headers
$Header = $Sheet->PageSetup->{'CenterHeader'};
$Header = $Header." Results Test Code: ".$Completed[0]." Worksheet: ".$Completed[1]." Date: ".$headerdate;
$Sheet->PageSetup->{'CenterHeader'}= $Header;

# More file editing
# ...

$Book->Save();
$Book->Close(0);
Win32::OLE->new('Excel.Application', 'Quit');

这个问题的根源是 Save() 命令吗？我应该改用 SaveAs() 吗？

也欢迎就 Excel 的使用方式提供任何其他反馈。

谢谢！

Answer 1

我不知道是什么导致了这种行为，但这里有一些可以尝试的方法。

• 模板和复制它的文件有名字

    $infiles = $OUT."/".$infiles;
    $reportfile = "$OUT"."\\".$uniquefile;
  

使用相同的分隔符。

• 尝试禁止一些可能的设置，指示制作另一个副本。或许

    $Excel->Application->{CreateBackup} = 0;
  

但是，这可能不是正确的属性——在 VB 或 Excel 文档中搜索可能导致 Excel 保存额外副本的属性。 （不必是“备份”。）

• 尝试创建一个新文件并使用SaveAs作为测试，看看你是否再次得到两个文件。模板复制可能会将其设置为Save 一个额外的副本（即使我不知道如何）。我会说要么就是这样，要么是一些需要关闭的常规设置。

---

剩下的就是原帖，关于使用SaveAs，我以为是创建了一个新文件

您将使用SaveAs 来编写一个新文件。见saveas in MSDN library

将对工作簿的更改保存在不同的文件中。

使用save method 可能会出于某种原因保存两个文件，如answer by Borodin 中所述。该页面还建议使用SaveAs 来创建新文件

第一次保存工作簿时，使用 SaveAs 方法指定文件的名称。

一旦你改为使用SaveAs，应该会出现一个确认对话框来处理。如果你想抑制，你可以设置一个属性，一个（或任何一个？）

$Excel->Application->{DisplayAlerts} = 0;
# or
$Excel->{DisplayAlerts} = 0;

有关许多选项，例如备份，请参阅OLE automation in PERL in a Nutshell 章节。

---

关于其他一些资源的说明。 this post on perlmonks 中有一本各种各样的食谱。 this SO post 中给出了各种操作的列表。

最后，我不知道使用 OLE 的原因有多深，但如果只是写一些 Excel 文件，还有其他模块。例如备受推崇的Spreadsheet::WriteExcel 和Excel-Writer-XLSX。

Answer 2

这是非常奇怪的 Perl 代码。 eval 事后不检查 $@ 是错误的——您需要知道代码的某个步骤是否失败，以使以下步骤有意义

看起来问题出在您对copy($infiles, $reportfile) 的调用中。这将保存文件的一个副本，而$Book->Save 和$Book->Close 将保存另一个