Excel 在 OneDrive 中的完整路径名称 - 如何从 VBA 代码提取到单元格

Question

背景： 我们公司使用UKG的LMS。我获取报告的唯一方法是访问网站或下载 CSV 文件。我使用 Excel 和 Power Query 提取 CSV 进行转换和加载。然后我添加了用于各种计算的关键列。在与同事共享报告时，我了解到 Power Query 对文件路径进行了硬编码。我找到了一种使用命名单元格引用和

=LEFT(CELL("filename"),SEARCH("\[",CELL("filename")))

来提供路径的方法。然后，我将文件路径与另一个单元格中的文件名连接起来作为路径。然后，当在同事的计算机上打开此工作簿时，文件路径会动态更改。我们一直在使用 Dropbox，但现在需要迁移到 OneDrive。 OneDrive 的 XLSX 文件的本地文件路径是 https 地址。这在上面的设置中不起作用。

我发现了这个问题（Excel's fullname property with OneDrive）并由 GWD 回答，看起来它会起作用。然而，我是自学 Excel 的，不知道如何获取函数

GetLocalPath(ThisWorkbook.FullName)

将文件路径填充到 Excel 中的单元格中，然后驱动 Power Query 转换和加载。

问题： 如何让该函数填充 Excel 中我的命名单元格？

我看到了对“插入函数”的引用，并从我的 Excel 类别中选择“用户定义”，但没有提供该选项。

感谢您提供的任何帮助。 :)

Answer 1

您可以创建一个可以从工作表中调用的 UDF（用户定义函数），其中包含对

GetLocalPath

的调用。

Function GetThisWBLocalPath() 
    GetThisWBLocalPath = GetLocalPath(ThisWorkbook.FullName)
End Function

然后，您可以在红色突出显示的单元格中输入以下内容：

= GetThisWBLocalPath