發(fā)現(xiàn)一個(gè)特別奇怪的問(wèn)題，關(guān)于excel

yiqiume

use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$|=1;

my $inPutFile=$ARGV[0];
print "正在處理, 請(qǐng)稍候...\n";
       
       
my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');  
$Excel->{'Visible'} = 0;                #0 is hidden, 1 is visible
$Excel->{DisplayAlerts}=1;        #0 is hide alerts

my $Book = $Excel->Workbooks->Open($inPutFile) or die("Cannot openinPutFile!";

上面的代碼，處理一個(gè)excel文件，發(fā)現(xiàn)一個(gè)奇怪的問(wèn)題，若$inPutFile是相對(duì)路徑，比如說(shuō)perl test.pl   11.xls則報(bào)錯(cuò)，最后一行open打不開(kāi)文件。若是絕對(duì)路徑比如c:\11.xls則運(yùn)行無(wú)誤。。。

被迷惑了，有人遇到類(lèi)似的問(wèn)題嗎？請(qǐng)指教。

ps:在windows下。

[ 本帖最后由 yiqiume 于 2009-9-23 14:36 編輯 ]

dugu072

$Excel->Workbooks->Open($inPutFile)
excel 對(duì)open 函數(shù)就是要求的 絕對(duì)路徑， 相對(duì)路徑是不行的。。。
快速的解決方法：
$inPutFile = `cd` . '\' . $inPutFile;

yiqiume

原帖由 dugu072 于 2009-9-23 18:51 發(fā)表
$Excel->Workbooks->Open($inPutFile)
excel 對(duì)open 函數(shù)就是要求的 絕對(duì)路徑， 相對(duì)路徑是不行的。。。
快速的解決方法：
$inPutFile = `cd` . '\' . $inPutFile;

嗯，多謝。汗。。。為什么設(shè)計(jì)成這樣，迷惑了我很久。。