>>252-253
ネットにあったコードをコピペをそのまま使って試してみました。
Cells(i, 3)が年月日で、上手く表示されません。

Sub writeCSVFile_Click()
　　'変数宣言
　　Dim filePath As String
　　Dim i As Long
　　Dim maxRow As Long
　　Dim fileNo As Integer

　　'初期値設定
　　filePath = ActiveWorkbook.Path & "\data.csv"
　　maxRow = Range("A1").End(xlDown).Row '最終行取得
　　fileNo = FreeFile 'FreeFile関数で使用可能なファイル番号取得

　　'ファイル開く
　　Open filePath For Output As #fileNo

　　'最終行までループ
　　For i = 1 To maxRow
　　　　'列の数は決め打ち
　　　　Write #fileNo, Cells(i, 1), Cells(i, 2), Cells(i, 3)
　　Next i

　　'ファイル閉じる
　　Close #fileNo
End Sub