Namazu-devel-ja(旧)

[Yukio USUDA <m6694ha392t@xxxxxxxxxxxxxxx>]

臼田です。

> > use Win32::OLE::Const 'Microsoft Excel';
> > のあたりをevalで実行すれば何とかなるかと思ったのですが
> > 
> > Bareword "xlText" not allowed while "strict subs" in use at /namazu/share/namazu
> > /filter/win32/oleexcel.pl line 206.
> > の行は消えませんでした。
> > 
これはどうも
	# SaveAs xlText FileFormat
	$sheet->Select;
	my $ret = $excel->ActiveWorkbook->SaveAs({
	    'FileName'     => &Win32_FullPath($tmpfile),
	    'FileFormat'   => xlText,  # xlText
	    'CreateBackup' => 0        # False
	});
の部分のxlTextが「裸の単語」であるためなので
このあたりだけ
no strict 'subs';
にするか
"xlText"をクォートで囲うのかと思いますが
クォートで囲っても動くのかな？

上記のどちらかをすれば
MS-Officeなし環境でとりあえず、止まらなくなりましたが

No type library matching "Microsoft Excel" found at /namazu/share/namazu/filter/
win32/oleexcel.pl line 56
Win32::OLE(0.1701): GetOleTypeLibObject() Not a Win32::OLE::TypeLib object at c:
/Perl/site/lib/Win32/OLE/Const.pm line 45.

は表示されますね。
エラー出力はうまく捨てられないのですかね

臼田幸生