ファイル名一覧からテキストファイル生成

質問

1000種類のテキストファイルを用意したいです。
ファイルの中身はすべて一緒でかまいません。
ファイル名が違います。
ファイル名は、Noで連番とかではないです。
ファイル名一覧を指定すれば、一括作成できる
ソフトはないでしょうか？

回答No.1

papayuka · ベストアンサー

OSはWindowsですか？

他にも方法はあると思いますが、、、
Excelのマクロとか。

Sub Test()
Dim fs, myPath As String
　myPath = "C:\" 'パスを指定
　Set fs = CreateObject("Scripting.FileSystemObject")
　For i = 1 To Range("A65536").End(xlUp).Row
　　　fs.CreateTextFile myPath & Range("A" & i) & ".txt"
　Next i
End Sub

お礼

winです。マクロまで書いてくれて、
どうもありがとうございます。