Wie kann ich auf eine andere Arbeitsmappe durch den Inhalt einer Zelle in der aktuellen Arbeitsmappe verweisen?

Question

Ich mache ein Makro in excel 2010 und mein Ziel ist, dass jeder dieses Makro für ihre eigene Arbeit verwenden kann. Deshalb muss ich es sehr flexibel machen.

Jeder Name ihre eigene Arbeitsmappe (Ich habe dies durch die Verwendung Thisworkbook im Makro gelöst), aber jeder auch eigener Extraktion von Dateinamen (von wo die neuen Daten kommen).

jedoch fast niemand weiß, wie man mit VBA zu arbeiten, so dass es nicht möglich ist, diese Referenz in dem Code jedes Mal einzustellen.

Deshalb Ich habe ein neues Blatt hinzugefügt: ‚Personalisieren‘

In hier kann die Person die Namen der Extraktionsdatei in einer bestimmten Zelle hinzufügen.

Leider Ich weiß nicht, wie Sie eine Arbeitsmappe öffnen, die den Namen einer bestimmten Zelle in der aktuellen Arbeitsmappe hat.

Ich habe versucht, zum Beispiel Windows("ThisWorkbook.Sheets("Personalize").Range("B3")").Activate, aber es hat nicht funktioniert.

Das gleiche mit Blättern, die anders benannt werden können, ich weiß nicht, wie Sie sie im Makro ohne VBA in jedem Fall anpassen.

Hat jemand irgendwelche Ideen oder Anregungen?

Vielen Dank im Voraus!

Mit freundlichen Grüßen,

Hendrik

Answer 1

Wenn Sie eine Arbeitsmappe öffnen, die Sie benötigen den vollständigen Pfad geschlossen ist:

dim wkb as workbook 
dim wbPath as String 

wbPath = ThisWorkbook.Sheets("Personalize").Range("B3").value 
Set wkb = Workbooks.Open(wbPath) 

Wenn Sie eine Arbeitsmappe aktivieren möchten, die bereits geöffnet ist, können Sie Sie benötigen nicht den vollständigen Pfad, sondern den Namen der Arbeitsmappe (z. B. "Workbook1.xlsx"). Dazu können Sie den Pfad abschneiden, bevor Sie "Workbook1.xlsx" erreichen (alternativ, wenn die Arbeitsmappe immer zuerst geöffnet wird, lassen Sie sie den Namen der Arbeitsmappe direkt eingeben und überspringen Sie den Rest des Pfads):

dim wbname as String 

wbname = ThisWorkbook.Sheets("Personalize").Range("B3").value 
Do until Instr(wbname, "\") = 0 
    wbname = Mid(wbname, instr(wbname, "\") + 1) 'I didn't test this, just going off the top of my head 
Loop 

Workbooks(wbName).Activate 

Achten Sie darauf, Ihre Fehler richtig zu behandeln. Als Referenz: VBA Excel simple Error Handling

-Test, was, wenn Sie einen Namen versuchen, die Eingabe geschieht, die zum Beispiel falsch ist. Sie möchten diese Fehler mit entsprechenden Meldungsfeldern behandeln, oder die Benutzer haben das Gefühl, dass Ihr Programm nicht funktioniert.