EXCELのファイルを別ファイルに保存する

質問

activeperlを使って、サーバ上のexcelファイルを名前を変更して、
別ファイルに保存したいですが、いい方法はありますでしょうか？

今作成したcgiのソースは下記です。
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';

my $excel = Win32::OLE->GetActiveObject('Excel.Application') ||
Win32::OLE->new('Excel.Application', 'Quit') || die "Excelが起動できません。";

my $book = $excel->Workbooks->Open('c:\Inetpub\excel\temp.xls') || die;
my $sheet = $book->Worksheets('temp') || die;

$book->SaveAs('C:\Inetpub\\excel\dest.xls');
$book->Close();

よろしくお願いします。

回答No.3

venzou · ベストアンサー

＃１，２です。

>Apatch 1.3.35
>IIS
大きな違いはこれでしょうか。
IISは使ったこと無いので、まったく分かりません。申し訳ないですが、私はここでリタイヤします。ごめんなさい。

お礼

ありがとうございました。
調べてやってみます。

回答No.2

venzou

＃１です。

>Perl スクリプトからだと問題ないのに CGI からこれを呼び出すと失敗しています。

CGIから呼び出してみましたが、正常に動きました。
プログラムではなく環境の問題みたいですね。

ちなみに、うちの環境
WindowsXP Home SP1
Apatch 1.3.35
ActivePerl 5.6.1
Excel 2000 SP3

PCは1台なので、ローカルのサーバでCGIを動かしました。
Excelに関して特別な設定をした覚えはありません。

そちらの環境は？

補足

こちらの環境は
WindowsXP Professional SP2
IIS
ActivePerl
ActivePerl 5.6.1
Excel2003
です。

こちらも１台で試験してるので、ローカルで動かしています。

回答No.1

venzou

うちの環境では、そのソースで動きましたが・・・
何が問題なんでしょう？

ファイルの内容を書き換えないなら、ファイルをコピーするだけでいいと思います。

例１
use File::Copy;
copy('C:\Inetpub\excel\temp.xls', 'C:\Inetpub\excel\dest.xls');

例２
open(IN,'C:\Inetpub\excel\temp.xls');
binmode IN;
@buf = <IN>;
close(IN);
open(OUT,'> C:\Inetpub\excel\dest.xls');
binmode OUT;
print OUT @buf;
close(OUT);

補足

さっそく回答ありがとうございます。
Perl スクリプトからだと問題ないのに CGI からこれを呼び出すと失敗しています。
今後、ファイルの内容も書きかえれるようにしたいので、use Win32::OLEを使用してやったのですが。。。

my $excel = Win32::OLE->GetActiveObject('Excel.Application') ||
Win32::OLE->new('Excel.Application', 'Quit') || die "Excelが起動できません。";
この辺りでエラーが出ているみたいです。
Excelにアクセスする時の権限とかあるのでしょうか？