qwertz1

Zugriff 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.
Share on Facebook
Share on X (Twitter)
Share on Reddit
Share on Linkedin

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

129813
Solution 129813 Aug 09, 2016 updated at 10:44:23 (UTC)
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?
Application.DisplayAlerts = False

You 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
Regards
Kraemer
Kraemer Aug 09, 2016 at 10:31:07 (UTC)
Moin,

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...

Gruß Krämer
qwertz1
qwertz1 Aug 09, 2016 at 12:50:47 (UTC)
Hallo,
Danke für den Code. Das bringt mich weiter!