亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: 發(fā)現(xiàn)一個特別奇怪的問題,關(guān)于excel [打印本頁]

作者: yiqiume    時間: 2009-09-23 14:33
標(biāo)題: 發(fā)現(xiàn)一個特別奇怪的問題,關(guān)于excel
use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$|=1;

my $inPutFile=$ARGV[0];
print "正在處理, 請稍候...\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!";

上面的代碼,處理一個excel文件,發(fā)現(xiàn)一個奇怪的問題,若$inPutFile是相對路徑,比如說perl test.pl   11.xls則報錯,最后一行open打不開文件。若是絕對路徑比如c:\11.xls則運行無誤。。。

被迷惑了,有人遇到類似的問題嗎?請指教。

ps:在windows下。

[ 本帖最后由 yiqiume 于 2009-9-23 14:36 編輯 ]
作者: dugu072    時間: 2009-09-23 18:51
$Excel->Workbooks->Open($inPutFile)
excel 對open 函數(shù)就是要求的 絕對路徑, 相對路徑是不行的。。。
快速的解決方法:
$inPutFile = `cd` . '\' . $inPutFile;
作者: yiqiume    時間: 2009-09-23 19:27
原帖由 dugu072 于 2009-9-23 18:51 發(fā)表
$Excel->Workbooks->Open($inPutFile)
excel 對open 函數(shù)就是要求的 絕對路徑, 相對路徑是不行的。。。
快速的解決方法:
$inPutFile = `cd` . '\' . $inPutFile;

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




歡迎光臨 Chinaunix (http://72891.cn/) Powered by Discuz! X3.2