在工作簿之间切换

Question

I have a code that searches for a certain information in another workbook, but that workbook changes names and formats. I am currently using workbook.open to open it, and when I specify the file location it has a dynamic part (you will understand on the sample code). The problem is that in the middle of the code I need to go back to the first workbook (the one running the code), do some stuff, then go back again to the workbook it searched the info on. I tried setting it as a variable using dim secondfile as string/workbook (tried both) and then tried to set it as the active workbook when it was "active", so I could use "secondfile.activate" later on when I needed to go back to it, but had no luck. Here is the code:

dim originalworkbook as workbook
set originalworkbook as this workbook
dim wb as workbook
set wb as Workbooks.Open("C:\Users\abc\Documents\bla bla bla " + Range("D6").Offset(iLoop).Value)
'code here...
originalworkbook.activate
'code here...
'[insert code here to go back to the wb workbook]

I cannot tell it to open the wb workbook again because it would not make sense. Right now I have list with 1k+ data that is searched in another more than 30 files. The name of the file is on the first workbook, at least part of it, as you can see in the code. I use the "Range("D6").offset" part to get it. The thing is, it would take too long to run the code if I closed and opened the second workbook everytime, so what I am trying to do is to search for all things that are in a specific file and after searching it all, saving and closing it. That is why I need to get back to this file...

PS: not all files are in the same format, thats why I didn't use "workbooks.activate" or something like it and then use the same "Range("D6").offset" thing to set the file to activate, because some are in .xls and others are in xlsx...

Answer 1

Public w as workbook    
For Each w In Workbooks
        If w.Name = originalworkbook Then
            Workbooks(w.Name).Activate
            'Do Stuff
        Exit For
        End If
Next w

The beauty of the above is that you can use this for infinite number of excel files open at the same time. just change If w.Name = original workbook then to if w.Name like "*charcters from a file name*" then

The wild cards allow you to search efficiently

Hope this helps!

Answer 2

Since your code is really not very descriptive I'm giving you a piece of mine and I'll try to explain what's going on. I am writing in another workbook with this code, putting information from the first. It's a long sub and I will remove unnecessary parts.

I tried to cover all situations you would encounter.

sub TemplateFiller(AHNSnumber as String)
    Dim wbk As Workbook
    Dim wbpath As String
    Dim lastline as long
    Dim wbName as string

    wbpath = "O:\08_Lean_Eng\10_On_going\David\Soldier's Pond\MDR\Templates\TemplateCustom.xls"

    'This is to check if it's open first. Only open it if it is closed!
    'IsWorkBookOpen is one of my own functions, not included here
    If IsWorkBookOpen(wbpath) = False Then
        Set wbk = Workbooks.Open(wbpath) 'Notice: set wbk =, not Set wbk as
    ElseIf IsWorkBookOpen(wbpath) = True Then
        wbName = "somethingworkbook.xlsb"
        Set wbk = Workbooks(wbName)
    End If

    'Finding the last line in the other wbk (I'm using info from the other wbk for variables here)
    lastline = wbk.Sheets("DL001").Range("BG65000").End(xlUp).row + 1

    wbk.Sheets("Dl001").Range("F" & lastline) = AHNSnumber 'Using a passed variable
    wbk.Sheets("Dl001").Range("G" & lastline) = "OK" 'Writing some stuff
    wbk.Sheets("Dl001").Range("H" & lastline) = ThisWorkbook.Sheets("a").Range("A1") 'Value from one to the other and vice versa
    Thisworkbook.sheets("b").Range("A2") = wbk.Sheets("Dl001").Range("A" & lastline)


    'Changing a variable in this workbook
    ThisWorkbook.Sheets("Data").Range("Revision") = ThisWorkbook.Sheets("Data").Range("Revision") + 1

End sub

'I am not the original writer of this function.
Function IsWorkBookOpen(filename As String) As Boolean
    Dim ff As Long, ErrNo As Long

    On Error Resume Next
    ff = FreeFile()
    Open filename For Input Lock Read As #ff
    Close ff
    ErrNo = Err
    On Error GoTo 0

    Select Case ErrNo
    Case 0:    IsWorkBookOpen = False
    Case 70:   IsWorkBookOpen = True
    Case Else: Error ErrNo
    End Select
End Function