Excel-Formel, wie zum verketten von string für die externe Referenz

Sagen, ich habe die folgende Formel in eine Zelle, liest den Wert einer Zelle aus einem anderen Werk Buch

='c:\temp\[external book.xlsx]SheetX'!$E$4

ich will den Wert von c:\temp\[external book.xlsx]SheetX kommen aus einer anderen Zelle auf diesem Blatt. Wie würde ich diese umschreiben Formel verketten von diesem Wert und der "!$E$4"

Können sagen, dass die Zelle A1 enthält c:\temp\[external book.xlsx]SheetX

  • Ist es möglich, dies zu schreiben, wie eine Excel-Funktion, die aufgerufen werden kann, eine Zelle, wo die Zelle Formel für A1=INDIRECT_2(A2) und der Wert von A2='c:\temp[externer book.xlsx]SheetX'!$E$4
InformationsquelleAutor Preet Sangha | 2012-10-24
  1. 3

    EDIT: Wie die folgenden funktionieren nicht auf eine geschlossene Arbeitsmappe, hier ist klobig proof-of-concept, wie Sie es tun könnte, mit VBA (ich vorstellen, es gibt bessere Wege, dies zu tun):

    Sub ClosedWorkbook()

Dim currSht As Worksheet
Dim targetWbk As Workbook
Dim Path As String

' Turn off updating
Application.ScreenUpdating = False

' Set a reference to the current sheet
Set currSht = ActiveWorkbook.ActiveSheet

' Get the value in the formula cell (A1 here, could be ActiveCell if in a loop, etc.)
PathSheet = currSht.Range("A1").Value

' Split out the path - this is very clunky, more of a proof (?) of concept
' This is depends on the path being as you mentioned, and the IF block is to 
' check if the apostrophe is present in the cell (since it is the escape character,
' it is usually skipped)
If Left(PathSheet, 1) = "'" Then
  Path = Replace(Mid(PathSheet, 2, InStr(PathSheet, "]") - 2), "[", "")
  Sheet = Mid(PathSheet, InStr(PathSheet, "]"))
  Sheet = Left(Sheet, Len(Sheet) - 2)
Else
  Path = Replace(Mid(PathSheet, 1, InStr(PathSheet, "]") - 1), "[", "")
  Sheet = Mid(PathSheet, InStr(PathSheet, "]") + 1)
  Sheet = Left(Sheet, Len(Sheet) - 2)
End If

' Open the target workbook
Set targetWbk = Workbooks.Open(Path)

' Grab the value from E4 and drop it in a cell (D1 here, could be ActiveCell, etc.)
MyValue = targetWbk.Sheets(Sheet).Range("E4").Value
currSht.Range("D5").Value = MyValue

' Close the target
targetWbk.Close

Application.ScreenUpdating = True
End Sub

    ALTEN WEG (funktioniert nicht auf geschlossene Arbeitsmappen)

    Ich glaube, das erfasst, was Sie suchen. In diesem Beispiel Zelle A1 hatte mein Blatt Weg:

    'C:\temp\[externalworkbook.xlsx]Sheet1'!

    In Zelle B1 habe ich die Formel:

    =INDIRECT(A1 & "$E$4")

    Welche verkettet das Blatt Wert mit $E$4 um auf diese Weise den vollständigen Pfad, die dann verwandelte sich in einen Wert von INDIRECT. Eine Sache zu beachten: das Apostroph ist ein escape-Zeichen, so dass je auf Ihre Daten haben, können Sie zum Konto für Sie speziell in Ihrer Formel:

    =INDIRECT("'" & A1 & "$E$4")

    Wenn Sie mit Excel 2007 oder höher, könnten Sie wickeln Sie es in ein IFERROR Formel nehmen Sie das Rätselraten:

    =IFERROR(INDIRECT(A1 & "$E$4"),INDIRECT("'" & A1 & "$E$4"))
    • Ja, meinte fallen, dass in es. Ich werde sehen, ob ich von etwas denken kann, wenn es geschlossen ist.
    • Danke, aber Indirekt funktioniert nicht, wenn die externe Arbeitsmappe (a) geschlossen oder (b) öffnen Sie in einer anderen Instanz von Excel unforturnetly
    • Ist VBA eine option? Auch, werde ich hinzufügen, die excel Tags zu diesem post - es gibt Menschen, die weit besser als ich, wahrscheinlich haben die viel besseren Ideen.
    • Sicher, wenn es der einzige Weg ist, dann bin ich glücklich
    • Okay, fallen eine Probe in es jetzt. Definitiv nicht stolz darauf - eher ein proof-of-concept. Stützt sich auf das öffnen/schließen der Ziel-Buch, so dass hoffentlich die für Ihren Anwendungsfall. Gerne helfen flesh it out / machen Sie mehr Dynamik, wenn es passt, deine Sache.
    InformationsquelleAutor RocketDonkey
Schreibe einen Kommentar