Wie referenziere ich eine Arbeitsmappe, die den Namen der Arbeitsmappe nicht verwendet?

Question

Ich brauche ein Makro in einer Arbeitsmappe zu schreiben, aber in diesem marco muss ich es sagen zu einer anderen Arbeitsmappe gehen einige Daten zu kopieren und in der Arbeitsmappe einfügen, die das Makro in hat, jetzt habe ich ein Problem, die andere der Referenzierung Arbeitsmappe, weil der Name dieser Arbeitsmappe immer unterschiedlich ist, aber das Blatt, von dem ich kopiere, hat immer denselben Namen. Gibt es eine einfache Möglichkeit, Macro zu bitten, immer die Daten aus dem richtigen Openbook zu holen, ohne den Namen der Arbeitsmappe zu verwenden?

Vielen Dank

Answer 1

Wenn es die nur andere Arbeitsmappe geöffnet ist, dann kann man so etwas wie und wird ziemlich zuverlässig verwenden:

Function GetOtherWorkbook(sheetName$) 
Dim wb as Workbook 
Dim ws as Worksheet 
For Each wb in Workbooks 
    If Not wb = ThisWorkbook Then 
     For Each ws in wb.Worksheets 
      If ws.Name = sheetName Then 
       Set GetOtherWorkbook = wb 
       GoTo EarlyExit 
      End If 
     Next 
    End If 
Next 
MsgBox sheetName & " not found in any open workbook.", vbCritical 
Set GetOtherWorkbook = Nothing 
EarlyExit: 
Exit Function 

Dann diese Funktion nutzen zu otherWB als die zurück Variable für die andere Arbeitsmappe:

Set otherWB = GetOtherWorkbook("some sheet name") 

If otherWB Is Nothing Then 
    Exit Sub 
Else 
    'Do stuff... 
End If 

Sonst Nein, Sie können nicht zuverlässig Referenz eine andere Arbeitsmappe, ohne den Namen zu kennen oder sie den Index in der Workbooks Sammlung.

HINWEIS Wenn andere geöffnete Arbeitsmappen vorhanden sind, gibt diese Methode möglicherweise falsch positive Ergebnisse zurück, wenn mehrere Arbeitsmappen denselben Blattnamen enthalten.