Excel間でデータのやりとり

質問

複数のエクセルファイルに保存されてるデータをVBAでデータの内容を選択しながら、マスターファイルとして一つのエクセルファイルにまとめたいです。　セルのリンクではなく、データの読み込みで行いたいと思っています。　
　起動中のエクセルにもう一つのファイルを開けて、
Windows("data.xls").Activate　とすれば操作はできますが、使用するファイルが多いため出来るだけ個別のファイルそのものにアクセスする方法がないかと思って探しています。
　そのような方法があれば教えて下さい。

回答No.1

papayuka · ベストアンサー

マスターファイルにマクロを書くとして、同じウィンドウ内に複数のファイルが開いているなら下記の応用で良いかと思います。

指定したファイルを開くところから書くともっと長くなります。
例はマクロのあるブックの一番左のシートA列に他ブックの一番左のシートのA1を転記します。

Sub Test()
Dim wb As Workbook
For Each wb In Workbooks
　If Not wb Is ThisWorkbook Then
　　 ThisWorkbook.Worksheets(1).Range("A65536"). _
　　　End(xlUp).Offset(1, 0).Value = wb.Worksheets(1).Range("A1").Value
　End If
Next wb
End Sub

お礼

なんとなく分かりました。
やってみます。
有難う御座いました。