File 使用VBA查找运行一个驱动器的PC上存储的文件的路径

我正在Windows PC上的Excel程序I2CfileCreate.xlsm中运行Visual Basic，该程序只有一个驱动器。程序位于路径中

C:\Users\DTKB68\OneDrive-Zebra Technologies\DesktopSync\Batters\I2C电池终端通信\New folder\New folder\Sandbox\Sandbox2

让我们称之为“首选路径”

我想使我的应用程序可移植，以便它可以在任何Windows PC上的任何目录下工作，无论是否有一个驱动器

根据以下代码

Set fso = CreateObject("Scripting.FileSystemObject")
fpath = fso.GetAbsolutePathName(ThisWorkbook.Name)
fpath = Replace(fpath, "\I2CfileCreate.xlsm", "")

fpath返回C:\Users\DTKB68\Documents

并且relativePath=ActiveWorkbook.path返回https://-my.sharepoint.com/...

---

什么样的Visual Basic命令将为我提供“首选路径”（该路径应自动反映程序存储在PC上的路径，而不是存储在一个驱动器上）？

感谢所有看过该命令的人。我找到了一种解决问题的方法：从C:drive根目录附近的文件夹运行应用程序，该目录未由OneDrive备份。