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

Question

使用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

感谢您的帮助

Answer 1

尝试公式

= CELL("filename")

在您的单元格中

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