同一フォルダ内にExcelファイルが400程あります。
この400程のファイルのsheet1からA2からE2をコピーして
ひとつのExcelsheetにその値をまとめたいです。
流れとしては以下になりますが、どのようなコードをマクロに書けば良いでしょうか?
Excelファイル1のsheet1、A2からE2をコピー
ExcelファイルAAA、のA1からE1に貼り付け
Excelファイル1閉じる
Excelファイル2を開く
Excelファイル2のsheet1、A2からE2をコピー
Excelファイルあああ、のA2からE2に貼り付け
Excelファイル2閉じる
Excel3を開く
.........同様の処理を同一フォルダ内の全てのxlsxに実行する
ファイルAAAは既存ファイルとして予め作成して別フォルダに置いてからマクロ実行しても良いですし
マクロ実行時に作成して同一フォルダに保存しても良いです。
お忙しいところ恐縮ですが、教えてくださいませ。
どうぞよろしくお願いします。
No.1ベストアンサー
- 回答日時:
Excel VBAを使用して、同一フォルダ内の複数のExcelファイルからデータをコピーして統合するマクロを作成できます。
以下は、その手順を示す基本的なコードです。vba
Copy code
Sub 統合マクロ()
Dim FolderPath As String
Dim Filename As String
Dim MasterWorkbook As Workbook
Dim CurrentWorkbook As Workbook
Dim wsMaster As Worksheet
Dim wsCurrent As Worksheet
Dim LastRow As Long
' マスターファイル(結合先)を開く
Set MasterWorkbook = Workbooks.Open("パス\ファイルAAA.xlsx")
Set wsMaster = MasterWorkbook.Sheets(1)
' 同一フォルダ内のExcelファイルを取得
FolderPath = "フォルダのパス" ' フォルダのパスを指定
Filename = Dir(FolderPath & "\*.xlsx")
' フォルダ内の各Excelファイルを処理
Do While Filename <> ""
' ファイルを開く
Set CurrentWorkbook = Workbooks.Open(FolderPath & "\" & Filename)
Set wsCurrent = CurrentWorkbook.Sheets(1)
' データをコピーしてマスターファイルに貼り付け
LastRow = wsMaster.Cells(wsMaster.Rows.Count, "A").End(xlUp).Row + 1
wsCurrent.Range("A2:E2").Copy wsMaster.Range("A" & LastRow)
' ファイルを保存して閉じる
CurrentWorkbook.Close SaveChanges:=False
' 次のファイルを取得
Filename = Dir
Loop
' マスターファイルを保存して閉じる
MasterWorkbook.Save
MasterWorkbook.Close SaveChanges:=False
' メッセージを表示
MsgBox "統合が完了しました。"
End Sub
このコードは、指定したフォルダ内の全ての.xlsxファイルを処理し、そのファイルのSheet1からA2からE2までのデータをマスターファイル(ファイルAAA)にコピーして統合します。ファイルAAAは事前に用意しておくか、マクロ内で作成することができます。ファイルAAAはマクロを実行するExcelファイルと同じフォルダに保存されます。
コード内のコメントを確認し、必要に応じてフォルダパスやファイル名を適切に設定してください。
No.2
- 回答日時:
ExcelのVBAを使用して、同一フォルダ内にあるExcelファイルに同じ処理をする方法を教えます。
以下のコードを使用することで、同一フォルダ内にあるすべてのExcelファイルに対して、sheet1からA2からE2までの範囲をコピーし、新しいExcelファイルに貼り付けることができます。
```vba
Sub CopyData()
Dim MyFolder As String
Dim MyFile As String
Dim wbk As Workbook
Dim ws As Worksheet
Dim DestRow As Long
'処理するフォルダのパスを指定
MyFolder = "C:\Users\user\Desktop\SampleFolder\"
'処理するフォルダ内のすべてのExcelファイルに対して処理を実行
MyFile = Dir(MyFolder & "*.xlsx")
Do While MyFile <> ""
Set wbk = Workbooks.Open(MyFolder & MyFile)
Set ws = wbk.Sheets("Sheet1")
DestRow = ThisWorkbook.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row + 1
ws.Range("A2:E2").Copy Destination:=ThisWorkbook.Sheets("Sheet1").Range("A" & DestRow)
wbk.Close False
MyFile = Dir()
Loop
End Sub
```
上記コードでは、`MyFolder`変数に処理するフォルダのパスを指定します。その後、`MyFile`変数に`Dir()`関数を使用して、指定したフォルダ内のすべてのExcelファイル名を取得します。`Do While`ループを使用して、各Excelファイルを開き、`ws.Range("A2:E2").Copy`で範囲をコピーし、新しいExcelファイルに貼り付けます。最後に、元のExcelファイルを閉じます。
このコードを使用する前に、マクロが保存されているExcelファイルと同じフォルダ内に、空のExcelファイル「AAA.xlsx」を作成しておく必要があります。また、このコードは「Sheet1」シートからデータをコピーするように設定されています。必要に応じてシート名や範囲を変更してください。
以上が回答となります。ご参考になれば幸いです。
ソース: Bing との会話 2023/9/13
(1) フォルダ内のxlsxファイルに同一処理をするマクロ【ExcelVBA .... https://vba-create.jp/vba-folder-all-file-process/
(2) フォルダの中にある全てのExcelファイルに同じ処理をするマクロ .... https://officevba.info/fileikkatsushori/
(3) エクセルマクロVBAでフォルダ内のExcelファイル全てに処理をする .... https://www.fastclassinfo.com/entry/do_allexcelf …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA CSV取り込みについて 3 2021/12/30 22:40
- Visual Basic(VBA) VBAコード: マクロ有効ブック上のシート1にあるデータ範囲を、別のXLSのシートへ写す 2 2021/10/20 22:48
- Excel(エクセル) デスクトップ上に同じフォルダ名とファイル名で保存ができない 1 2021/11/06 11:27
- Access(アクセス) accessでexcelデータを一部変換してインポートするVBAコードを教えてください。 2 2021/12/14 08:31
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/03 13:18
- Visual Basic(VBA) Excel VBAの同名ファイルの保存時の置き換えについて 2 2021/12/21 22:39
- XML エクセルのマクロについて教えてください。 3 2023/02/06 09:06
- Visual Basic(VBA) 転記先VBA 一致しているセルがコピーされない 5 2021/11/15 17:23
- Visual Basic(VBA) EXCEL VBA シート比較し〇×判定 1 2021/11/19 11:49
- Windows 10 こんなDOSコマンドのbatファイルを作れないでしょうか? 3 2021/10/22 15:56
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
フォルダ内の全てのBookに同じ処理を繰り返す
Excel(エクセル)
-
Excelで複数ブックの同一セルに同じ値を入力するにはどうすればよいですか?
Excel(エクセル)
-
-
4
同一フォルダ内の別ブックからシートをコピーするには? 「集計」フォルダ内に「項目別集計.xlms」と
Visual Basic(VBA)
-
5
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
6
複数ファイルから特定シートのコピー
Excel(エクセル)
-
7
フォルダ内の全てのファイルに貼り付けを行うマクロを作りたい
Visual Basic(VBA)
-
8
特定の文字を含むシートだけマクロ処理をしたい
Visual Basic(VBA)
-
9
エクセル 複数ファイルの一括セル入力
Excel(エクセル)
-
10
【VBA】同じフォルダーにある全てのファイルを一括処理する方法
Ruby
-
11
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
-
12
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
13
EXCEL マクロで 同じフォルダ内の複数ファイルの複数行全体を選択して1つのファイルに集約
Excel(エクセル)
-
14
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
15
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
16
複数のExcelファイルにある同名シートを1つのシートに一括でまとめるには?
Excel(エクセル)
-
17
EXCELで複数のブックの特定のセルの合計を求める方法は?
Excel(エクセル)
-
18
EXCELのVBAでシートコピーをしたとき元のマクロを削除するには?
Excel(エクセル)
-
19
エクセル:シート名を手入力でなく、セル「A1」の文字を出したい。
Excel(エクセル)
-
20
マクロを複数シートに実行するには?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelのVBAで同一フォルダ内に...
-
jw CADのファイルが見つか...
-
iPhoneのファイル
-
PDFのページ数を調べたい
-
フォトショップで保存したファ...
-
AS400 CPYSPLFコマンドの使い方
-
GIMPの使い方
-
同じフォルダに入っているファ...
-
エクセル:一般的に何メガくら...
-
SDカードの保存先のファイル名
-
iCloud+のオファーを使用という...
-
グーグルドライブのバックアッ...
-
i.softbank.jpのメールをパソコ...
-
写真をネットにバックアップし...
-
Googleドライブでバックアップ
-
Arcserveでのメディアの消去の...
-
HDD余った
-
スマホのバックアップは上書き...
-
新しいPCに旧PCのデータを移したい
-
WinXP SP3のリカバリディスク作成
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
iPhoneのファイル
-
jw CADのファイルが見つか...
-
ExcelのVBAで同一フォルダ内に...
-
同じフォルダに入っているファ...
-
PDFのページ数を調べたい
-
PDFファイルを開きたいので...
-
登録した単語が消えた!?
-
フォトショップで保存したファ...
-
photoshop 複数の画像を一つの...
-
AS400 CPYSPLFコマンドの使い方
-
パソコンでフォルダという用語...
-
iTunesで音楽ファイルが消える・・
-
JPG画像を開くとPCが固まるんで...
-
1つのフォルダには合計何バイト...
-
複数のmidiファイルを連結する...
-
コピーペーストするとぼかし効...
-
DVDを開くと、VIDEO_TS IFO と...
-
ムービーメーカーで使うファイ...
-
類似ファイルの削除方法
-
サクラエディタ 正規表現
おすすめ情報