[[20140317160813]]　『複数のシートをいっきにCSV保存』（ジョンソン）　ページの最後に飛ぶ

『複数のシートをいっきにCSV保存』（ジョンソン）

１つのエクセルファイルの中に複数のシートがあり、
それらのシートを１枚ずつCSVファイルとして保存したいのですが
どのような方法がありますか？

そしてできれば、シートの中のM7:AB169という範囲(全シート同じ箇所)だけをCSVファイルとして保存されたらなおよいのですが…。

マクロを使えばできると聞きましたが、その系は全くわからないので
教えてください。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 こんなことでしょうか。
 Sub Sample()
    Const DATA_RANGE = "M7:AB169"
    Dim saveWB As Workbook
    Set saveWB = Workbooks.Add()
    Application.DisplayAlerts = False
    For Each ws In ThisWorkbook.Worksheets
        ws.Range(DATA_RANGE).Copy saveWB.Worksheets(1).Range("A1").Resize(ws.Range(DATA_RANGE).Rows.Count, ws.Range(DATA_RANGE).Columns.Count)
        saveWB.SaveAs Filename:=ThisWorkbook.Path & "\" & Split(ThisWorkbook.Name, ".")(0) & "_" & ws.Name & ".csv", FileFormat:=xlCSV
    Next
    Application.DisplayAlerts = True
    saveWB.Close False
 End Sub

（Mook） 2014/03/17(月) 16:37

できました～(;.;)
あっあっあっありがとうございます！
すばらしいです！

中身はきっと理解できないと思うので、
そのまま使わせていただきますm(__)m
（ジョンソン） 2014/03/17(月) 17:01

 希望通りなようで何よりですが、

 >中身はきっと理解できないと思うので、 
 そこは気持ちだけでも、
 「中身を理解するようにみてみます。」
 と言って欲しいところかなぁ。
（Mook） 2014/03/17(月) 17:08

ですね(^^;

興味は少しあるんですが、
難しいという先入観が先立ってしまうんです。

でも言われる通り、少しでも理解できるようみてみます！
（ジョンソン） 2014/03/17(月) 18:17

コメント返信：

[ 一覧(最新更新順) ]

[[20140317160813]] 『複数のシートをいっきにCSV保存』（ジョンソン） ページの最後に飛ぶ

[[20140317160813]]　『複数のシートをいっきにCSV保存』（ジョンソン）　ページの最後に飛ぶ