データグリッドをＣＳＶに保存するには (ID:88193)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ベタなやり方ですが、基本に忠実に Dim objRs As ADODB.Recordset Dim objFld As ADODB.Field Dim intF As Integer Set objRs = ｘｘｘ ←適当なレコードセットを入れる intF = FreeFile Open "適当なファイル名" For Output As #intF Do While Not objRs.EOF For Each objFld In objRs.Fields Write #intF,objFld.Value; Next Print #intF,"" objRs.MoveNext Loop Close #intF