code verbessern

Forumthread: code verbessern
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: code verbessern

code verbessern

25.09.2006 11:22:42

achim

Hallo excel freunde
wer kann sich diesen code mal anschauen und verbessern,


Sub probe_click()
Const MNAME As String = "02_DFStrab.xls"
Dim strPfad As String
strPfad = ThisWorkbook.Path & "\" & MNAME
If Not Mappe(MNAME) Then'bekomme hier eine fehlermeldung ?
Workbooks.Open strPfad, Password:="test1"
End If
End Sub

danle
achim h.

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: code verbessern

25.09.2006 11:43:29

fcs
Danke tipp hat geholfen

25.09.2006 12:46:48

achim

AW: code verbessern

25.09.2006 11:43:29

fcs

Hallo Achim,
so geht es, wenn du prüfen möchtest ob die Datei in dem Verzeichnis vorhanden ist.
Gruß
Franz


Sub probe_click()
Const MNAME As String = "02_DFStrab.xls"
Dim strPfad As String
strPfad = ThisWorkbook.Path & "\" & MNAME
If Not Dir(strPfad) = "" Then 'bekomme hier eine fehlermeldung ?
Workbooks.Open strPfad, Password:="test1"
End If
End Sub