Excel VBA質問箱 IV

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

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


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

1865 / 76734

←次へ　｜　前へ→


	【80514】フォルダ内の複数のExcelファイルを１つのExcelファイルに抽出する方法について

くりしち - 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）と、出力ブックの抽出列数を増やしていきたいです。。

4 hits

▼

【80514】フォルダ内の複数のExcelファイルを１つのExcelファイルに抽出する方法につ... くりしち 19/2/25(月) 7:25