Wechseln zwischen Arbeitsmappen

Ich habe einen code, sucht nach bestimmten Informationen in einer anderen Arbeitsmappe, ist aber, dass die Arbeitsmappe, die den Namen ändert und Formate. Ich bin derzeit mit Arbeitsmappe.öffnen, um es zu öffnen, und wenn ich geben Sie den Speicherort der Datei, es hat einen dynamischen Teil (Sie werden verstehen, auf der Beispiel-code). Das problem ist, dass in der Mitte des Codes, die ich brauche, um zurück zu gehen, um das erste Arbeitsmappe (die der code ausgeführt wird), Mach was, dann gehe wieder zurück zu der Arbeitsmappe, es durchsucht die info auf. Ich habe versucht, es als eine variable mit dim secondfile als string/Arbeitsbuch (beides ausprobiert) und dann versucht, es als die aktive Arbeitsmappe, wenn es "aktiv" wird, so könnte ich mit "secondfile.aktivieren Sie" später, wenn ich brauchte, um zurück zu Ihr gehen, hatte aber kein Glück. Hier ist der 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]

Kann ich nicht sagen, es zu öffnen Sie die wb-Arbeitsmappe erneut, denn es würde keinen Sinn machen. Jetzt habe ich die Liste mit 1k+ Daten, der durchsucht wird, in anderen mehr als 30 Dateien. Der name der Datei ist auf die erste Arbeitsmappe, zumindest ein Teil von Ihr, wie Sie im code sehen. Ich benutze die "Range("D6").offset" Teil, um es zu bekommen. Die Sache ist die, es würde zu lange dauern, um den code auszuführen, wenn ich Schloss und öffnete die zweite Arbeitsmappe, jedes mal, also, was ich versuche zu tun, ist die Suche für alle Dinge, die in einer bestimmten Datei und nach der Suche alles, speichern und schließen Sie es. Das ist, warum ich brauchen, um wieder zu dieser Datei...

PS: nicht alle Dateien sind im selben format, das ist, warum ich nicht verwenden "" Arbeitsmappen.aktivieren" oder etwas ähnliches und verwenden Sie dann die gleichen "Range("D6").offset" - Sache, um die Datei zu aktivieren, denn einige sind in .xls und andere sind in xlsx...

  • Sagen Sie gedimmt wb1 as workbook und wb2 als Arbeitsmappe. Verwenden Sie die folgende syntax? wb1.sheets("Tabelle1").Range("A1") = "aaa" -, oder wb2.Sheets("Sheet3").Range("B12") = MyString. Was ich damit sagen will ist, Sie müssen nicht, es zu aktivieren, ändern Sie die Zellen oder aus Ihnen Lesen.
  • stackoverflow.com/questions/10714251/...
  • Danke @TimWilliams, aber ich denke, es gibt keinen anderen Weg, dann verwenden Sie aktive Blatt oder etwas ähnliches... Sie hat mir gerade schon geholfen in diesem makro vor, das Blatt und die Arbeitsmappe Namen ändert sich jedes mal, siehe stackoverflow.com/questions/32127050/vba-find-not-working
  • vielleicht habe ich die Idee. Sie sagen, dass ich nicht brauchen, um zurück auf die erste Arbeitsmappe in einer Zelle ändern Sie es mit der rechten? Ich werde es jetzt versuchen und dir zurückgeben
  • versucht, meine string nicht funktioniert. Ich habe versucht die Definition von zwei Variablen, eine für Arbeitsmappen (wb) und eine für worksheets (ws), und versuchte, Sie zu definieren als thisworkbook/activeworkbook und activesheet/sheet ("name"), dann versucht, mit wb.ws.Bereich.offset.value = "xxxx", die auch versucht wb. sheets (ws) und dann den rest, kein Glück. habe Typenkonflikt auf dieser string
InformationsquelleAutor Ricardo Milhomem | 2015-08-25
  1. 0

    Da dein code ist wirklich nicht sehr aussagekräftig, ich gebe dir ein Stück von mir und ich werde versuchen zu erklären, was Los ist. Ich Schreibe in einer anderen Arbeitsmappe mit diesem code, setzen Informationen aus der ersten. Es ist ein langer sub und ich werde entfernen Sie unnötige Teile.

    Ich habe versucht, auf alle Situationen, die Ihnen begegnen würden.

    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
    • Wie Sie sehen können, das ich gar nicht verwenden oder die Arbeitsmappe ActiveWorkbook aktivieren.
    • Das ist fast das gleiche, was ich Tue, und wenn Sie können, senden Sie die isworkbookopen Teil, ich würde schätzen viel. Ich hatte nicht nur eine Sache verstehen: wbname ist eine variable? Was hast du es definieren zu? auch der Unterschied in meinem code ist, dass Sie mit einem string um den Bereich zu ändern in der letzten Zeile, ich bin mit einem Wert, es ist tatsächlich "ja". Versucht zu löschen die .value-Teil in der Ende der es aber immer noch subscript out of range...
    • wbpath soll wbname. Ich werde es beheben. Auch dieser code funktioniert, also, wenn Sie Fehler, Sie sind nicht wegen Ihrer Arbeitsmappe verweisen. Ich sehe in deinem code [set wb, wie Arbeitsmappen.Open], so sind Sie sicher, dass Sie das gleiche tun? Werde ich hinzufügen, mehr Variationen, so dass Sie eine Vorstellung bekommen, wie gut.
    • Tut mir Leid. Bei der Einstellung der Arbeitsmappe, und es wird in der gleichen Anwendung, es muss nur den Namen (nicht den Pfad). Ich fügte hinzu, dass in. Bei der Beseitigung einige Dinge, die ich verwirrte mich und vereinfacht es!
    • David, versuchte den code erneut ausführen. Habe immer noch Probleme. Die Sache ist die: die "wbpath" - variable in meinem Fall variiert innerhalb einer Schleife, und ich kann sagen, was der name der Datei ist, aber ich kann nicht sagen, was es ist Erweiterung, ich habe die XLS-und XLSX. Ich kann dieses Problem durch die Verwendung einer Liste oder etwas einfach, aber ich habe noch immer Probleme in einem anderen Teil des Codes. Die Zeichenfolge "diese Arbeitsmappe.sheets ("Blattname").range ("k6") .offset (Schleife) = "Nein"," gibt ein subscript out of range, Fehler 9.
    • Das bedeutet, dass Ihre Schleife zu weit zu gehen. Sollten Sie debug mit F8-Taste, anstatt die ganze Sache in 1 shot und sehen, wo es Austritt. Als für die Erweiterung, ich war nie mit diesem problem konfrontiert. Vielleicht könnten Sie versuchen, beide xls-und xlsx-eine nach der anderen? Mit On error resume next, so dass es nicht zum Absturz bringen, wenn es ausfällt? Ich bin mir nicht sicher, was zu tun ist.

    InformationsquelleAutor David G
  2. 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

    Die Schönheit der oben ist, dass Sie können verwenden Sie diese für unbegrenzte Anzahl von excel-Dateien gleichzeitig geöffnet. ändern Sie einfach If w.Name = original workbook then zu if w.Name like "*charcters from a file name*" then

    Wild cards ermöglichen es Ihnen, um die Suche effizient

    Hoffe, das hilft!

    InformationsquelleAutor user1
Schreibe einen Kommentar