自动化perl中的excel文件处理并避免对话/ UI交互

Question

当我通过OLE自动化Microsoft Excel时,如何保证不会出现弹出对话框？我正在使用Perl模块(Win32 :: OLE).我可以使用以下代码避免大多数对话框弹出窗口:

use Win32::OLE;
use Win32::OLE::Variant;
use Win32::OLE::Const;

my $excel_symbols = Win32::OLE::Const->Load('Microsoft Excel');
my $excel = Win32::OLE->new('Excel.Application', sub { $_[0]->Quit();} );
$excel->{'Visible'} = 0;
$excel->{'DisplayAlerts'} = 0;
$excel->Workbooks->Open('c:\some_excel_file.xls',
  { 'UpdateLinks' => $excel_symbols->{'xlUpdateLinksNever'},
    'ReadOnly' => 1,
    'IgnoreReadOnlyRecommended' => 1
  });

但是对于某些文件,我继续使用以下文本进行对话:

此文件不是可识别的格式.

• 如果您知道该文件来自与Microsoft Excel不兼容的其他程序,请单击"取消",然后在其原始应用程序中打开此文件.如果要稍后在Microsoft Excel中打开该文件,请将其保存为兼容的格式,例如文本格式.
• 如果您怀疑文件已损坏,请单击"帮助"以获取有关解决问题的详细信息.
• 如果您仍想查看文件中包含的文本,请单击"确定".然后在文本导入向导中单击"完成".

确定取消

有时会出现类似的对话框,其中包含"确定","取消"和"帮助"按钮.

我无法控制提供给脚本的文件的质量.

Answer 1

我重新审视了这个问题并找到了解决方案。

在处理之前将文件复制到临时位置。然后在 Excel 中关闭文件之前保存文件：

File::Copy::copy('c:\some_excel_file.xls', 'c:\temp\SFO3jfd.xls');
my $book = $excel->Workbooks->Open('c:\temp\SFO3jfd.xls',
  { 'UpdateLinks' => $excel_symbols->{'xlUpdateLinksNever'},
    'ReadOnly' => 1,
    'IgnoreReadOnlyRecommended' => 1
  });
$book->Save();
$book->Close();

为什么这有效：

Excel 2003 会自动重新计算在旧版 Excel 中创建的文档中的公式。此外，打开文档时可以调用宏。所有这些意味着即使您的脚本不执行任何此类操作，也可能会对文档进行更改。

通过在关闭之前保存文档，可以避免出现要求您保存文件的对话框。使用临时文件可确保原始文件在验证操作期间不会更改。如果您不担心这一点，您可以考虑就地验证。