我认为这应该很简单，但我没有运气能够做到这一点或在互联网上寻找它。显然，我遗漏了一些非常明显的东西。
我有一个单元格，比如说 A1，它包含以下文件路径：
'C:\[Required file path]Sheetname'
现在我想用它在单元格 B1 中创建一个公式，比如说：
=Trim('C:\[Required file path]Sheetname'!B26)
由于这个链接是动态决定的，我希望能够做这样的事情：
=Trim(A1!B26)
其中 A1 = 我所需的文件路径。但这不起作用。
希望我在解释问题时足够清楚。谢谢期待！！
【问题讨论】：
标签： excel excel-formula excel-2010
如果您的第二个工作簿（路径为'C:\[Required file path]Sheetname'）已打开（但在这种情况下，您不需要使用工作簿的完整路径，只使用 WB 名称就足够了），您可以使用INDIRECT 公式（如果您的A1 包含''C:\[Required file path]Sheetname'）：
=TRIM(INDIRECT(A1 & "!" & CELL("address",B26)))
但是如果您的第二个工作簿已关闭，我发现的方法是将用户定义的函数添加到您的第一个工作簿并使用它：
=TRIM(getValue(A1 & "!" & CELL("address",B26)))
getValue 定义为：
Function getValue(formulaString As String)
Application.Volatile
Dim app As Excel.Application
Dim wb As Workbook
'set default falue to #REF..if we'd get normal value - we'll change getValue to it'
getValue = CVErr(xlErrRef)
'if second WB is open - we can easily evaluate formula and exit function'
getValue = Evaluate(formulaString)
If Not IsError(getValue) Then
Exit Function
End If
'if we appear here - second WB is closed...'
On Error GoTo ErrHandler
Set app = New Excel.Application
Set wb = app.Workbooks.Add
With wb.Sheets(1).Range("A1")
.Formula = "=" & formulaString
app.Calculate
getValue = .Value
End With
ErrHandler:
If Not wb Is Nothing Then wb.Close False
If Not app Is Nothing Then app.Quit
Set app = Nothing
Set wb = Nothing
End Function
【讨论】：
A1 单元格的内容
A1 单元格中的内容，我会尽力帮助你
[Workbookname.xlsx] 之前错过了“\”。正确的路径应该是：''E:\Project\SubFolder\Subfolder\[Workbookname.xlsx]Sheetname' 2) 正确的路径使用公式 =TRIM(INDIRECT(A1 & "!" & CELL("address",B26))) 3) 或者您可以使用以下糟糕的公式（它会为您添加“\”）：=TRIM(INDIRECT(LEFT(A1,FIND("[",A1)-1) & "\" & RIGHT(A1,LEN(A1)-FIND("[",A1)+1) & "!" & CELL("address",B26)))
试试：
=TRIM([A1]Sheet1!B26)
其中 A1 包含如下引用：C:\Users\User\Desktop\Test.xlsx。
它可能会通过文件浏览器提示您 - 只需选择您尝试引用的文档（例如 Test.xlsx）
【讨论】：