Twitter Debut

つぶやきでびゅ。
http://twitter.com/NFuji_TS

ExcelVBAでWebアクセス

' WEBからHTTP Get でデータを取得する

 Private Function getDataFromWeb(inUrl As String) As String
    ' データ取得
    Dim httpObj
    Set httpObj = CreateObject("Microsoft.XMLHTTP")
    httpObj.Open "GET", inUrl, False
    httpObj.send

    ' データ取得結果を確認する
    If (httpObj.Status >= 200 And httpObj.Status < 300) Then
        getDataFromWeb = httpObj.ResponseText
    End If

    ' 後始末
    Set httpObj = Nothing
End Function

エンタープライズアプリケーション アーキテクチャパターン

エンタープライズアプリケーション アーキテクチャパターン 
著者：マーチン・ファウラー
監訳：長瀬嘉秀
訳　：株式会社テクノロジックアート
出版：翔泳社

未読ですが、お薦めです。

というのも...
去る2/6(土)に、XP祭り関西2010に参加してきました。
祭り後の懇親会で、ビンゴゲームがあり、この書籍を頂きました。
運良く懇親会の席に、この本を監訳されている
テクノロジックアートの長瀬社長がおられましたので
その本に長瀬様のサインを頂きました。
そのお礼の意味も含めて、ここで宣伝させて頂きます。