code verbessern
25.09.2006 09:22:42
achim
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.
Anzeige