アクティブなシート名で保存

1つのBookに数十枚もシートがあり、これをシートごとにBookで保存したい時がある。

Dim mysn As String
mysn = ActiveSheet.Name
Sheets(mysn).Copy
ActiveWorkbook.SaveAs Filename:="G:\" & mysn & ".xls"
ActiveWorkbook.Close

とても簡単だが、非常に便利だった。
今回はG直下に保存したが、場合に応じて、G:\フォルダ名\・・・と続けてもいいと思う。
[PR]
by slayer0210 | 2005-10-04 09:37 | マクロ


<< ユーザー定義関数(色合計) セルをオートシェイプに・・・ >>