空白が混ざってるレコードセットのＣＳＶ出力 (ID:115535)

名前

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

本文 いつも参考にさせていただいています。 SQLで取得したレコードセットをCSVに出力しているのですが、 表示されない列が発生し弱っております。 レコードセットの構造は下記です。 担当者ID 出社時間 退社時間 休憩時間 休憩終了時間 1 10:10 17:30 1 12:00 12:30 2 09:00 18:00 2 11:00 11:30 2 11:30 12:00 3 18:00 19:00 担当者ID、出社時間、退社時間までは過不足なくＣＳＶに出力されるのですが、 休憩時間、休憩終了時間の２列は表示されません。 左辺の列が空白だからと思うのですが、改善策がわかりません。 どうかご教授ください。 'パラメータクエリを実行 Set RS = New ADODB.Recordset Set RS = cmdMaster.Execute 'CSV吐き出し部分のソース '** ファイルオープン fno = FreeFile Open fnm For Output As fno Len = 32000 If mds Then For i = 0 To RS.Fields.Count - 1 rec = rec & Chr(&H22) & RS(i).Name & Chr(&H22) & "," Next Print #fno, Left(rec, Len(rec) - 1) End If Do Until RS.EOF rec = "" For i = 0 To RS.Fields.Count - 1 dummy = RS(i) If IsNull(dummy) Then s = "" Else s = dummy End If rec = rec & Chr(&H22) & RTrim(s) & Chr(&H22) & "," Next Print #fno, Left(rec, Len(rec) - 1) RS.movenext Loop Close fno RS.Close