Excel VBA質問箱 IV

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

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


145 / 75006 ←次へ | 前へ→

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

引用なし
パスワード
   マクロの事で1件ご教示ください。

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ファイルから、1つの集計表にデータを抽出したいと考え、上記のモジュールでマクロを作ってみました。
上記の式では、集計表の出力表に「読み込み始める行」と「読み込む列数」で関数を組んでると思われますが、
例えば、「13行目から14行目」と「K列目からAI列目」のみを読み込むようにする方法はありますでしょうか?

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

47 hits

【80506】EXCEL フォルダ内のファイルを結合する方法について xyz 19/2/23(土) 11:37 質問[未読]
【80507】Re:EXCEL フォルダ内のファイルを結合する... マナ 19/2/23(土) 12:21 発言[未読]
【80508】Re:EXCEL フォルダ内のファイルを結合する... xyz 19/2/23(土) 15:19 発言[未読]
【80509】Re:EXCEL フォルダ内のファイルを結合する... マナ 19/2/23(土) 18:51 発言[未読]
【80510】Re:EXCEL フォルダ内のファイルを結合する... xyz 19/2/23(土) 21:34 発言[未読]
【80511】Re:EXCEL フォルダ内のファイルを結合する... マナ 19/2/23(土) 21:51 発言[未読]
【80513】Re:EXCEL フォルダ内のファイルを結合する... xyz 19/2/25(月) 6:57 お礼[未読]

145 / 75006 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free