つらい・・・

Excel 他のbookの複数のシートを取り込む方法について相談

解決済

質問者：demiguru
質問日時：2016/11/28 16:42
回答数：2件

皆様
Excelについて、お知恵をお貸しください。
内容は次のような内容です。

条件
毎日作成されるExcelのファイルがあります。
20161128.xls（ファイル名はその日の日付になります。）で、シートは５つあります。シート名は１～５で固定です。
各シートはA3:E100まで数字と空欄が入っています。

実施したいこと
別のExcelのファイルの１つのシートに集約したい。
また、集約するシートのExcelファイルを開くときに集約を実行したい。
　例えば
　　①20161128.xleのシート１の内容を取り込み先のシートのA1:E100までコピー
　　②20161128.xleのシート２の内容を取り込み先のシートのF1:J100までコピー
　　③20161128.xleのシート３の内容を取り込み先のシートのH1:L100までコピー
　　　これをシート５までくりかえしたい

単純な内容ですが、できなくて困っています。
ぜひお知恵をお貸しください。また、同様の質問を探したのですが、見付けきれませんでした。
こちらを参照のような回答でもかまいません。
お手間をとらせますが、よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

No.2ベストアンサー

回答者：ママチャリ
回答日時：2016/11/28 22:39

集計用のブックを開く時に集計したいとのことですが、集計対象のブック（日付のブック）は、どのように指定するのでしょうか？とりあえず、「当日日付のブックを集計する」で良ければ、こんな感じです。

集計用ブックのThisWorkbookモジュールのWorkbook_Openイベントプロシジャに次のVBAを張り付けて保存してください。集計用ブックを開くと集計結果が表示されます。
ちなみに、日付のブックと集計用のブックと同じフォルダにあるものとします。

Private Sub Workbook_Open()
Dim myRng As String
Dim ShNo As Long
Dim r As Long
Cells.Clear
For ShNo = 1 To 5
myRng = "'" & ThisWorkbook.Path & "\[" & Format(Now(), "yyyymmdd") & ".xlsx]" & ShNo & "'!A1"
r = (ShNo - 1) * 5 + 1
Range(Cells(1, r), Cells(100, r + 4)).Formula = "=IF(" & myRng & "="""",""""," & myRng & ")"
Next ShNo
Cells.Copy
Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("A1").Select
End Sub