Excel VBA質問箱 IV

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

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


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

23671 / 76732

←次へ　｜　前へ→


	【58424】同じフォルダ内の別ブックのシートの値を別ブックのシートに集計

初心者 - 08/10/25(土) 8:56 -


	引用なし

	パスワード

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

長くなってしまい、又わかりにくかと思いますがご教授お願い致します。
よろしくお願いします。

0 hits

▼

【58424】同じフォルダ内の別ブックのシートの値を別ブックのシートに集計 初心者 08/10/25(土) 8:56

≪