如何使用宏（vba 代码）本身获取通向宏的路径？

Question

注意：我对查找工作表的路径不感兴趣，我打算将工作表的路径写入与 .OTM 文件位于同一文件夹中的文本文件中。 我需要将此代码从硬编码路径转换为从与宏位于同一文件夹中的文本文件读取的路径。

如何使用宏（vba 代码）本身获取通向宏的路径？

Public xlApp As Object
Public xlWB As Object
Public xlSheet As Object
Sub OpenXl()
    Dim enviro As String
    Dim strPath As String
enviro = CStr(Environ("USERPROFILE"))
'the path of the workbook
 strPath = enviro & "\Documents\test2.xlsx"
     On Error Resume Next
     Set xlApp = GetObject(, "Excel.Application")
     If Err <> 0 Then
         Application.StatusBar = "Please wait while Excel source is opened ... "
         Set xlApp = CreateObject("Excel.Application")
         bXStarted = True
     End If
     On Error GoTo 0
     'Open the workbook to input the data
     Set xlWB = xlApp.Workbooks.Open(strPath)
     Set xlSheet = xlWB.Sheets("Sheet1")
    ' Process the message record
    On Error Resume Next
End Sub

Answer 1

OTM 文件存储在我的电脑上（Windows 7/Outlook 2010）：

strPath = Environ("userprofile") & "\AppData\Roaming\Microsoft\Outlook\"

Answer 2

简单使用：

    ThisWorkbook.Path

这将返回包含代码的工作簿的路径。