如何在VBA中获取当前工作表的路径？

Question

I wrote a macro as an add-in, and I need to get the path of the current worksheet on which it is being executed. How do I do this? How do I get the file path (just the directory)?

Answer 1

将Application.ActiveWorkbook.Path仅用于路径本身（不带工作簿名称）或Application.ActiveWorkbook.FullName用于带有工作簿名称的路径。

Answer 2

Always nice to have:

Dim myPath As String     
Dim folderPath As String 

folderPath = Application.ActiveWorkbook.Path    
myPath = Application.ActiveWorkbook.FullName

Answer 3

If you want to get the path of the workbook from where the macro is being executed - use Application.ThisWorkbook.Path .
Application.ActiveWorkbook.Path can sometimes produce unexpected results (eg if your macro switches between multiple workbooks).

Answer 4

最快的方式

path = ThisWorkbook.Path & "\"