ExcelにCSVを。SQLで、Recordsetとして

SQLが使えるなら射影も選択も楽ちんじゃないか。

Sub test()
    Dim CON As ADODB.Connection
    Dim RS As ADODB.Recordset

    Dim SQLTEXT = "SELECT 商品名 FROM testdata.csv where 種類='CD' order by 金額"
 
    Set CON = New ADODB.Connection
    CON.Provider = "Microsoft.Jet.OLEDB.4.0"
    CON.Properties("Extended Properties") = "Text;HDR=YES"
    CON.ConnectionString = "G:\test"   ’フォルダを指定
    CON.Open
 
    Set RS = CON.Execute(SQLTEXT)
    RS.Filter = "商品名 = '旅の途中 [Maxi]'"          'フィルタも。
    Sheet1.Range("B2").CopyFromRecordset RS   'ワークシートに流し込み

    Set RS = Nothing
    Set CN = Nothing
End Sub

3DS,アニメーションGif 参考になりません

3DSで撮影した３D写真をアニメーションGIFにしてみました。
雑すぎる。

Sマリオ

スーパーマリオブラザーズはそんなに好きでは無いのだけれど、
これはとても好きです。

ネットのどこかで拾いもの。

I Care Because You Do

今の会社でパートをはじめて半年と少し。 架電業務はやっぱりストレス高いのか、定着しない人も多い。 それでも何人かは残っていく。 職場で人間関係を築けない人は続かない。 休憩時間に寂しそうにしているけれど、こちらも自分のことで手一杯なんだもの。 昼休みに人を避けて、一人で車の中で飯食ってる人に、何をしてあげられるだろうか。 社会という自然環境の中での生存能力。

哭きの竜

ひとつ晒せば自分を晒す、ふたつ晒せばすべてを晒す、みっつ晒せば地獄が見える。
見える見える、落ちるさま

Facebookは人の繋がりや絆を保証しない。

昔の友人知人との繋がりが途切れてしまうと、それを再接続するのはけっこう
怖いもんだったと思う。
その敷居を低くすることを考えのかどうか、そういう風にも機能している。
これは利用者が実名と正しい履歴を晒すことを前提にしているんだ。
wiredとrealworldとの密接な結合、融合と言い換えても良いかもしれない。
地理的距離と時間の隔たりを超えて、wiredがrealworldと呼ばれていた地域を包含する。
domainとしてのrealworld。

1-2-3

もう20年以上も前のこと。
その頃はパソコン（NECのPC-98xx）でやることと言えば、Lotus1-2-3。
あとゲームもだけど。
1-2-3の関数リファレンス本（たぶんナツメ社のやつ）を買ってきて、
全部の関数を一通り試してみたのが、 今の私を支える基盤の一部になっているように思えます。
そこに差分で知識を積み重ねていったのだと。

さて、Excel2007あたりで大幅に関数増えてるみたいで、これがまた便利。
もー、べんりー。って感じ。
でもIFERROR関数があるなら IFBLANK関数があってもいいのに、と思いました。

こういう、コレがありなら、コレもいけるんじゃ無い？とか
こうなって、こうなるんなら、こうしたらこうなるんじゃないか？っていう予測は
大体当たるようにデザインされてるもんだ。