VB脚本找到当前位置？

Question

我在文件夹C：\ tf \ ExcellLaunch

中有bp.xlsm文件

在bp.xlsm文件中，sheet1，我有一个按钮。当我点击按钮时，我应该得到路径C：\ tf \ ExcellLaunch。

我使用以下代码：

Set WshShell = CreateObject("WScript.Shell")

strCurDir = WshShell.currentDirectory

MsgBox (strCurDir)

我得到的是c：\ uers \ MyName \ Documents

问题 - 如何在vb脚本中找到bp.xlsm的文件路径？ 预期输出为C：\ tf \ ExcellLaunch（不是c：\ uers \ MyName \ Documents）

Answer 1

尝试以下代码，它将为您提供当前位置的路径 -

Private Sub CommandButton1_Click()

MyFullName = ThisWorkbook.FullName 

MsgBox (MyFullName)

End Sub

此致 尼丁