将工作目录从VBA更改为UNC

Question

是否可以使用UNC名称更改Excel的工作目录？..

这里：Changing working directory from Excel vba shell说明了如何使用ChDir / ChDrive。 但是，UNC链接没有“ Drive”†之类的东西。

以下朴素的代码不会更改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年更改“驱动器”？..这真是愚蠢！为什么这个概念甚至还存在，Microsoft？..

Answer 1

您可以使用SetCurrentDirectory功能。

导入VBA：

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