ADOのレコードセットからExcelのシートへデータを貼り付けるとき 以前は、 With Worksheets("実行結果") j = 1 Do Until rs.EOF If j = 1 Then For i = 0 To rs.Fields.Count - 1 .Cells(j, i + 1) = rs.Fields(i).Name Next j = j + 1 End If For i = 0 To …

節約ネタ尽きた変わりに、健康について この世に健康に勝る幸福はないよね。 現在、運よく健康な自分は幸福だと思う。 この不況で、仕事は激減して収入はガタ落ち（ないに等しい）が 体が健康なら、また稼げる。 医療費も最少で済む。 最高の節約ネタかもね…

「節約日記を書こう！」といって、始めたが最初に羅列して、既にネタがない状態。 今日は楽天カードが到着したが、これで初回買い物を６月ちゅうにすればポイントが ちょいとつくとか。 写真用の印刷用紙を買うかな？？ 楽天のドイツ屋ってとこで、ドイツ製…