[[20120507172756]]　『同時に開いているエクセルのファイル』（にこにこぐらっぷりんぐ）　ページの最後に飛ぶ

『同時に開いているエクセルのファイル』（にこにこぐらっぷりんぐ）

つねに2つのエクセルのファイルが開いています。

仮にAとBだとしてA.xlsがアクティブで裏にB.xlsが開いています。

この時にAのマクロでB.xlsのシート1から値をコピーして着たいのですが、

ファイル名がB.xlsでは無い場合（ランダムでファイル名が変わります)に

どうやって指定したらいいですか？

よろしくお願いします。

Windows 7　Excel2003

 アドインやを個人用マクロブックを使っている場合は、条件の追加が必要ですが、
 たたき台ということで、下記のような感じで出来ないでしょうか。
 (Mook)

  Sub NNG()
    Dim WB_B As Workbook
    Dim wb As Workbook
    For Each wb In Workbooks
        If ThisWorkbook.Name <> wb.Name Then
            If WB_B Is Nothing Then
                Set WB_B = wb
            Else
                MsgBox "開いているEXCELファイルが二つではありません"
                Exit Sub
            End If
        End If
    Next
    MsgBox "別ファイルの A1 =" & WB_B.Worksheets(1).Range("A1").Value
 End Sub

 Mookさんのととくらべて、かなり手抜き。（かつインチキ？）
 ブックが２つだけ開かれているとして。マクロブックが前面にあって、裏側のブックのシート１のA1を
 マクロブックのシート１のA1に転記。

 Sub Sample()
    Application.ScreenUpdating = False
    ActiveWindow.ActivateNext
    ThisWorkbook.Sheets("Sheet1").Range("A1").Value = Range("A1").Value
    ActiveWindow.ActivateNext
    Application.ScreenUpdating = True
 End Sub

 (ぶらっと)

コメント返信：

[ 一覧(最新更新順) ]

[[20120507172756]] 『同時に開いているエクセルのファイル』（にこにこぐらっぷりんぐ） ページの最後に飛ぶ

[[20120507172756]]　『同時に開いているエクセルのファイル』（にこにこぐらっぷりんぐ）　ページの最後に飛ぶ