Vba 使用自动路径将公式放入单元格中

使用VBA，我试图将资源的自动路径放入Excel单元格中。
我一直在尝试使用以下方法从启动宏的目录中放置路径：

ThisWorkbook.Path

此功能用于删除文件，如下所示：

Set fs = CreateObject("Scripting.FileSystemObject")
fs.DeleteFile ThisWorkbook.Path & "\File.xlsx", force

但我在尝试在以下行中使用它时遇到了一些问题：

Range("E2").Formula = "='" & ThisWorkbook.Path & "\[DJNDA.xls]Feuil1'!$I2"

我只是希望从同一目录中的文件中获取单元格的值。
现在，如果我将文件移动到另一个目录中，公式不会改变，这就是我想使用此类函数的原因。我仍然直接在我的细胞内使用这种功能：

='C:\path\to\file\[File.xls]Feuil1'!$I2

谢谢你的帮助

试试这个公式

= CELL("filename")

---

在您的单元格中（当然，在您保存工作簿之后，以便存在有效的路径名）。

我确实需要单元格中的公式，以便我可以使用

选择在较大范围内扩展公式。AutoFill

我只是顺便提一下最简单的公式，因为它更容易理解，最后，我不得不使用

连接

和其他一些excel函数。@caloam:你真的试过我的建议了吗？或者你只是在批评它？我不知道我应该如何使用你的建议，我在vba中尝试了如下：

Range（“E2”）.Formula=CELL（“DJNDA.xls”）

，上面写着子函数或函数未定义，谢谢你能解释一下你想让我怎么使用它吗？再次测试了你的公式，我发现了为什么它一开始不起作用。。我使用法语版的excel，因此公式单元格名为Cellle。。。毫无疑问，你的解决方案能满足我的要求。非常感谢，很抱歉我刚才的误会。很高兴能帮上忙——我为没有考虑到可能存在的真正问题而道歉。