他のワークブックの操作＠Excel マクロ・VBA

他のブックを操作します。

他のワークブックをオープンした時に、
Workbookのオブジェクトを取得します。
取得したオブジェクトを元に他ブックを操作します。

もしくは、WorkBooks(ブック名)でも操作できます。

他ブックの操作中は、
Application.ScreenUpdating = False
として、画面を無くすのもいいと思います。



Sub test()

Dim thisBook As Workbook
Dim workBook1 As Workbook
Dim workBook2 As Workbook

'マクロを実行しているワークブック
Set thisBook = ThisWorkbook

'他のワークブックを開く
Set workBook1 = Workbooks.Open("C:\test.xls")
Set workBook2 = Workbooks.Open("C:\test2.xls")

'他のワークブックの値を取得
thisBook.Worksheets("Sheet1").Range("A1").Value = workBook1.Worksheets("Sheet1").Range("A1").Value
thisBook.Worksheets("Sheet1").Range("A2").Value = workBook2.Worksheets("Sheet1").Range("A1").Value

'他のワークブックの値を表示
MsgBox Workbooks("test.xls").Worksheets("Sheet1").Range("A1").Value

'ワークブックを閉じる
workBook1.Close
workBook2.Close

End Sub




Copyright (C) Excelマクロ・VBAのお勉強. All Rights Reserved.