🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.perl
Article #177

Perl for Win32 で Excelを制御したのですが

#177
From: Yoshitaka OOHASHI
Date: Sat, 04 Apr 1998 00:00
46 lines
2196 bytes
大橋ともうします。

Perl for Win32 + IIS 3.0 を使っています。

実は Perl Script で Excel の表を作成しようとしています。(Visible=0で)

現在のところ表の雛形を作成し、データを埋め込むところまではできました。

しかし、表の罫線を引くところでどうしても解決できず、止まっております。
VBA(Excel)のコードをPerlへなおして(正確に直せていないと思いますが)
実行すると、Methodが呼べないと怒られてしまいます。
たぶん、コードが間違っているのでしょうが、私の持っているドキュメントでは

VBA -> Perl の変換について詳しい記述がないのでわからない状態です。

Can't call method "Borders" without a package or object reference at
exceltest5.
pl line 80.

で、80行目はどうなっているかというと、

$ExcelApp->Range("a1:a3")->Borders(xlEdgeBottom)->{'LineStyle'} =
xlContinuous || die &XLQUIT;

このほかにもいろいろ試したのですが、だめでした・・・

$ExcelApp については

$ExcelApp = CreateObject OLE "excel.application" || die "Unable to
create Excel Object: $!\n";
$OBJfile = "TESTOBJ.XLS";
$OBJpath = "C:/InetPub/wwwroot/samples/$OBJfile";
$ExcelApp->{'Visible'} = 1; # 通常は 0 (非表示)
$ExcelApp->Workbooks->Open($OBJpath);

こんな感じで書いてあり、エラー行(80)をはずすとデータが入ってちゃんと表
示できます。

どなたか、ヒントをください!
Excel-VBA(罫線をひくところ) をPerlに変換する規則などありましたら教えて
ください。
また、VBAをPerlに変換するドキュメントが存在するのでしたら、在処を教えて
ください。

よろしくお願いします。
Technical Details
Message-ID: <6g44ru$d4$1@news.alles.or.jp>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: 1043e7,65ba727884935c5f,start
X-Google-Attributes: gid1043e7,public
From: Yoshitaka OOHASHI <takpon@alles.or.jp>
Subject: Perl for Win32  で Excelを制御したのですが
Date: 1998/04/04
Message-ID: <6g44ru$d4$1@news.alles.or.jp>
X-Deja-AN: 340707222
Content-Transfer-Encoding: 7bit
Content-Type: text/plain; charset=iso-2022-jp
Organization: AllesNet
Mime-Version: 1.0
Newsgroups: fj.lang.perl