将工作目录从 VBA 更改为 UNC答案

【问题标题】：Change working directory from VBA to a UNC将工作目录从 VBA 更改为 UNC
【发布时间】：2019-08-13 10:20:58
【问题描述】：

有没有办法使用 UNC 名称更改 Excel 的工作目录？..

这个：Changing working directory from Excel vba shell 解释了如何使用 ChDir / ChDrive。但是，对于 UNC 链接，没有“驱动器”† 这样的东西。

以下幼稚代码不会更改 CurDir：

ChDir "\\testserver\longunc\directory"
Debug.Print CurDir()
C:\Documents\ZZZ

以下显然失败了：

ChDrive "\\testserver\longunc\directory"
Run-time error '5': Invalid procedure call or argument

† “驱动器”？..在 2019 年改变“驱动器”？.. 多么愚蠢！为什么这个概念仍然存在，微软？..

【问题讨论】：

标签： excel vba

【解决方案1】：

您可以使用SetCurrentDirectory 功能。

导入到 VBA：

Private Declare Function SetCurrentDirectoryA Lib "kernel32" (ByVal lpPathName As String) As Long

【讨论】：