エクセルのマクロを使って

質問

エクセルのマクロを使って複数のセルの文字をそれぞれファイル名にし一括エクスポートする手順を教えてください。

ちなみにテキストの中身は空でOKです。

お忙しいところすいません、よろしくお願いします。

回答No.1

nicotinism

こんな感じじゃないかな
Sub t()
　　Dim r As Range
　　Dim ff As Integer
　　Dim trgDir As String

　　ff = FreeFile
　　Open "dummy.txt" For Output As #ff
　　Close #ff

　　trgDir = ThisWorkbook.Path & "\てすとー\"
　　If Dir(trgDir, vbDirectory) = "" Then
　　　　MkDir (trgDir)
　　End If

　　For Each r In Sheets("sheet1").UsedRange
　　　　If r <> Empty Then
　　　　　　FileCopy "dummy.txt", trgDir & r.Value & ".txt"
　　　　End If
　　Next
　　Kill "dummy.txt"
End Sub