わいえむねっと

Contents
Categories
Calendar
2026/08
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 31
Monthly Archives
~2000/01
Recent Entries
RSS1.0
Templates
Information
Processed: 0.056 sec
Chashed: -
2009/04/09 Thu
どう考えても昨日は飲みすぎましたがそれもいつものことです。なのです。
今日も元気。 フラッシュ抑止なのかフラッシュなのかはっきりしてくれ!
2009/04/08 Wed
デミタスの缶が新しくなりましたよ!(旧→新)
先輩から何か吹き込まれたのか、唐突に取締役と飲みにいくことに。
自分は焼酎一本を。
取締役はワイン一本を。
それぞれ飲んだくれ。
2009/04/07 Tue
今日は手のしびれがひどいな! 夜になってもまだしびれがひどいです。
困ったものです。
ぷいぷいぷー。
けいおん!のOPをエンドレスリピートです。
2009/04/06 Mon
唐突に呼び出されたので機材を抱えてタクシーに乗り込む。
タクシー2台に分かれる必要があるほどの機材を抱えて。
しかも、拾ったタクシーの一方がたまたま都内の地理に明るくなく、かつ運転手が持っていた地図が23区内のみのもので、かつカーナビも非搭載だったため、

「前のタクシーに付いていってください」

とかいう状態で。昼下がりの東京を横断。
13k*2とかかかりましたよ。アホか。 再現は唐突に。
2009/04/05 Sun
0時@新宿。
うん。余裕で帰れない。
というわけで、いつもの放浪を開始するのでした。

サトちゃんのいるゴミ収集所。 3時@築地。
ぽつぽつと寿司屋が営業中で、さすが築地と思ったりなんだり。
お腹がすいているわけではないというかむしろいっぱいなので、特に入りませんでしたが。
寒いし眠いしで、いい加減タクシーを拾って帰る。
30分もかからず一之江到着。
駅前にパトカーがやたらといたのですが、何事?
駅から徒歩1分に在住なので気がかり。
2009/04/04 Sat
退職者だらけの飲み会に混じって飲んだくれてくる。
開始前から飲み始めて、いつもの芋ロックエンドレス。
相変わらず自分の立ち位置がよくわかりません。 さらに上の代の同期会にハシゴ。なにがなんだか。
そしてやっぱり芋ロックエンドレス。
「女子社員をトイレで泣かせた男」という肩書きは変な方向に想像が働きがちになるのでどうにかしていただきたいと思いました。はい。
2009/04/03 Fri
Referer:



のことじゃないのん?焼酎て。
会社から自宅のSubversionリポジトリにアクセスするためのトンネルを掘ったりとか。 怒涛の19日連続勤務終了。
プロジェクト並列進行で会社宿泊あり、出張あり、出張中の平均睡眠時間は3時間以下、日帰り出張ありのイベント盛りだくさんでした。
お疲れ様でした。主に俺。というか俺。
ウィスキーを買って帰ろう。
いつもはブラックニッカだけど、たまにはオールドにするかーとレジに持っていったら、酒屋のおっちゃんがしみじみと

「やっぱり、このオールドが美味しいんですよねぇ・・・」

と。
もうこの店でブラックニッカは買えない。
2009/04/02 Thu
なんかおかしいと思ったらco.jpでなくてne.jpになってた。
道理で。 引越して以来、近所でクラブソーダを扱っている店がなくなってしまい炭酸水離れしてましたが、セブンイレブンがオリジナルで炭酸水を。
これでハイボール飲み放題ですよ!
http://www.sej.co​.jp/products/original/premium/460326.htm​l
2009/04/01 Wed
おはようございます。
昨晩は隣のプロジェクトの協力スタッフの送別会に便乗参加して飲んだくれてました。
相変わらずひどいな、この人!
小坂那也です。(挨拶)
新年度初日という気がまったくしないこのだるさ。 http://openproj.o​rg/
Microsoft Projectの代替としてOpenProjをいれてみたものの、どうにも不安定。すぐに応答を返さなくなる。
環境が悪いのかなんなのか。
「いもあん&さつまいもホイップ \126-」
連続テレビ小説「つばさ」タイアップ商品。


そして、彩の国さいたま。
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.mi​crosoft.co​m/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 を下げるとか。お茶を濁す。