Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


61489 / 76732 ←次へ | 前へ→

【19861】Re:複数のExcelファイルをまとめたり、ブック内のシートを別々に保存したい
お礼  ジュン  - 04/11/18(木) 9:29 -

引用なし
パスワード
   ▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>「マクロの記録」でもかなりのところまではできると思いますので、試されてはいかがでしょうか?
>
>それぞれの質問について、参考となるページがあるので紹介しておきます。
>
>>1、複数のエクセルファイルをひとつのファイルにまとめるマクロを
>>  作りたいのですが、どのような記述にすればよろしいでしょうか?
>
>複数のブックを1つのブックにまとめる方法
>http://www.cam.hi-ho.ne.jp/manbo/exala/excv080.htm
>
>>2、1つのファイルを複数のエクセルファイルにする(元のエクセルファイルに
>>  あるシートごとに分けたい)マクロを作りたいのですが、どのようにすればよろし   いでしょうか?
>
>ブック内すべてのワークシートをブック独立させる方法
>http://www.cam.hi-ho.ne.jp/manbo/exala/excv090.htm
>
>これについては、以下のようなマクロを作ってみました。
>Option Explicit
>
>Sub Macro1()
> Dim MyBookName As String
> Dim ws As Worksheet
> 
> '---保存ファイル名を作成
> 'ブック名から拡張子を除いた文字列 + "_" + シート名
> MyBookName = ThisWorkbook.Name
> 'ブック名の".xls"を取り除く
> If InStr(MyBookName, ".xls") > 0 Then
>  MyBookName = Left(MyBookName, InStr(MyBookName, ".xls") - 1)
> End If
> '---
> 
> 'すべてのシートを別々に保存
> For Each ws In Sheets
>  ws.Copy
>  ActiveWorkbook.SaveAs Filename:= _
>    ThisWorkbook.Path & "\" & MyBookName & "_" & ws.Name & ".xls"
>  ActiveWindow.Close
> Next
> MsgBox "すべてのシートを別々に保存しました。"
>End Sub
ありがとうございます。
かなり近ずくことができました。
これからも色々教えて下さい。

3 hits

【19799】ファイル作成のマクロについて ジュン 04/11/17(水) 14:07 質問
【19844】Re:複数のExcelファイルをまとめたり、ブッ... かみちゃん 04/11/17(水) 21:02 回答
【19861】Re:複数のExcelファイルをまとめたり、ブッ... ジュン 04/11/18(木) 9:29 お礼

61489 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free