在3个工作簿之间切换

Question

I got a MAIN WORKBOOK which creates a new workbook with specific worksheets and headers and it will not save the workbook so it will be a random name like Book1 or Book2. This part is successful. Next thing that it will do is open a file and copy the data of the opened file to the created UNSAVED workbook ("Book1" or whatever is the name)

Problem is I can't switch windows between the source data workbook which is the opened file and the unsaved workbook. I tried windows("workbook name").activate but it only works for the specific name. I need the unsaved workbook to be activated. In short I have 3 opened workbooks.

    Sub CopyData()
    Dim Newbook As Window
    Dim wb As Workbook, wb2 As Workbook
    Dim ws As Worksheet
    Dim vFile As Variant

    'Set source workbook
    Set wb = ActiveWorkbook

    'Open the target workbook
    vFile = Application.GetOpenFilename("All-Files,*.xl**", _
        1, "Select One File To Open", , False)

    'if the user didn't select a file, exit sub
    If TypeName(vFile) = "Boolean" Then Exit Sub
    Workbooks.Open vFile
    Set wb2 = ActiveWorkbook
    Worksheets("Sheet1").Range("A3:A65536").Copy
    Windows("Book1").Activate   'Part where it should open the "unsaved file" and copy it
    wb.Worksheets("Prices").Range("A3").PasteSpecial (xlPasteValues) ' unsaved file

    End Sub

Answer 1

You can get the reference to the newly opened workbook by assigning the result of the function Workbooks.Open to a variable. So instead of those two rows:

Workbooks.Open vFile
Set wb2 = ActiveWorkbook

you need to put this one:

Set wb2 = Workbooks.Open(vFile)

Now you have two variables:

• wb pointing to your original workbook,
• wb2 pointing to the newly created workbook.

---

When referencing to ranges you need to put the proper variable at the beginning, ie:

wb.Worksheets("Sheet1").Range("A3:A65536").Copy

This line Windows("Book1").Activate is no needed anymore, since if you refer to workbooks by variables you don't need to activate them to copy & paste data.

Answer 2

You were almost there, you just need to use the Workbooks instead of Windows .

Workbooks("workbook name").Activate

See MSDN for documentation on the Workbook object .

EDIT: Originally misunderstood your question. @Mielk has now answered how you can achieve what you're after. But, for clarity, see the answer below too.

Not sure if you know that the unsaved workbook will consistently be called "Book*", but if it is, you can use this:

Sub workbookActivate()
    Dim wb3 As Workbook, wkb As Workbook
    For Each wkb In Workbooks
        If Left(wkb.Name, 4) = "Book" Then
            Set wb3 = wkb
            Exit For
        End If
    Next wkb
    wkb.Activate
End Sub

Just an alternative.