---

Hallo,

ich habe ein programm geschrieben das öffnet eine existierende datei bei uns auf dem server. jetzt meine frage existiert die datei nicht funktioniert mein macro auch nicht. weiß jemand wie ich da weiter machen muß ?? was für ein befehl fehlt mir??

ich stelle den code mal mit rein 

#############
Private Sub btn_öffnen_Click()
Dim SNK As String
Dim oeffnenPfad1 As String
Dim oeffnenPfad2 As String
Dim PfadLinks4 As String
Dim Zeichnung As String

oeffnenPfad1 = "Z:\"
oeffnenPfad2 = SNK & "\"
Zeichnung = Text_Öffnen
PfadLinks4 = Right(Zeichnung, 6)
SNK = Mid(PfadLinks4, 1, 3) & "\"
Zeichnung = oeffnenPfad1 & SNK & Zeichnung & ".dwg"

    If Zeichnung = "" Or Len(Zeichnung) < 7 Or Len(Zeichnung) > 10 Then
    MsgBox "keine Zeichnungsnummer", Buttons:=VbMsgBoxStyle.vbOKOnly
    Else
    If Not ThisDrawing.Application.Documents.(Zeichnung) Then
    MsgBox "keine Zeichnungsnummer", Buttons:=VbMsgBoxStyle.vbOKOnly
    Else
    ThisDrawing.Application.Documents.Open Zeichnung
    End If
    End If
   
End Sub
###########
Gruß Fredy

------------------
Gruß
Fredy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Fredy,

Hier mal was aus der Hilfe:

Öffnen einer vorhandenen Zeichnung
In diesem Beispiel wird mit der Open-Methode eine vorhandene Zeichnung geöffnet. Die VBA-Funktion Dir wird verwendet, um das Vorhandensein der Datei zu überprüfen, bevor versucht wird, sie zu öffnen. Sie müssen den Namen oder den Pfad der Zeichnungsdatei ändern, um eine in Ihrem System vorhandene AutoCAD-Zeichnungsdatei anzugeben.

Sub Ch3_OpenDrawing()
    Dim dwgName As String
    dwgName = "c:\campus.dwg"
    If Dir(dwgName) <> "" Then
        ThisDrawing.Application.Documents.Open dwgName
    Else
        MsgBox "Datei " & dwgName & " nicht vorhanden."
    End If
End Sub

Gruß, Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP