いつもお世話になっております。
先日、保存ブックを開かずにコピーペーストするマクロは可能でしょうか?
という質問が投稿されているのを拝見させていただきました。
私もそのような事がしたかったのもあって、さっそくサンプルをコピーして
みたのですが、超初心者なもので記述されている内容が全然分からず、
止まってしまいました。
お手数ですが改めて質問させていただきます。
私のしたい内容は以下の通りです。
【内容】
フォルダ内に4つのブックを作成しています。
1・営業1課(ブック名) 課集計表(シート名)・・・シート保護をしています。
2・営業2課(ブック名) 課集計表(シート名)・・・シート保護をしています。
3・営業3課(ブック名) 課集計表(シート名)・・・シート保護をしています。
4・営業集計(ブック名) 1課集計表(シート名)
4・営業集計(ブック名) 2課集計表(シート名)
4・営業集計(ブック名) 3課集計表(シート名)
4・営業集計(ブック名) 全課集計表(シート名)
1~3は各課の同じ集計表に各課の数値が集計されるようになっております。
4の営業集計に1~3の各課集計表シート作成しています。
4の各課のシートに1~3の課集計表の値だけのコピーペーストを考えています。
申し訳ございませんが、今一度どなたかご伝授お願いできませんでしょうか。
よろしくお願いいたします。
イメージ画像を添付させていただきます。
No.1ベストアンサー
- 回答日時:
以下のマクロを標準モジュールへ登録してください。
Const folder As String = "D:\goo\excel\goo234\"
がブックの格納フォルダです。あなたの環境にあわせて適切に設定してください。
尚、営業1課.xlsx、1課集計表、等の数字1~3は半角であることが前提です。
もし、このブック名、シート名が全角なら、マクロ内のコードも全角にしてください。
全角、半角が不一致の場合、エラーになります。
--------------------------------------------------
Option Explicit
Const folder As String = "D:\goo\excel\goo234\" '最後に必ず\を付けること
Const basebook As String = "営業集計.xlsx"
Public Sub 集計表コピー()
Workbooks.Open Filename:=folder & basebook
Call CopyData("営業1課.xlsx", "課集計表", "1課集計表")
Call CopyData("営業2課.xlsx", "課集計表", "2課集計表")
Call CopyData("営業3課.xlsx", "課集計表", "3課集計表")
Application.DisplayAlerts = False
Workbooks(basebook).Save
Application.DisplayAlerts = True
Workbooks(basebook).Close
MsgBox ("コピー完了")
End Sub
Private Sub CopyData(ByVal srcbook As String, ByVal srcsheet As String, ByVal trgsheet As String)
Workbooks.Open Filename:=folder & srcbook
Workbooks(srcbook).Worksheets(srcsheet).Range("C3:I21").Copy Workbooks(basebook).Worksheets(trgsheet).Range("C3:I21")
Workbooks(srcbook).Close
End Sub
-------------------------------------------------
tatsu99さんへ
ご教授ありがとうございました。
頂いたコードで希望通りに値のコピーができたのですが、
ちゃんと理解したいので、悩んでいる追加の質問をさせて
ください。
"営業集計.xlsx"ファイルの標準モジュールにコードを記述して
そのファイルを閉じる時に保存形式を変更して保存しないと
せっかく記述したコードがなくなってしまうので、保存形式を
"営業集計.xlsm"にて保存すると同名でファイル形式の違う
ファイルができます。
コーピーペーストするにあたり、"営業集計.xlsm"を開いてマクロを実行
すると、"営業集計.xlsx"ファイルに値のコピーされます。
このような利用方法でいいのでしょうか。
"営業集計.xlsx"ファイル何か仕掛けが必要ですか。
本当に申し訳けございません。
今一度、ご教授頂けませんでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】同じフォルダ内にある複数ブックから1つのブック内の1シートにデータを集めたい 6 2022/09/28 18:16
- Excel(エクセル) 複数セルデータを別シートの単一セルにコピーしたい。(詳細をご参照ください) 1 2022/12/14 15:08
- Excel(エクセル) Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい 8 2022/09/07 15:12
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/24 08:33
- Excel(エクセル) vba 同じブック内での転記について 4 2023/01/15 14:42
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/09 12:17
- Visual Basic(VBA) 【部分一致した行を含む8行をシートにコピーする方法】 以下のような作業を行いたいのですが、どなたがコ 1 2022/08/30 16:24
- Excel(エクセル) VBA ふたつの同じ様式シートのセルをコピーしたい 2 2023/03/08 15:28
- Excel(エクセル) 【VBA】複数ブックから特定のシートを抽出して一つのブックに集約するマクロについて 3 2022/09/04 15:05
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
参照先のブックを開かずに内容をコピーしたい
Excel(エクセル)
-
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
-
4
エクセルで別ブックをバックグラウンドでオープンする方法
Excel(エクセル)
-
5
VBAで複数のブックを開かずに処理する方法
Visual Basic(VBA)
-
6
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
7
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
8
Excel VBA、 別ブックの最終行セルへのコピー&値ペースト
Visual Basic(VBA)
-
9
EXCELで条件付き書式で空白セルの時は塗りつぶし無しにする方法
Excel(エクセル)
-
10
エクセルVBAで選択状態を解除のしかた
Excel(エクセル)
-
11
EXCEL VBA コンボボックス、テキストボックスが未入力のときメッセージを表示する方法
Excel(エクセル)
-
12
Excel VBA別ブックのシートをコピーするには
Visual Basic(VBA)
-
13
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
14
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
15
VBA 既に開いているBookに継続作業(転記)する追加コード
Visual Basic(VBA)
-
16
Excelにて、ユーザーフォームで、日付けの範囲を指定し、検索しデーターを抽出し 別シートへ転記した
Excel(エクセル)
-
17
エクセルのVBAで日付を検索し転機したい
Visual Basic(VBA)
-
18
VBAで任意のファイルを読み出して貼り付けたい
Excel(エクセル)
-
19
エクセルVBA 作業後に選択範囲を解除する方法
Excel(エクセル)
-
20
【VBA】指定した検索条件に一致したら別シートに転記したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ピボットテーブルの項目間の計算
-
エクセルで○や×の図形の集計は...
-
エクセルの集計を数字以外です...
-
オートシェイプを色別に個数を...
-
エクセルのピポットテーブルで...
-
ピボットテーブルへの集計フィ...
-
ピボットテーブルのことです
-
勤務表の中抜け集計の関数を教...
-
パソコンで回答できる穴埋め問...
-
ピボット 集計アイテム
-
エクセルを使ってCSVデータを自...
-
ピボットテーブルの集計値をVBA...
-
EXCELで大文字と小文字を...
-
Excel週ごとの集計を関数で
-
エクセルの集計機能を横方向(...
-
マクロで貼り付け位置を可変さ...
-
エクセル ピボットテーブルを更...
-
グラフの横・縦項目が全部表示...
-
エクセルの散布図のX軸に文字...
-
エクセルの対数グラフで細かい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ピボットテーブルのことです
-
エクセルのピポットテーブルで...
-
ピボットテーブルの項目間の計算
-
マクロで貼り付け位置を可変さ...
-
エクセルの集計を数字以外です...
-
エクセルで○や×の図形の集計は...
-
オートシェイプを色別に個数を...
-
IF関数を使用した数字に、カン...
-
Microsoft Formsによるアンケー...
-
エクセルの集計機能を横方向(...
-
勤務表の中抜け集計の関数を教...
-
エクセルで数値のプラス毎とマ...
-
保存ブックを開かずコピーペー...
-
ピボットテーブルの集計値をVBA...
-
ピボットを使ったシートに計算...
-
ピボットテーブルへの集計フィ...
-
価格帯別集計 EXCELで効率の良...
-
エクセル 小計後に別シートにデ...
-
セルの中の文字を削除したい
-
エクセルを使ってCSVデータを自...
おすすめ情報