解压缩Excel文件后zip存档的位置

Question

我们使用代码来跟踪Excel工作簿上的文件使用情况。目前，我们对打开文件并启用宏时报告给我们的服务器位置进行硬编码。如果Excel文件位于SharePoint或网络共享上，则以下内容将起作用

Dim Share as String
Dim Text as String
Dim arr() as String

Text = ActiveWorkbook.Path

If Left(Text, 5) = "https" Then
    Share = "SharePoint"
Else
    arr = Split(Text, "\")
    Share = Left((arr(4)), 3) & " Share"
End If

MsgBox Share

这将报告＆＃34; SharePoint＆＃34;或共享驱动器名称的前三个字符和单词＆＃34; Share＆＃34;。在此之后，我们有额外的代码来完成跟踪过程。

问题是，如果Excel在zip文件中，则Excel文件临时存储在用户配置文件中。这使得上述内容无效。有没有办法确定从哪个文件打开的zip存档的位置？谢谢