Excel VBA質問箱 IV

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

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


58 / 13293 ツリー ←次へ | 前へ→

【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 お礼[未読]

【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列目」のみを読み込むようにする方法はありますでしょうか?

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

【80507】Re:EXCEL フォルダ内のファイルを結合す...
発言  マナ  - 19/2/23(土) 12:21 -

引用なし
パスワード
   ▼xyz さん:

>  Range(Cells(read_row, 1), Cells(input_end_row, read_col)).Copy

↑ここで、K13:AI14 をコピーしたいということでしょうか?

【80508】Re:EXCEL フォルダ内のファイルを結合す...
発言  xyz  - 19/2/23(土) 15:19 -

引用なし
パスワード
   ▼マナ さん:
>▼xyz さん:
>
>>  Range(Cells(read_row, 1), Cells(input_end_row, read_col)).Copy
>
>↑ここで、K13:AI14 をコピーしたいということでしょうか?

左様です。単純にそこに範囲を指定すればよろしいのでしょうか?

【80509】Re:EXCEL フォルダ内のファイルを結合す...
発言  マナ  - 19/2/23(土) 18:51 -

引用なし
パスワード
   ▼xyz さん:

>左様です。単純にそこに範囲を指定すればよろしいのでしょうか?

はい。それでもよいです。
試していないのですか?

 

【80510】Re:EXCEL フォルダ内のファイルを結合す...
発言  xyz  - 19/2/23(土) 21:34 -

引用なし
パスワード
   ▼マナ さん:
>▼xyz さん:
>
>>左様です。単純にそこに範囲を指定すればよろしいのでしょうか?
>
>はい。それでもよいです。
>試していないのですか?
>
> 素人で申し訳ありません。
Range(Cells(read_row, 1), Cells(input_end_row, read_col)).Copyを
Range(K13:AI13).Copy
としたところ区切り範囲のエラーが出てしまい、K13:AI13とすると、rangeメソッドのエラーが出てしまいます。

【80511】Re:EXCEL フォルダ内のファイルを結合す...
発言  マナ  - 19/2/23(土) 21:51 -

引用なし
パスワード
   ▼xyz さん:
^
>Range(K13:AI13).Copy
>としたところ区切り範囲のエラーが出てしまい、K13:AI13とすると、rangeメソッドのエラーが出てしまいます。

Rangeでのセルの指定方法
ht tps://excel-ubara.com/excelvba1/EXCELVBA309.html

【80513】Re:EXCEL フォルダ内のファイルを結合す...
お礼  xyz  - 19/2/25(月) 6:57 -

引用なし
パスワード
   ▼マナ さん:
>▼xyz さん:
>^
>>Range(K13:AI13).Copy
>>としたところ区切り範囲のエラーが出てしまい、K13:AI13とすると、rangeメソッドのエラーが出てしまいます。
>
>Rangeでのセルの指定方法
>ht tps://excel-ubara.com/excelvba1/EXCELVBA309.html

抽出できました!
お手数おかけしました。本当にありがとうございます!

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