如何用VBA借助单元格值创建外部引用公式？

你可以通过字符串拼接的方式，将B1的路径和C1的文件名组合成目标公式，具体VBA代码如下：

Sub GenerateCrossWorkbookFormula()
    Dim mySheet As Worksheet
    Dim folderPath As String
    Dim xlsmFileName As String
    Dim finalFormula As String
    
    ' 指向目标工作表
    Set mySheet = ThisWorkbook.Sheets("MySheet")
    
    ' 提取B1和C1的内容
    folderPath = mySheet.Range("B1").Value
    xlsmFileName = mySheet.Range("C1").Value
    
    ' 按外部引用公式格式拼接字符串
    finalFormula = "='" & folderPath & "\[" & xlsmFileName & "]Data'!$A$1"
    
    ' 为A1单元格设置公式
    mySheet.Range("A1").Formula = finalFormula
End Sub

关键说明： #

• 外部引用公式的固定格式为 ='文件夹路径\[文件名.xlsm]工作表名'!单元格引用，代码严格遵循这个格式拼接字符串
• 确保B1的路径末尾没有多余的反斜杠，若有可能存在，可添加判断处理（比如先用folderPath = Trim(folderPath)去除首尾空格，再检查末尾是否为\，没有则手动添加）
• 示例中目标工作表名为Data，如果需要动态修改，也可以将工作表名存在其他单元格，再加入拼接逻辑

内容的提问来源于stack exchange，提问作者John Wilson