1つのBookに数十枚もシートがあり、これをシートごとにBookで保存したい時がある。
Dim mysn As String mysn = ActiveSheet.Name Sheets(mysn).Copy ActiveWorkbook.SaveAs Filename:="G:\" & mysn & ".xls" ActiveWorkbook.Close とても簡単だが、非常に便利だった。 今回はG直下に保存したが、場合に応じて、G:\フォルダ名\・・・と続けてもいいと思う。
by slayer0210
| 2005-10-04 09:37
| マクロ
|
カテゴリ
以前の記事
フォロー中のブログ
検索
最新のトラックバック
その他のジャンル
ファン
記事ランキング
ブログジャンル
画像一覧
|
ファン申請 |
||