VBAマクロでCSVファイルに出力する

①CSVとかファイルにデータを出力したいエクセルファイルを用意する
②[表示]リボン(excel2007の場合)からマクロをクリックし、任意のマクロ名を入力し編集をクリックする

③↓みたいな感じでファイル開けて書きこんで閉じる

Dim strFileName As String 'ファイル名用
Dim intFreeFile As Integer 'FreeFile用
Dim strWriteData As String '書きこむデータ用

strFileName = "書き込みたいファイルのフルパス"

intFreeFile = FreeFile
'ファイルを開ける
Open strFileName For Output As #intFreeFile

'書きこむデータをいれる
strWriteData = "AAAASAMPLEDATAAAAAAAAA" & "区切り文字"
strWriteData = strWriteData & "つぎたしつぎたし" & "区切り文字"
~~~~~~~~~~~~~~~~~~~続く

'書きこむ
Print #intFreeFile, strWriteData

'とじる
Close #intFF

かなりいい加減。。