OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
締切り
済み

複数のExcelブックを1つのブックとしてにまとめたい

  • 困ってます
  • 質問No.159920
  • 閲覧数462
  • ありがとう数1
  • 気になる数0
  • 回答数3
  • コメント数0

お礼率 58% (10/17)

Excelのファイルを配布したのですが回収した後のことを考えていなかったので困っています。

回収した複数のExcelのファイルを簡単に1つのファイルにまとめる方法はありますか?

配布した際にわかり易くと思いすべてのファイル名は異なるファイル名にしてます。数は300弱です。

マクロを組むにも300個のファイル名称になっているのでどうしたら良いのか困っています。
通報する
  • 回答数3
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全3件)

  • 回答No.1
レベル14

ベストアンサー率 33% (1403/4213)

「考え方」について、です。 「まとめるためのブック」にマクロを記述します。 内容は「1.指定されたブック(一件)の全シートを自分自身の末尾に追加する」。 (マクロの記録でできますよね) で、300件のブック名を一覧シートにしておいて、 セルの値がなくなるまで 繰り返すマクロで「1.」を呼び出す。 でしょうか。
「考え方」について、です。

「まとめるためのブック」にマクロを記述します。
内容は「1.指定されたブック(一件)の全シートを自分自身の末尾に追加する」。
(マクロの記録でできますよね)

で、300件のブック名を一覧シートにしておいて、
セルの値がなくなるまで
繰り返すマクロで「1.」を呼び出す。

でしょうか。

  • 回答No.2
レベル13

ベストアンサー率 26% (267/1014)

まずは、ここら辺から・・ >マクロを組むにも300個のファイル名称になっているのでどうしたら良いのか  300個のファイルを一つのフォルダに集めて、 そのフォルダに、コマンドプロンプトのプロパティ「作業ディレクトリ」を空欄にしたやつをコピーしましょう。(作業を楽にするためです。Change Directory コマンドを知っているなら、cd で移動するほうをお勧めします) そのDOS窓から ...続きを読む
まずは、ここら辺から・・

>マクロを組むにも300個のファイル名称になっているのでどうしたら良いのか

 300個のファイルを一つのフォルダに集めて、
そのフォルダに、コマンドプロンプトのプロパティ「作業ディレクトリ」を空欄にしたやつをコピーしましょう。(作業を楽にするためです。Change Directory コマンドを知っているなら、cd で移動するほうをお勧めします)
そのDOS窓から、dir /B *.xls > files.csv [Enter] と入力し、 files.csv をEXCELで開くと、XLS拡張子のファイルリストが出来ています。

これなら、少しはマクロを組むのがカンタンになったのでは?

まだダメなら、貴方のマクロプログラムレベルを補足して下さい。(xxxならできるとか、xxxならやったことがあるとか)
  • 回答No.3
レベル8

ベストアンサー率 68% (17/25)

okumaru さん、こんばんは。 1.C:\My Documents\ に全ファイルを集め 2.集める対象のシートは必ず各ファイルの1枚目のシート という前提で以下のようにすればできる気がします(無責任ながら、未検証ですけど)。 Sub CollectSheets() Dim strPath As String Dim strFileName As String s ...続きを読む
okumaru さん、こんばんは。
1.C:\My Documents\ に全ファイルを集め
2.集める対象のシートは必ず各ファイルの1枚目のシート
という前提で以下のようにすればできる気がします(無責任ながら、未検証ですけど)。

Sub CollectSheets()
Dim strPath As String
Dim strFileName As String

strPath = "C:\My Documents\"
strFileName = Dir(strPath & "*.xls")
Do Until strFileName
Workbooks.Open Filename:=strPath & strFileName
Workbooks(strFileName).Worksheets(1).Move agfter:=ThisWorkbook.Sheets(Sheets.Count)
Workbooks(strFileName).Close savechange:=False
strFileName = Dir
Loop

End Sub

でも、単純に考えると、300ものシートが1Bookに集められると...
どうなんでしょう (^^;
このQ&Aのテーマ
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ