PERL操作程序六十(從WEB啟動(dòng)Excel的讀寫(xiě))
返回
<![CDATA[
Apache perl Win32::OLE Excelファイルを操作, XP=>Windows7/Windwos8変更時(shí),エラーが発生！
*** OLE exception from "Microsoft Excel": ファイル
'D:\wwwexcel\samples\sample_ENQ.xls' にアクセスできません。次のいずれかの理由が考えられます。
? ファイル名またはパスが存在しません。
? ファイルが他のプログラムによって使用されています。
? 保存しようとしているブックと同じ名前のブックが現(xiàn)在開(kāi)かれています。
Win32::OLE(0.1709) error 0x800a03ec in METHOD/PROPERTYGET "Open" at ./pro/mscwrite_excel.pl line 114.
114: $book = $t{ex}->Workbooks->Open("D:\\wwwexcel\\samples\\sample_ENQ.xls");
==>次のようにフォルダを追加しました。問(wèn)題解決！
C:\Windows\SysWOW64\config\systemprofile\Desktop
Please make this folder.
C:\Windows\System32\config\systemprofile\Desktop
]]>
<![CDATA[
<a >http://xxx.xxx.xx.xxx/cgi-bin/Scripts/excel01.pl</a>
#!C:/perl/bin/perl
# excel01.pl
use strict;
use DBI;
use CGI qw/:standard/;
use HTML::Template;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
use File::Copy;
$Win32::OLE::Warn = 3; # die on errors..
my (%t,$Excel,$Book,$Sheet);
print "Content-type: text/html; charset=UTF-8\n\n";
print "This page is for writing data to excel file!\n";
$Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application','Quit');
$Excel->{DisplayAlerts} = 'False';
$Book = $Excel->Workbooks->Open("D:\\wwwexcel\\samples\\sample_ENQ.xls");
$t{excel} = 'sekidatabase1.xls';
$Book->SaveAs("D:\\wwwexcel\\output\\$t{excel}");
#$Book->Close;
# close
undef $Book;
undef $Excel;
1;
]]>
返回
左云县|
原阳县|
九江县|
醴陵市|
定兴县|
三亚市|
衢州市|
汕头市|
牡丹江市|
林西县|
吉木乃县|
新密市|
栾川县|
榆社县|
当阳市|
南部县|
平安县|
霍城县|
蒲江县|
柳河县|
稻城县|
井冈山市|
准格尔旗|
邵东县|
岢岚县|
德安县|
保山市|
朔州市|
祁东县|
大渡口区|
土默特右旗|
绵阳市|
浑源县|
洪洞县|
濮阳市|
依兰县|
许昌县|
永泰县|
淮阳县|
慈利县|
张家界市|