ExcelでVBAを使って項目毎に別ファイルに落とそう[コマプロリダイレクト]
妹「お兄ちゃん、セルのデータを見ながらファイルを出力したりとかって難しい?」
兄「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
ディスカッション
コメント一覧
まだ、コメントがありません