今日もお仕事です。

月次報告書作るために、VBA使ってみようと思ったりしたのですが…
ADOのConnection.Openで現在のワークシートを開いてSELECTやらINSERTやらをしまくっていたらPCがむちゃくちゃ重くなるではないですか。

Dim cn
Set cn = CreateObject("ADODB.Connection")
cn.Open "driver=Microsoft Excel Driver (*.xls);DBQ=" & ThisWorkbook.FullName & ";ReadOnly=False;"

こんな感じで開いて、200件くらいしかないデータを

SELECT **** FROM ****

とかで取り出して、その結果によって

UPDATE xxxx SET yyyy = yyyy + 1 WHERE **** = ####

を実行しまくるというものなのですが。
タスクマネージャで見たらメモリ500MBとか消費していやがります（汁

しかもそのブックを閉じてもダメで、Excel終了しないとメモリが開放されないという酷さ。
これってバグとちゃうの？
と思ったらMSのサイトに載ってました…

http://support.microsoft.com/kb/319998/en-us

RESOLUTION
The memory used by the ADO queries cannot be reclaimed by closing and releasing the ADO objects. The only way to release the memory is to quit Excel.

If possible, query the Excel worksheet only while the file is not open in Excel.

ひどい(;´д｀)
と思ったけど、Query the Excel worksheet while the file is not open in Excel が possible なので普通のVBScriptにしようと思います（ぉ

ていうか、そんな内容じゃVBAにする意味がほとんどなかったんじゃ・・・(汗)

PC組みなおし終わりました。
とはいえ、まだ設定が…

新PCうｐ汁とか言われたのでとりあえずスペックを。

まざぼ: ASUS P5LD2 SE (945P)
CPU: Intel Pentium4 641+ (3.20GHz, 2MB L2 Cache, HT)
CPUクーラー: Scythe MINE（峰） Cooler
メモリ: PC2-5300/667 DDR2 2GB (1GB x 2, Dual channel)
HDD: HGST HDT722525DLA380 (250GB, SATA)
ビデオカード: ASUS EN7600GS SILENT (GeForce 7600 GS, 256MB, Fanless, PCI Express)

他の部品は今までのをそのまま流用です。
FDDはもう使わなそうなのではずしました。
HDDはSATA 80GBx2 でストライピングしてたので、それもそのまま移植。
マザボのRAID機能がなくなってるみたいなのでOSでストライピングしてフォーマット。

蓋開いてるときに写真とっときましたがこんなかんじで。

HDDが1台しかついてませんが今は2台追加してあります。

OSインストールも問題なく終了。
と思ったらメモリカードリーダーがC,D,E,Fドライブになりました(;´Д｀)
起動ドライブがGって何(;´Д｀)

仕方ないのでカードリーダーの線抜いてOS入れなおしました…。

それ以外は特に問題もなく動作も安定。
それなりにドライバ入れてパンヤやってみましたが解像度を最高、その他設定を最高にしてもニュルニュル動きます。
でも3DMarkとか動かしたらガッコンガッコンなんだろうな（ぉ