vba获取当前所在路径，请写出详细代码，谢谢

以下是 VBA 代码用于获取当前工作路径：

Dim strPath As String
strPath = Application.ActiveWorkbook.Path
MsgBox strPath

代码说明：

1. 定义一个字符串变量strPath来存储当前工作路径。
2. 使用Application.ActiveWorkbook.Path获取当前活动工作簿的路径，并将其存储到strPath中。
3. 最后，使用MsgBox命令显示当前工作路径。