如何使用Excel VBA訪問共享的網絡文件夾？

Question

我創建了一個數據庫，使用MSExcel作為前端，使用MSAccess作為后端。 MSAccess文件位於“共享網絡文件夾”中，該文件夾需要我已經擁有的用戶名和密碼。 為了使其他無法訪問“共享網絡文件夾”的人使用該文件，我想使用VBA代碼在MSExcel文件中注入自己的用戶名/密碼。

我使用此方法，但仍顯示此錯誤-2147023677： 訪問共享的網絡文件夾

Public Sub TestNetShareName()

    Dim NetworkObject As Object
    Dim FSO As Object
    Dim Directory As Object
    Dim Filename As Object
    Dim ServerShare As String
    Dim UserName As String
    Dim Password As String

    ServerShare = "\\10.226.2.55\Dept_Share\MHE"
    UserName = "mydomain\myuser"
    Password = "password1234"

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

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

    Set Directory = FSO.GetFolder(ServerShare)
    For Each Filename In Directory.Files
        Debug.Print Filename.Name
    Next

    Set Filename = Nothing
    Set Directory = Nothing
    Set FSO = Nothing

    NetworkObject.RemoveNetworkDrive ServerShare, True, False

    Set NetworkObject = Nothing

End Sub

Answer 1

該代碼也可以正常工作。 但是錯誤信息：

很清楚 您不能使用兩個或多個憑據同時訪問同一源。 因此，解決該問題，代碼將運行。

編輯 ：

如果/由於用戶已經有連接，請在不使用憑據的情況下進行映射：

NetworkObject.MapNetworkDrive "", ServerShare, False