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

与VBA我试图把自动path到我的资源在Excel单元格内。
我一直试图从我启动我的macros使用的目录中放置一个path：

ThisWorkbook.Path 

这个function的作用是删除一个文件，如下所示：

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

但是当我尝试在下面一行中使用它时遇到了一些麻烦：

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

我只想从同一目录中的文件中获取单元格的值。
现在公式不会改变，如果我移动我的文件在另一个目录，这就是为什么我想使用这种function。 我仍然直接在我的单元格内使用这种function：

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

谢谢你的帮助

Answer 1

尝试公式

 = CELL("filename") 

在你的单元格中（当然你已经保存了工作簿，以便存在一个有效的path名）。