2016-08-09
3248
3
0Zugriff auf Datei auf Sambalaufwerk mit VBA(Execl)
Hallo,
ich habe ein Problem mit vba unter Excel und Samba. Ein Vba-Skript soll auf eine Vorlage zugreifen. Die Vorlage liegt auf einem Samba-Server. Jeder der Mitarbeiter hat Zugriff auf das Laufwerk, aber immer unter einem anderen Laufwerksbuchstaben. Die Buchstaben können nicht mehr geändert werden. Jetzt würde ich den direkten kompletten Pfad angeben.
Set worddoc = WordApp.Documents.Open(Filename:="\\11.1.1.1\Pfad zur datei\vorlage.docx", ReadOnly:=True)
Leider funktioniert das aber nicht. Kann mir da jemand einen Tip geben? Benutze Excel 2010 64 Bit.
ich habe ein Problem mit vba unter Excel und Samba. Ein Vba-Skript soll auf eine Vorlage zugreifen. Die Vorlage liegt auf einem Samba-Server. Jeder der Mitarbeiter hat Zugriff auf das Laufwerk, aber immer unter einem anderen Laufwerksbuchstaben. Die Buchstaben können nicht mehr geändert werden. Jetzt würde ich den direkten kompletten Pfad angeben.
Set worddoc = WordApp.Documents.Open(Filename:="\\11.1.1.1\Pfad zur datei\vorlage.docx", ReadOnly:=True)
Leider funktioniert das aber nicht. Kann mir da jemand einen Tip geben? Benutze Excel 2010 64 Bit.
Comment
Share
Share on Facebook
Share on X (Twitter)
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-ID: 312133
Url: https://administrator.de/forum/zugriff-auf-datei-auf-sambalaufwerk-mit-vbaexecl-312133.html
Printed on: July 30, 2025 at 17:07 o'clock
3 Comments
Latest comment
Hi,
normaly network paths work without problems ... what is the error message? Have you disabled error messages if you are doing this in a batch job?
You can as an alternative, map an additional drive with VBA or check for existence of the file on all logical volumes ...
Regards
normaly network paths work without problems ... what is the error message? Have you disabled error messages if you are doing this in a batch job?
Application.DisplayAlerts = FalseYou can as an alternative, map an additional drive with VBA or check for existence of the file on all logical volumes ...
Set objNet = WScript.CreateObject("WScript.Network")
Set fso = CreateObject("Scripting.FileSystemObject")
Set colItems = (GetObject("winmgmts:\\.\root\CIMV2")).ExecQuery("SELECT * FROM Win32_LogicalDisk")
For Each objItem In colItems
strPath = objItem.Name & "\Pfad zur datei\vorlage.docx"
If fso.FileExists(strPath) Then
Set worddoc = WordApp.Documents.Open(Filename:=strPath, ReadOnly:=True)
Exit For
End If
Next
If worrdoc is Nothing Then
objNet.MapNetworkDrive "z:","\\11.1.1.1\Share",False,"USERNAME","PASSWORD"
Set worddoc = WordApp.Documents.Open(Filename:="Z:\Pfad zur datei\vorlage.docx, ReadOnly:=True)
End If
Moin,
Gruß Krämer
Zitat von @qwertz1:
Leider funktioniert das aber nicht. Kann mir da jemand einen Tip geben? Benutze Excel 2010 64 Bit.
was funktioniert denn nicht? Da wird's ja wohl ne Fehlermeldung oder soetwas geben...Leider funktioniert das aber nicht. Kann mir da jemand einen Tip geben? Benutze Excel 2010 64 Bit.
Gruß Krämer
Hallo,
Danke für den Code. Das bringt mich weiter!
Danke für den Code. Das bringt mich weiter!