2

我一直在使用 StrawberryPerl v 5.014 和 Win32::OLE 在 Windows 7 系统上开发一个项目。

我正在尝试使用第二台运行 Windows XP SP3 的 PC 来并行开发相同的项目。在新系统上，我已经安装了 Strawberry Perl v 5.016，并使用 cpanp 安装了 Win32::OLE 和 Win32::OLE::Const。

我在新系统中使用相同的脚本源。

事实证明，在新系统中，不知何故

use Win32::OLE::Const 'Microsoft Excel';

没有效果。我收到错误消息：

Bareword "xlExcel8" not allowed while "strict subs" in use in StatementExcel.pm line 159.

这个错误没有出现在我提到的第一个原始系统中。

该怎么办？

TIA，海伦

以下是该计划的一些摘录：

package  StatementExcel;
require  Exporter;
@ISA   = qw(Exporter);
@EXPORT  = qw(LoadExcel ProcessPreparedSheet);
use strict;
use warnings;
use Encode;
use 5.016;
use utf8;
use Win32::Console;
use autodie; 
use warnings    qw< FATAL  utf8     >;
use StateConversion;
use Carp;
use Win32::OLE  qw(CP_UTF8);
use Win32::OLE::Const 'Microsoft Excel';
use Cwd;
use Text::CSV::Unicode;
use File::BOM qw( :all );
use List::MoreUtils 'first_index';
...
$xlBook -> SaveAs( $xlFile, xlExcel8);

$i = Win32::OLE->LastError();
if ($i) {
   PrintT $parms{LogStructRef}{HANDLE}, "Error trying to save Excel file:\n", $i;
}   # end if ($i)
PrintT $parms{LogStructRef}{HANDLE}, 'Press <return> to continue...';   # Wait for user input...
$j = <STDIN>;
# Clean up
$xlBook->{Saved} = 1;
$xlApp->Quit;
$xlBook = 0;
$xlApp = 0;
...

注意：在 PerlMonks 上交叉发布：http ://www.perlmonks.org/?node_id=985596

4

1 回答 1

1

原来是因为Excel 2010和Excel 2003的OLE对象库不同导致问题出现。在Win XP系统上，安装的是Excel 2003。在 Windows 7 系统上，安装了 Excel 2010。保存 Excel 文件时，我指示它使用“xlExcel8”OLE 常量将其保存为 Excel 2003“xls”格式（而不是 Excel 2010 的“xlsx”格式）。

事实证明，该常量在 OLE 2003 对象库中不存在。

解决方案很简单：保存文件而不指定格式 - 它使用默认值。

另见：http ://www.perlmonks.org/?node_id=985780

于 2012-08-07T08:44:26.763 回答