Ich muss über VBA auf einen Ordner zugreifen, der auf einem Netzwerkdateiserver gehostet wird. Auf den Ordner kann schriftlich nur über ein Dienstkonto (anders als bei normalen Benutzerkonten) zugegriffen werden, für das ich einen Benutzernamen und ein Kennwort habe.

ber die Benutzeroberfläche kann ich diesen Ordner sehen und als lokales Laufwerk zuordnen. Um jedoch schriftlich darauf zugreifen zu können, muss ich mich von Windows abmelden und mich über das Dienstkonto anmelde

Gibt es eine Möglichkeit, während einer normalen Benutzersitzung auf den Netzwerkordner zuzugreifen, aber Benutzernamen und Kennwort im VBA-Code fest zu codieren?

Ich habe versucht, den Ordner als lokales Laufwerk zuzuordnen mit:

Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "S:", "\\corp-server\HostingFolder", False, Username, pwd

aber hat nicht funktioniert ("S" -Laufwerk wurde nicht zugeordnet). Wenn ich stattdessen dasselbe mache, aber ohne Benutzernamen und Passwort anzugeben:

Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "S:", "\\corp-server\HostingFolder"

es funktioniert perfekt.

Jetzt fragen, ob das, was ich versuche, tatsächlich möglich ist? Wenn nicht, gibt es eine Alternative?

Vielen Dan