UDF - 如何将包含路径、工作簿名称、工作表名称和单元格引用的字符串转换为公式？ [复制]

Question

我正在尝试编写一个 UDF，它将包含路径、工作簿名称、工作表名称和单元格引用的字符串转换为公式，以便我可以轻松地从其他工作簿返回值。例如，我的字符串如下所示：

='C:\FolderAlfa\SubfolderBeta\[Book1.xlsx]Sheet2'!$D$4

我尝试了Application.Evaluate(string) 和ExecuteExcel4Macro(string) 方法，但它们都不起作用。

我将不胜感激！

Answer 1

根据我发现的here，可以使用 UDF 更改单元格并插入公式。

这有点麻烦（也许有人可以改进它）但它确实有效。您还需要重新计算无法从函数 getValue 和子 addFormula 触发的内容。你必须把它放在别的地方。参数 rg 是要放置公式的单元格。确保 is 不是您放置 getValue 的单元格。

Function getValue(rg As Range, path As String, file As String, sheet As String, ref As String)
    Evaluate "addFormula( " & Chr(34) & rg.Address & Chr(34) & "," & Chr(34) & "'" & path & "[" & file & "]" & sheet & "'!" & ref & Chr(34) & ")"
    getValue = ""
End Function

Sub addFormula(trgAddress As String, myFormula As String)
    Dim trgRg As Range

    Set trgRg = Range(trgAddress)
    trgRg.Formula = "=" & myFormula

End Sub

在工作表选择更改中，我添加了计算方法。这肯定不是最好的方法，但它表明这是可能的。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Me.Calculate
End Sub

以及如何使用它：函数在 D5 中，结果在 E5 中

Answer 2

您不能使用 UDF 插入公式。恐怕您必须使用 XLM 宏来引用已关闭文件中的范围。我找到了这个信息HERE

所以在实践中：

我的测试文件值：

稍加修改的代码：

Private Function GetValue(path, file, sheet, ref)

Dim arg As String
If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & file) = "" Then
    GetValue = "File Not Found"
    Exit Function
End If
arg = "'" & path & "[" & file & "]" & sheet & "'!" & Range(ref).Range("A1").Address(, , xlR1C1)
GetValue = ExecuteExcel4Macro(arg)

End Function

Sub TestGetValue()

With ActiveWorkbook.Sheets(1)
    path = .Cells(1, 3)
    file = .Cells(2, 3)
    sheet = .Cells(3, 3)
    ref = .Cells(4, 3)
    .Cells(1, 1) = GetValue(path, file, sheet, ref)
End With

End Sub

使用按钮并分配宏以在点击时运行