同一フォルダ内に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も見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
エクセルで リンクが切れない状態で文字を入れたい
Excel(エクセル)
-
こんにちは。Excelのデータ入力規則のことで教えてください。複数条件を指定したい場合の構文ですが、
Excel(エクセル)
-
-
4
フォルダ内の全てのBookに同じ処理を繰り返す
Excel(エクセル)
-
5
ノートPCでExcelを一部見せない状態で外部モニターに出力したい
Excel(エクセル)
-
6
エクセルの関数について
Excel(エクセル)
-
7
エクセル→貼り付けのオプション→貼り付け先の書式に合わせる が急にできなくなった。 どうして?
Excel(エクセル)
-
8
手書き日報にエクセルのデータを重ねて印刷したい
Excel(エクセル)
-
9
数字をコンマで区切った文字列の集計のマクロの修正
Excel(エクセル)
-
10
Excelで、改行がある場合の条件式(関数)の書き方を教えてください
Excel(エクセル)
-
11
エクセル 関数について
Excel(エクセル)
-
12
【マクロ】転記ツール。転記先にデータがある場合、上書きするか消すか質問をして欲しい
Excel(エクセル)
-
13
条件式書式に入力する式
Excel(エクセル)
-
14
エクセルのプルダウンリストについて
Excel(エクセル)
-
15
「ChatGPT-3.5」の回答ですが
Excel(エクセル)
-
16
エクセルの計算式について質問
Excel(エクセル)
-
17
Excel:文字との間に数字の組合せ、次のセルの数字を1ずつ増やすには?
Excel(エクセル)
-
18
Excel2013を使用 指定した範囲から完全一致した名前を返したい
Excel(エクセル)
-
19
エクセル2016でfilter関数がないので、、抜き出す関数をおしえてください。
Excel(エクセル)
-
20
エクセルのツールバーのプルダウンメニューの順番を変えたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
iPhoneのファイル
-
PDFファイルを開きたいので...
-
PDFのページ数を調べたい
-
jw CADのファイルが見つか...
-
AS400 CPYSPLFコマンドの使い方
-
登録した単語が消えた!?
-
itunesの「ファイルを統合」処...
-
パソコンでフォルダという用語...
-
iTunesで音楽ファイルが消える・・
-
3つのフォルダ内のファイルを...
-
エクセル:一般的に何メガくら...
-
SDカードの保存先のファイル名
-
ブログ復元について教えて下さい
-
写真をネットにバックアップし...
-
防虫剤の匂いでバックアップCD...
-
Windows 10 のノートパソコンを...
-
iPhoneのバックアップについて...
-
〜Googleフォトバックアップに...
-
BunBackupでバックアップが出来...
-
NASのバックアップ時
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
iPhoneのファイル
-
jw CADのファイルが見つか...
-
ExcelのVBAで同一フォルダ内に...
-
同じフォルダに入っているファ...
-
PDFのページ数を調べたい
-
PDFファイルを開きたいので...
-
登録した単語が消えた!?
-
フォトショップで保存したファ...
-
photoshop 複数の画像を一つの...
-
AS400 CPYSPLFコマンドの使い方
-
パソコンでフォルダという用語...
-
iTunesで音楽ファイルが消える・・
-
JPG画像を開くとPCが固まるんで...
-
1つのフォルダには合計何バイト...
-
複数のmidiファイルを連結する...
-
コピーペーストするとぼかし効...
-
DVDを開くと、VIDEO_TS IFO と...
-
ムービーメーカーで使うファイ...
-
類似ファイルの削除方法
-
サクラエディタ 正規表現
おすすめ情報