エクセルに保存された多量のデータを、セルごとに書き出し、複数のテキストファイ... - Yahoo!知恵袋

エクセルに保存された多量のデータを、セルごとに書き出し、複数のテキストファイ... - Yahoo!知恵袋:

'via Blog this'


Sub テキスト出力()
For i = 1 To 1000
If Range("A" & i) = "" Then Exit For

Open ActiveWorkbook.Path & "\" & Range("A" & i) & ".txt" For Output As #1
Print #1, Range("A" & i)
Print #1, Range("B" & i)
Print #1, Range("C" & i)
Print #1, Range("D" & i)

Close #1
Next
End Sub