ExcelでVBAを使って項目毎に別ファイルに落とそう[コマプロリダイレクト]

2019年7月9日

妹「お兄ちゃん、セルのデータを見ながらファイルを出力したりとかって難しい?」
兄「OpenコマンドやPrintコマンドを使って出力するのが一般的だけど、そっちを使うとプログラムっぽくなってしまうね。慣れてないと難しいかもしれないね」
妹「そうなんだ。大量にデータがあるから落としたかったんだけど」
兄「簡単に出力する方法もあるよ」

妹「これなら簡単に出力できそうだね」
兄「(慣れてたらVBAでガリガリ書く方が楽だけどね……)」

Sub Comapro()
    Dim var As Variant
    Dim sz As String
'B4からD19のセルをvariantに格納
    var = Range("B4:D19")
'ベタでループ
    For i = 1 To 15
     '文字列加工
         sz = "cmd /c echo " & var(i, 1) & var(i, 2) & var(i, 3) & ">>" & var(i, 3) & ".txt"
        Call Shell(sz, vbHide)
    Next i
End Sub