Excel VBA質問箱 IV

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

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


10795 / 13644 ツリー ←次へ | 前へ→

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

【19799】ファイル作成のマクロについて
質問  ジュン  - 04/11/17(水) 14:07 -

引用なし
パスワード
   2つ質問があります。

1、複数のエクセルファイルをひとつのファイルにまとめるマクロを
  作りたいのですが、どのような記述にすればよろしいでしょうか?


2、1つのファイルを複数のエクセルファイルにする(元のエクセルファイルに
  あるシートごとに分けたい)マクロを作りたいのですが、どのようにすればよろし   いでしょうか?

【19844】Re:複数のExcelファイルをまとめたり、ブ...
回答  かみちゃん  - 04/11/17(水) 21:02 -

引用なし
パスワード
   こんにちは。かみちゃん です。

「マクロの記録」でもかなりのところまではできると思いますので、試されてはいかがでしょうか?

それぞれの質問について、参考となるページがあるので紹介しておきます。

>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

【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
ありがとうございます。
かなり近ずくことができました。
これからも色々教えて下さい。

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