Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Datei.xlsx per vba öffnen

Forumthread: Datei.xlsx per vba öffnen

Datei.xlsx per vba öffnen
27.06.2025 21:18:48
Dirk
Hallo und guten Abend ins Forum,

ich hoffe, ihr könnt mir bei meinem Problem weiterhelfen. Es soll eine Datei mit dem Namen "Signatur_DG.xlsx" mit VBA auf meinem Lokal-Rechner geöffnet werden.
die besagte Datei liegt allerdings auf einem Remote-Server, der Pfad lautet "N:\Scanner\Asslar\". Beim Versuch bekomme ich den "Laufzeitfehler 1004" mit dem Hinweis, daß die Datei bzw. der Pfad nicht gefunden werden können.

Hier der Code :

Option Explicit

Sub test()
' Pfad für mstsc müsste auch bei dir so sein
' Pfad und Name der RDP-Datei anpassen
Dim meinRDPMitPfad As String
Dim Ergebnis As String

meinRDPMitPfad = "c:\windows\system32\mstsc.exe """ & "E:\Helferlein\Bibliothek\Programme\DG_RDP.rdp" & """ "
Ergebnis = Shell(meinRDPMitPfad, 1)
MsgBox ("Gestartet, Process-ID = " & Ergebnis)
End Sub

Sub OeffneDateiVomRemoteLaufwerk()
Dim Pfad As String
Dim Dateiname As String

Pfad = "\\192.168.0.202\HAINAMRING\DG\N:\Scanner\Asslar\"
Dateiname = "Signatur_DG.xlsx"

Workbooks.Open Pfad & Dateiname
End Sub

Private Sub CommandButton1_Click()
test
OeffneDateiVomRemoteLaufwerk
End Sub


Vielen Dank im Voraus

Dirk
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei.xlsx per vba öffnen
27.06.2025 21:21:35
cysu11
Hallo Dirk,

mach das hier "\\192.168.0.202\HAINAMRING\DG\" weg, im Explorer wird dir doch auch nur N:\...angezeigt oder?

LG, Alexandra
AW: Datei.xlsx per vba öffnen
27.06.2025 21:25:49
cysu11
du kannst auch die Datei "Signatur_DG.xlsx" öffnen und in eine Modul diesen code ausführen:

Sub test()

Dim mypath As String
mypath = ThisWorkbook.Path
End Sub


dann wird dir der genaue Pfad angezeigt! ;)

LG, Alexandra
Anzeige
AW: Datei.xlsx per vba öffnen
27.06.2025 21:51:41
Dirk
Hallo Alexandra,

vielen Dank für deine schnelle Antwort,
war leider nicht von Erfolg gekrönt.

LG

Dirk
AW: Datei.xlsx per vba öffnen
28.06.2025 03:04:32
cysu11
Hallo Dirk,

hast du mein Code versucht um den genauen Pfad auszulesen?

LG, Alexandra
AW: Datei.xlsx per vba öffnen
28.06.2025 21:40:29
Dirk
Hallo Alexandra,
leider kann ich erst jetzt antworten. Habe alle Vorschläge von dir getestet. Leider ohne Erfolg.

LG
Dirk
Anzeige
AW: Datei.xlsx per vba öffnen
30.06.2025 14:06:54
cysu11
Hallo Dirk,

mein code zum auslesen des Pfades, kommt da eine fehlermeldung, wenn ja wo?

LG, Alexandra
AW: Datei.xlsx per vba öffnen
30.06.2025 18:02:00
dirk
Hallo Alexandra,

als Pfad wird angezeigt : N:\Scanner\Asslar\


Userbild
Userbild


LG

Dirk
Anzeige
AW: Datei.xlsx per vba öffnen
30.06.2025 18:41:18
cysu11
Hallo Dirk,

über den Windows Explorer auf dein lokalen Rechner, kommst du auf dem N Laufwerk und kannst du die Datei per manuell öffnen?

LG, Alexandra
AW: Datei.xlsx per vba öffnen
30.06.2025 19:09:05
dirk
Hallo Alexandra,

die Verbindung zum Server wird über RDP hergestellt.
Der Verbingungsaufbau mit VBA lokal klappt auch wunderbar !

LG

Dirk
Anzeige
AW: Datei.xlsx per vba öffnen
01.07.2025 06:10:12
Ulf
Hi,
ich glaube du hast einen groben Denkfehler, ich probier mal zu veranschaulichen.
Nehmen wir an ich habe einen SmallBusinessServer und nenne den 'sbs2011'.
Darauf erstelle ich eine Freigabe in dessen dafür angelegtem Verzeichnis 'DG' als 'Dateien'.
Will ich nun am Server direkt eine 'Datei.xlsx' öffnen lautet der Pfad also \\Server\Share\Verzeichnis\Datei->'\\sbs2011\DG\Dateien\Datei.xlsx'.
Mit Vba öffnet du zwar eine RDP-Sitzung, die verlangt aber die obige Konvention, am Client der die Freigabe als 'N' mappt würde das zwar 'N:\Dateien\Datei.xlsx' sein, eine RemoteDesktop hat aber die Sicht des Servers, den Laufwerksbuchstaben des Clients kennt der Server nur indirekt und ohne direkte Nutzungsmöglichkeit.
Also untersuche wo die Datei im Explorer des Servers zu finden ist.
hth
Ulf
Anzeige
AW: Datei.xlsx per vba öffnen
01.07.2025 11:21:09
schauan
Hallöchen,

man kann auch etwas mit en Verbindungen spielen ;-) Der code läuft beim Mappen natürlich auf einen Fehler, wenn es den strPath nicht gibt... Sharepoint dürfte damit auch nicht gehen :-(
Du kannst z.B. den strPath auch variabel gestalten - schaue, ob Dein Pfad \\ am Anfang hat. Mit dem Pfad kannst Du ein Laufwerk mappen.
Man könnte anders rum auch schauen, welche Laufwerke Netzwerklaufwerke sind ...

Sub test()

'Verweis auf Windows Script Host Model
Dim wshNetwork As IWshNetwork, odrives As IWshCollection_Class
Dim iCnt%, strPath$
strPath = "\\Server\PublicFiles"
Set wshNetwork = CreateObject("WScript.Network")
'Netzlaufwerke feststellen
Set odrives = wshNetwork.EnumNetworkDrives
For iCnt = 0 To odrives.Count - 1 Step 2
Debug.Print "Drive " & odrives.Item(i) & " = " & odrives.Item(i + 1)
Next
'Wenn der Pfad ein UNC-Pfad ist (beginnt mit \\) ...
If Left(strPath, 2) = "\\" Then
'...
wshNetwork.MapNetworkDrive "Z:", strPath
End If
End Sub


Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige