CSV出力するには？ (ID:100126)

名前

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

本文

お世話になっております。
ゆみです。

いつもお力になっていただいてありがとうございます。
まだまだ、VBを始めて１ヶ月の初心者の為、文章の内容が分かりづらかったり、
皆様からみて簡単な事を聞いてしまっているかもしれませんが。
暖かい目で見ていただけると幸いです。

【内容】

VB6でACCESSのADOを使用してプログラムを作成しております。
[tb_datainput]テーブルのデータの[dtmSaveday,sngWeight,sngBodyfat]の項目を
CSVに出力したく思っています。
CSVの場所は[C:\]でファイル名は[test.csv]です。
色々と調べて何とか、CSVファイルにデータが出力されるようにはなったのですが
私の望んでいるような出力方法に出来ません。
みなさまのお力を貸していただけると嬉しいです。

【出力イメージ】
-------------------------------------------------------------------
|          |    A     |     B    |    C     |     D    |    E     | 
-------------------------------------------------------------------
|     1    |          |     1    |    2     |     3    |     4    | ←１行目B列より横に[dtmSaveday]のデータを出力
-------------------------------------------------------------------
|     2    |   体重   |    49    |   49.1   |     49   |    49    | ←２行目B列より横に[sngWeight]のデータを出力
-------------------------------------------------------------------
|     3    |  体脂肪  |    25.0  |    25.0  |    25.0  |    25.0  | ←３行目B列より横に[sngBodyfat]のデータを出力
-------------------------------------------------------------------
|     4    |          |          |          |          |          |
-------------------------------------------------------------------
                ↑
              A1は「空白」、A2は「体重」、A3は「体脂肪」と固定で出力

と言ったような形に出力したいのですが・・・・。
私の力では、力不足で。
一度、見ていただけると嬉しいです。

【ソース】

Private Sub Command5_Click()
 
    Dim OutFile As Long
    Dim strline As String
    Dim i As Integer
 
    On Error GoTo Err_CSVCOPY
    
    Set RS = New ADODB.Recordset

strSQL = "SELECT day(dtmSaveday),sngWeight,sngBodyfat FROM tb_datainput"
    RS.Open strSQL, cn
 
    OutFile = FreeFile
    Open "c:\test.csv" For Output As #OutFile

strline = Mid(strline, 2)
     Print #OutFile, strline
 
    Print #OutFile, RS.GetString(adClipString, , Chr(31), vbNewLine)
    Close #OutFile
    
   
Exit_CSVCOPY:
    Exit Sub
Err_CSVCOPY:
    MsgBox Err.Description
    Resume Exit_CSVCOPY
    
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る