|
VBA初心者です。教えてください。
下記マクロは3ブックを指定していますが
実現したいことは同じフォルダ内にあるブックのシートを参照し、集計用ブックに
貼り付けることです。
・同じフォルダにあるブックのsheet1のE3:E100までの値を集計用ブックのsheet1のB1:B100に次のブックのsheet1のE3:E100までの値を集計用ブックをC1:C100と集計用ブックへの貼り付けの列をずらしながら集計したいです。
Sub Sample()
Const myPath = "C:\debug\"
Dim endRow As Long
Dim calc_area As String
Dim Ws As Worksheet
Dim day As String, week As String, C As String
Set Ws = ThisWorkbook.Worksheets("Sheet1")
endRow = Ws.Cells(Ws.Rows.Count, 3).End(xlUp).Row
calc_area = "R1C4:R" & endRow & "C5"
day = "'" & myPath & "[01.log.xls]Sheet1'!" & calc_area
week = "'" & myPath & "[08.log.xls]Sheet1'!" & calc_area
C = "'" & myPath & "[02.xls]Sheet1'!" & calc_area
Ws.Range("D1").Consolidate Sources:=Array(day, week, C), Function:=xlSum
Set Ws = Nothing
End Sub
長くなってしまい、又わかりにくかと思いますがご教授お願い致します。
よろしくお願いします。
|
|