Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1873 / 76734

←次へ　｜　前へ→


	【80506】EXCEL フォルダ内のファイルを結合する方法について

xyz - 19/2/23(土) 11:37 -


	引用なし

	パスワード

マクロの事で１件ご教示ください。

Sub フォルダ内のファイルを出力()
　read_folder = Range("B2")
　read_row = Range("C2")
　read_col = Range("D2")
　read_file = Dir(read_folder & "\")
　Do While read_file <> ""
　　output_end_row = Sheets("出力").Range("A65536").End(xlUp).Row
　　Workbooks.Open read_folder & "\" & read_file
　　input_end_row = Range("A65536").End(xlUp).Row
　　Range(Cells(read_row, 1), Cells(input_end_row, read_col)).Copy
　　ThisWorkbook.Sheets("出力").Activate
　　Range("A" & output_end_row + 1).Select
　　ActiveSheet.Paste
　　Workbooks(read_file).Close
　　read_file = Dir()
　Loop
End Sub

あるサイトを参考に、フォルダ内の複数のExcelファイルから、１つの集計表にデータを抽出したいと考え、上記のモジュールでマクロを作ってみました。
上記の式では、集計表の出力表に「読み込み始める行」と「読み込む列数」で関数を組んでると思われますが、
例えば、「13行目から14行目」と「K列目からAI列目」のみを読み込むようにする方法はありますでしょうか？

読み込む行と列の範囲を指定して、特定の項目だけ読み込みしたいのですが、どうしてもできませんでした。
よろしくお願いいたします。

7 hits

▼

【80506】EXCEL フォルダ内のファイルを結合する方法について xyz 19/2/23(土) 11:37