前回のおさらい:エクセルシートの内容をテキストファイルで書き出す 前回のプログラムはこちらでした。 Sub makeText() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets(1) Dim datFile As String datFile = ActiveWorkbook.Path & "\data.txt" Open datFile For Output As #1 Dim i As Long i = 1 Do While ws.Cells(i, 1).Value <> "" Print #1, ws.Cells(i, 1).Value i = i + 1 Loop Close #1 MsgBox "data.txtに書き出しました" End Sub 流れとしては 「data.txt」というファイル名でテキストファイルをオープ
![エクセルVBAでエクセルシート上のデータをCSVファイルに書き出す | 隣IT](https://cdn-ak-scissors.b.st-hatena.com/image/square/ac6d422bf99f5b9f1c7c093fffc0cf5eb5292d6e/height=288;version=1;width=512/https%3A%2F%2Ftonari-it.com%2Fwp-content%2Fuploads%2Fwrite.jpg)