如何使用vba访问具有不同凭据的网络Excel文件？

Question

我已经创建了VBA代码，以便我们公司的一组人可以在网络驱动器上的Excel表格中存储一个带有唯一编号的word文档（基本上给出序列号＃）。 这些人无权访问所述网络驱动器，但我希望他们能够执行VBA代码。

在过去的几天里，我一直在阅读本网站和其他人的各种文章，并能够使这篇文章适合我。 但是，如果我尝试多次执行VBA代码，我会得到原始答案中描述的“多个连接”错误。 那么，似乎没有删除映射的驱动器。 这是一个简单的语法问题吗？ 或者我在RemoveNetworkDrive语句中遗漏了什么？

ServerShare = "\\Servername\path"
UserName = "domain\username"
Password = "password"

Set NetworkObject = CreateObject("WScript.Network")
Set FSO = CreateObject("Scripting.FileSystemObject")

NetworkObject.MapNetworkDrive "", ServerShare, False, UserName, Password

str_WbPath = ServerShare & "\MRL Number Generator.xlsm"
Set exWb = objExcel.Workbooks.Open(str_WbPath)

'Do Stuff in excel


Set exWb = Nothing
Set FSO = Nothing

NetworkObject.RemoveNetworkDrive ServerShare, True, False

Set NetworkObject = Nothing

Answer 1

我会告诉你我这对我有用。 我使用了一个驱动器，而是移除了驱动器。

'This insures you find a empty drive letter
For i = 67 To 90
    netDrive = Chr(i) & ":"
    If Not fs.DriveExists(netDrive) Then Exit For
Next

'mount network drive on the above selected drive letter
Network.MapNetworkDrive netDrive, ServerShare, False, UserName, Password

'DO STUFF
'DO STUFF

'remove that drive letter
Network.RemoveNetworkDrive netDrive, True, True

我也会把删除文件放在一些错误处理上，否则如果你有一些错误，你就会产生一堆驱动器。