わいえむねっと

2026/11
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30

2009/03/31 Tue

リリース準備完了。4時。
寝よう。
会議室で3時間睡眠。
本年度も今日で終わりですか。
今日で16連勤目なのですが。
もげそう。 PerlのWin32::OLEで

use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';

Win32::OLE->GetActiveObject('Excel.Application');
$excel = Win32::OLE->new('Excel.Application', 'Quit');
$book = $excel->WorkBooks->Add;
$sheet = $book->WorkSheets(1);
$sheet->Cells(1, 1)->{Value} = 'FF';
$sheet->Cells(1, 2)->{Value} = '=HEX2DEC(A1)';
$book->SaveAs('foo.xls');
$book->Close();
$excel->Quit;

とかしてアドイン関数を挿入しようとすると

とかなってしまうのをねじふせるメモ。
原因は

CreateObject コマンドを使用した場合、Excel でアドインが読み込まれない
http://support.microsoft.com/kb/213489/ja

' If you need to register the functions and commands
' contained in a resource (XLL), use the RegisterXLL method.
' In the example below, all functions of Analys32.xll are
' registered.
' XL.RegisterXLL "Analys32.xll"

の絡み。アドインが読み込まれていない状態で関数を挿入しようとしていることでエラーになってしまうと。
でも、上記内容を参考に

$excel->RegisterXLL('Analys32.xll');

としても変化なし。というか、0が返却される。
これを、

$excel->RegisterXLL($excel->{LibraryPath}.'\Analysis\Analys32.xll');

のようにフルパスにすると

期待する動作をするように。
ただ、$Win32::OLE::Warn が 2以上だと

Win32::OLE(0.1707) error 0x80010105: "サーバーによって例外が返されました。"
    in METHOD/PROPERTYGET "RegisterXLL" at foo.pl line 7

とか例外を吐かれてしまう。
なんで！
とりあえず、evalで誤魔化すとか、$Win32::OLE::Warn を下げるとか。お茶を濁す。

2009/03/30 Mon: 「メロンパンサンドつぶあん \126-」

ABCラジオ「全力投球!!妹尾和夫です」コラボ商品。
関西限定。
出張土産。

春ですな。

まあ、それはそれとして。
ヘルプ業務に時間を取られていたせいで概ね放置していたメイン業務の結合試験をぬるぬると。
概ね良いけど若干調整が必要かなーと。
というか、明日リリースなんですけどね。
あああ。泊まろううう。

2009/03/29 Sun: おはようございます。滋賀です。小坂那也です。日帰り出張です。ヘルプのはずです。（挨拶）
OSが2000から2003に変わったせいでセキュリティのデフォルトが変わっていたりとかIEのキャッシュは腐っているとしかいいようがないとかなんとかはありましたが無事に作業完了。
無事とは言うけども。けども。

なんかもう色々アレなので帰りは気ままに寄り道することにしたよ！

というわけで、デイリーヤマザキＪＲ山崎駅前店に寄り道です！
なのです！

山崎駅なので、やっぱり山崎蒸留所の看板が。

そのまま新大阪でたこ焼きを食ったり。
ついでに、いつものコンビニ行脚したり。

携帯にGPSが搭載されたおかげで行脚効率が飛躍的に向上したので、なんだかもう大変ですよ。うわーい！
というか、新大阪駅近辺のコンビニの数は異常。なんだこれ。

2009/03/28 Sat: エラー処理あますぎﾜﾛﾀ。
というか、笑えない。
たまにぶっ飛んでたのはこれのせいか！
勘弁してくだちい。

とりあえず明日のリリース準備完了っと。23時。
明日は日帰り出張で6時前出発ですよ。
なんかもう寝るのは新幹線内でいいやこれ。
ああもう。

2009/03/27 Fri: ゆるめいつ増刊号査収。

メイン業務のほうの仮リリースはどうにか。
週明けが本リリースですが、土曜はヘルプのほうの仕様変更対応で、日曜はその差し替えで日帰り出張です。
先週の三連休に続いて休みなしです。
なんだよこれもう。
わーい！ばーか！

2009/03/26 Thu: ヘルプのほうがまたよくわからないことになってきたので、泊り込みでメインのほうを進めておく。
最近、徹夜をするとひどく足がくさいです。
仕事中はサンダルなので通気性もばっちりなはずなのに。なのに。

そのまま通常勤務時間に突入して夜。
ヘルプのほうから電話がかかってきたものの、

「今日は足がくさいので帰ります」

といって電話を切って本当に帰る。

2009/03/25 Wed: 今日も今日とてデミタスはつまる。
なにかの暗示ですか。これは。

え？
いやいやいや、映りませんから。
物理的に繋がってませんから。それ。

結局。
なんだかんだのやりとりを経て。
仕様変更となりました。
また出張！！
というか、単独で制御してた機器を相互接続させて連動制御とか！なにその仕様変更！
なんなの？死ぬの？

2009/03/24 Tue: 今日買った4本のうち、2本のデミタスが自販機につまりました。
なんだこの打率。

ヘルプ出張とかその延長とかなんやらでメイン業務のスケジュールが圧迫されている分の巻き返しにかかる。
ヒャッハー！

2009/03/23 Mon: 酒飲んで仮眠して起きて風呂入って2時半。
仕様変更対応＠ホテル。
眠い。

そんなこんなで出張四日目。
とりあえず動作良好。
帰れる！

せっかくなので滋賀県らしいものでもと、近江牛弁当を食べながら一路東京。
疲労困憊ですよまったくもう。
というか、これメインじゃなくてヘルプなんですが。
なんなの？死ぬの？

2009/03/22 Sun: 酒飲んで仮眠して起きて風呂入って6時。
動作変更対応＠ホテル。
眠い。

そんなこんなで出張三日目。
改修とは別件の対応で滋賀を巡る。