Excel VBA質問箱 IV

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

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


61504 / 76732 ←次へ | 前へ→

【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

2 hits

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

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