blocks|key|3074207|text|+++strScriptFullname+=+WScript.ScriptFullName+
+++strScriptPath+=+Left(strScriptFullname,+InStrRev(strScriptFullname,"\"))+|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|3074208|unstyled|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|G|8|@]|9|@]|A|$B|C]]|$1|D|3|-4|5|E|7|H|8|@]|9|@]|A|$]]]|F|$]]

<pre><code> strScriptFullname = WScript.ScriptFullName 
 strScriptPath = Left(strScriptFullname, InStrRev(strScriptFullname,"\")) 
</code></pre>

blocks|key|321114|text|如果您指的是VBA，那么您可以使用FullName，例如：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|321115|strFileFullName+=+ThisWorkbook.FullName|code-block|syntax|javascript|321116|(根据评论的考虑进行了更新:如果其他office文件可能是打开的(Ed)和活动的，则前者使用的ActiveWorkbook.FullName更有可能是错误的。但是，如果您将宏存储在另一个文件中，如user+@user7296559+here所述，并且确实需要使用宏的文件的文件名，则ActiveWorkbook可能是正确的选择，前提是它在执行时是活动的。)|offset|length|style|CODE|321117|entityMap|0|LINK|mutability|MUTABLE|url|https://stackoverflow.com/a/41142956/1915920^0|0|0|1B|N|3X|E|38|4|0|0^^$0|@$1|2|3|4|5|6|7|U|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|V|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|W|8|@$I|X|J|Y|K|L]|$I|Z|J|10|K|L]]|9|@$I|11|J|12|1|13]]|A|$]]|$1|M|3|-4|5|6|7|14|8|@]|9|@]|A|$]]]|N|$O|$5|P|Q|R|A|$S|T]]]]

If you mean VBA, then you can use FullName, for example:

<pre><code>strFileFullName = ThisWorkbook.FullName
</code></pre>

(updated as considered by the comments: the former used <code>ActiveWorkbook.FullName</code> could more likely be wrong, if other office files may be open(ed) and active. But in case you stored the macro in another file, as mentioned by user @user7296559 <a href="https://stackoverflow.com/a/41142956/1915920">here</a>, and really want the file name of the macro-using file, <code>ActiveWorkbook</code> could be the correct choice, if it is guaranteed to be active at execution time.)

blocks|key|322912|text|我认为，如果您将VBA宏存储在另一个ActiveWorkbook.FullName工作簿中，但您希望获取正在编辑的Excel的详细信息，而不是宏所在的位置，则使用Excel会更好。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|322913|如果它们驻留在同一个文件中，那么这并不重要，但是如果它们位于不同的文件中，并且您希望数据所在的文件而不是宏所在的文件，那么ActiveWorkbook就是最好的选择，因为它可以处理这两种情况。|322914|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|F|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|G|8|@]|9|@]|A|$]]|$1|D|3|-4|5|6|7|H|8|@]|9|@]|A|$]]]|E|$]]

ActiveWorkbook.FullName would be better I think, in case you have the VBA Macro stored in another Excel Workbook, but you want to get the details of the Excel you are editing, not where the Macro resides. 

If they reside in the same file, then it does not matter, but if they are in different files, and you want the file where the Data is rather than where the Macro is, then ActiveWorkbook is the one to go for, because it deals with both scenarios.

blocks|key|323551|text|这是一个简单的替代方案，它给出了所有响应，Fullname，Path，filename。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|323552|Dim+FilePath,+FileOnly,+PathOnly+As+String

FilePath+=+ThisWorkbook.FullName
FileOnly+=+ThisWorkbook.Name
PathOnly+=+Left(FilePath,+Len(FilePath)+-+Len(FileOnly))|code-block|syntax|javascript|323553|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

this is a simple alternative that gives all responses, Fullname, Path, filename.

<pre><code>Dim FilePath, FileOnly, PathOnly As String

FilePath = ThisWorkbook.FullName
FileOnly = ThisWorkbook.Name
PathOnly = Left(FilePath, Len(FilePath) - Len(FileOnly))
</code></pre>

blocks|key|3287786|text|有一种通用的方法可以做到这一点：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3287787|Function+FileName()+As+String
++++FileName+=+Mid(Application.Caption,+1,+InStrRev(Application.Caption,+"-")+-+2)
End+Function|code-block|syntax|javascript|3287788|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

There is a universal way to get this:

<pre><code>Function FileName() As String
 FileName = Mid(Application.Caption, 1, InStrRev(Application.Caption, "-") - 2)
End Function
</code></pre>

blocks|key|3287815|text|如果你只需要路径，这是最直接的方法：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3287816|PathOnly+=+ThisWorkbook.Path|code-block|syntax|javascript|3287817|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

If you need path only this is the most straightforward way: 

<pre><code>PathOnly = ThisWorkbook.Path
</code></pre>

blocks|key|321203|text|如果您只需要路径而不需要文件名：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|321204|ActiveWorkbook.Path|code-block|syntax|javascript|321205|它将返回D:\Folder|321206|如果您还需要包含文件名的文件路径：|321207|ActiveWorkbook.FullName|321208|它将返回D:\Folder\sample.xls|321209|如果您只需要文件名：|321210|ActiveWorkbook.Name|321211|它将返回sample.xls|321212|因此，如果您想组合文件路径和文件名以获得完整的目录，请不要忘记在两者之间添加"“。否则使用.Path会更简单|321213|entityMap^0|0|0|0|0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|Y|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|Z|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|10|8|@]|9|@]|A|$]]|$1|I|3|J|5|6|7|11|8|@]|9|@]|A|$]]|$1|K|3|L|5|D|7|12|8|@]|9|@]|A|$E|F]]|$1|M|3|N|5|6|7|13|8|@]|9|@]|A|$]]|$1|O|3|P|5|6|7|14|8|@]|9|@]|A|$]]|$1|Q|3|R|5|D|7|15|8|@]|9|@]|A|$E|F]]|$1|S|3|T|5|6|7|16|8|@]|9|@]|A|$]]|$1|U|3|V|5|6|7|17|8|@]|9|@]|A|$]]|$1|W|3|-4|5|6|7|18|8|@]|9|@]|A|$]]]|X|$]]

if you need path only without file name:
<pre><code>ActiveWorkbook.Path
</code></pre>
it would return D:\Folder
if you need file path with file name also:
<pre><code>ActiveWorkbook.FullName
</code></pre>
it would return D:\Folder\sample.xls
if you need file name only:
<pre><code>ActiveWorkbook.Name
</code></pre>
it would return sample.xls
so if you want combine file path and file name to get full directory don't forget to add &quot;&quot; between. otherwise its simpler using .Path

Say, I'm writing a VBA inside my excel file sample.xls. Now I want to get the full path of sample.xls in my VBA. How do I do it?

How to get the excel file name / path in VBA

比方说，我在我的excel文件sample.xls中写了一个VBA。现在，我想在我的VBA中获得sample.xls的完整路径。我该怎么做呢？

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

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

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

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

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