ｵｰﾄﾌｨﾙﾀで表示された件数のｶｳﾝﾄです｡

Sub 表示件数ｶｳﾝﾄ()
  '表示されている行数をｶｳﾝﾄ｡見出しを除く場合は ?1する｡
 d = 0
 For Each c In AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible)
 
 d = d + 1
 Next c
End Sub

一度却下になった案ですが､ｱｲﾃﾞｱということでの提言です｡

SQL はお使いになれるようなので､やはりDBから読込んだﾃﾞｰﾀの保存先をCSV で

はなく MDB へ書き込んではどうでしょうか｡

MDB は Access がないと使えないと思われる方も多いですが､ADO やDAO を使用すれば､

実は Office すらなくても使用することができます｡

http://www.f3.dion.ne.jp/~element/msaccess/AcTipsGnrHowToUseJetWithoutMSAccess.html

http://www.nobotan.net/cgi-bin/sfs6_diary/sfs6_diary.cgi?action=cat&cat=5

下の方に､EXCEL で条件を記述し SQL で抽出する例が出ていますが､MDB と ADO

を使用するﾒﾘｯﾄは､ｺﾒﾝﾄにも書きましたが SQL でﾃﾞｰﾀの操作ができる

点です｡

もし CSV への書き出しにこだわるようでしたら､ｺﾏﾝﾄﾞﾍﾞｰｽのﾂｰﾙになりますが､

MicroSoftが無償提供しているLogParser をお勧めします｡

これも便利なﾂｰﾙで､ｺﾏﾝﾄﾞを使用して SQL で CSV からﾃﾞｰﾀ抽出を行うことができます｡

http://technet.microsoft.com/ja-jp/scriptcenter/dd919274

http://technet.microsoft.com/ja-jp/scriptcenter/ff191270.aspx

今回は使わないかもしれませんが､出力としてﾃｷｽﾄだけでなくｸﾞﾗﾌ出力が

出来たりと､優れものです｡

EXCEL の機能を使って解析もできますが､VBA の Shell でｺﾏﾝﾄﾞを呼び出すと短いｺｰﾄﾞで

処理をすることができますので､これも検討されてはどうでしょうか｡

いずれにせよ DB からのﾃﾞｰﾀ抽出ですから､自分で一からﾂｰﾙを作るのではなく､うまく

SQLへのﾗｯﾋﾟﾝｸﾞをする工夫をした方が､汎用性があるように思います｡

Excel使うより､これを使ったほうがずっと使いやすいとおもうのですが？

楽しいので一度試してみればいかがでしょう？

http://www.filemaker.co.jp/