Zugriff auf Datei auf Sambalaufwerk mit VBA(Execl)

gelöstFrage VB for Applications Entwicklung

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.

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 312133

Url: https://administrator.de/forum/zugriff-auf-datei-auf-sambalaufwerk-mit-vbaexecl-312133.html

Ausgedruckt am: 05.07.2025 um 20:07 Uhr

3 Kommentare

Neuester Kommentar

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