如何使用vba访问具有不同证书的networkingexcel文件？

我创build了VBA代码，这样我们公司的一群人就可以用一个存储在networking驱动器Excel表格中的唯一编号（本质上是一个串行编号）来“印记”文档文档。 这些人不能访问上述networking驱动器，但我希望他们能够执行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 

我会把删除一些error handling，否则你会产卵一堆驱动器，如果你有一些错误。