Excel VBA質問箱 IV

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

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


20 / 13256 ツリー ←次へ | 前へ→

【80514】フォルダ内の複数のExcelファイルを1つのExcelファイルに抽出する方法につ... くりしち 19/2/25(月) 7:25 質問[未読]
【80517】Re:フォルダ内の複数のExcelファイルを1つ... マナ 19/2/25(月) 17:47 発言[未読]

【80514】フォルダ内の複数のExcelファイルを1つ...
質問  くりしち  - 19/2/25(月) 7:25 -

引用なし
パスワード
   マクロ素人です。
申し訳ありませんが、教えてください。
題名のとおり、集計表を以下の式で作成してみました。

'
Option Explicit
'
Sub Macro1()
'
Dim O As Worksheet
Dim Path As String
Dim FileName As String
Dim IRange As String
Dim RowOut As Long
Dim RowAdd As Long
'
Set O = ThisWorkbook.Sheets("出力")
RowOut = InStrRev([B2], "\")
Path = Left([B2], RowOut - 1)
FileName = Dir([B2])
IRange = [B3]
RowAdd = Range(IRange).Rows.Count
O.Cells.ClearContents
RowOut = 1
'
While FileName > ""
Workbooks.Open Path & "\" & FileName, ReadOnly:=True
Range(IRange).Copy
O.Cells(RowOut, "A").PasteSpecial xlPasteValues
RowOut = RowOut + RowAdd
ActiveWorkbook.Close False
FileName = Dir
Wend
End Sub

上記式の、同マクロ内で出力ブックの、抽出の列数を増やしてみたいと考え、同じ式をコピー(wendの下から、同式のset O以下が同文で、IRange = [B3]を[C3]と変更、O.Cells(RowOut, "A")をO.Cells(RowOut, "B")と変更)し、試してみましたが、エラーが出てしまいました。
同じマクロ内で式を連結させて、出力ブックの抽出列数を増やすことは可能でしょうか?

例:出力ブックB3の範囲は(K13:AI14)となっていますが、C3の範囲は(A2:C13)、D3の範囲は(D2:G14)と、出力ブックの抽出列数を増やしていきたいです。。

【80517】Re:フォルダ内の複数のExcelファイルを1...
発言  マナ  - 19/2/25(月) 17:47 -

引用なし
パスワード
   ▼くりしち さん:

回答ではありません。

↓の xyzさんと同じ方でしょうか?
ht tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=80506;id=excel

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