如何在VBA中获取excel文件名/路径

Question

说,我正在我的excel文件sample.xls中写一个VBA .现在我想的全路径的sample.xls在我的VBA.我该怎么做？

Answer 1

如果您的意思是VBA,那么您可以使用FullName,例如:

strFileFullName = ThisWorkbook.FullName

(根据评论考虑更新:ActiveWorkbook.FullName如果其他办公室文件可以打开(编辑)并激活,前者使用的可能更有可能.但是如果您将宏存储在另一个文件中,如用户@ user7296559 在此处所述,以及真的希望宏使用文件的文件名ActiveWorkbook可能是正确的选择,如果它保证在执行时是活动的.)

Answer 2

这是一个简单的替代方案,它提供所有响应,Fullname,Path,filename.

Dim FilePath, FileOnly, PathOnly As String

FilePath = ThisWorkbook.FullName
FileOnly = ThisWorkbook.Name
PathOnly = Left(FilePath, Len(FilePath) - Len(FileOnly))

Answer 3

   strScriptFullname = WScript.ScriptFullName 
   strScriptPath = Left(strScriptFullname, InStrRev(strScriptFullname,"\")) 

Answer 4

如果您只需要路径，这是最直接的方法：

PathOnly = ThisWorkbook.Path

Answer 5

如果您只需要不带文件名的路径：

ActiveWorkbook.Path

它将返回 D:\Folder

如果您还需要带有文件名的文件路径：

ActiveWorkbook.FullName

它将返回 D:\Folder\sample.xls

如果您只需要文件名：

ActiveWorkbook.Name

它将返回sample.xls

因此，如果您想组合文件路径和文件名来获取完整目录，请不要忘记在之间添加“”。否则使用 .Path 更简单