| |
マクロ素人です。
申し訳ありませんが、教えてください。
題名のとおり、集計表を以下の式で作成してみました。
'
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）と、出力ブックの抽出列数を増やしていきたいです。。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
