Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
103 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【82023】複数ブックから同名のsheetをコピーして一つのファイルにまとめる れれ 22/5/24(火) 10:38 質問[未読]
【82024】Re:複数ブックから同名のsheetをコピーして... OK 22/5/24(火) 10:53 発言[未読]
【82026】Re:複数ブックから同名のsheetをコピーして... れれ 22/5/25(水) 2:57 お礼[未読]
【82025】Re:複数ブックから同名のsheetをコピーして... マナ 22/5/24(火) 19:23 発言[未読]
【82027】Re:複数ブックから同名のsheetをコピーして... れれ 22/5/25(水) 2:59 質問[未読]
【82028】Re:複数ブックから同名のsheetをコピーして... OK 22/5/25(水) 11:51 発言[未読]
【82023】複数ブックから同名のsheetをコピーして...
質問  れれ  - 22/5/24(火) 10:38 -
引用なし
パスワード
   同じフォルダに入っている、複数のExcelファイルがあります。
ファイルの中身の形式は一緒でsheet名も同じになっています。
この複数のファイルの特定のSheetだけを、一つのファイルにコピーしてまとめたいです。
なにか良い方法はありますでしょうか？？
【82024】Re:複数ブックから同名のsheetをコピーし...
発言  OK  - 22/5/24(火) 10:53 -
引用なし
パスワード
   まずは、コピー元のブックとコピー先のブックを
開いた状態で、コピー元のブックからコピー先
のブックへシートを複製する作業をマクロの
自動記録してみてください。
参考コードが得られると思います。

また、コピー先のシート名がどのようになった
かもコードを作っていくうえで参考になると思
います。
【82025】Re:複数ブックから同名のsheetをコピーし...
発言  マナ  - 22/5/24(火) 19:23 -
引用なし
パスワード
   複数ブックのシートを1つのブックにコピーする
ht tps://www.moug.net/tech/exvba/0060003.html
【82026】Re:複数ブックから同名のsheetをコピーし...
お礼  れれ  - 22/5/25(水) 2:57 -
引用なし
パスワード
   ▼OK さん：
アドバイスありがとうございます。
これから頑張っていきたいと思います。
【82027】Re:複数ブックから同名のsheetをコピーし...
質問  れれ  - 22/5/25(水) 2:59 -
引用なし
パスワード
   ▼マナ さん：
ありがとうございます。
わたしもこのサイトを見ていたのですが、知識不足により理解するのが難しく
ソースについてはフォルダやExcelファイルのパスを打ち込めばよいのでしょうか？
【82028】Re:複数ブックから同名のsheetをコピーし...
発言  OK  - 22/5/25(水) 11:51 -
引用なし
パスワード
   >　　Const SOURCE_DIR As String = "C:\Data\Source\"

"C:\Data\Source\"を実際のフォルダパスに書き換えてください。最後に"\"を付けるのを
忘れずに。

>　　Const DEST_FILE As String = "C:\Data\AllReports.xls"

"C:\Data\AllReports.xls"を実際の集計用ブックのパスに書き換えてください。
C:\Data\AllReports\までがフォルダパスで、AllReports.xlsが集計用ブックの名前です。
これは既存のブックではなく、マクロで生成されるブックですので、既存のブックのパスを指定
しないようにしてください。

> 'コピー元の「報告書」シートを集約用ブックにコピー

サンプルコーデでは、「報告書」シートを集約用ブックにコピーしています。
シート名は実際のシート名に書き換えてください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
103 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free