Hallo zusammen,
habe einen Code, welcher bestimmte Dateien nach Popup-Fenster zum Auswählen öffnet. Diesen Code habe ich bisher unter meinen eigenen Dateien, sprich
C:\Users\...
getestet.
Hat alles funktioniert, nur die eigentliche Idee war, dass die Datei auf dem internen Server abgespeichert wird.
Der Pfad des Servers beginnt direkt mit \\..., ohne Laufwerksverzeichnis davor.
Der gesamte Code sieht wie folgt aus:
Musste leider eine Klammer um die größer bzw kleiner Zeichen setzen.
Sub komplett()
Dim i As Byte
Dim Ordner1 As String
Dim Ordner2 As String
Dim Datei As Variant
Dim WB As Workbook
Dim UE As Worksheet
Ordner1 = "C:\\Users..."
Ordner2 = "C:\\Users..."
Set UE = ThisWorkbook.Worksheets("Tabelle1")
For i = 1 To 2
ChDrive "C:\\Users..."
If i (kleiner) 2 Then
ChDir Ordner1
Else
ChDir Ordner2
End If
Datei = Application.GetOpenFilename("Excel Dateien (*.xls*), *.xls*")
If Datei () False Then
Set WB = Workbooks.Open(Datei)
Else
GoTo Fehler
End If
Wenn ich nun den Pfad des Servers bzw des entsprechenden Ordners einsetze, bekomme ich die Fehlermeldung "ungültiger Prozeduraufruf oder ungültiges Argument"
Kann mir da jemand weiterhelfen?
Danke!