xls öffnen ohne fehlermeldung
25.07.2006 21:06:32
Thorsten
Ich kann mit diesem Code eine Exceldatei öffen: soweit OK
Private Sub CommandButton1_Click()
Dim sPath As String
Dim wb As Workbook
sPath = "D:\Test\Test\Test.xls" ' Pfad muss noch anpassen werden
Set wb = Workbooks.Open(sPath)
End Sub
Nun liegt das Problem das ich schon Button vorbereite für Datein die noch nicht vorhanden sind, aber schon einen vordefinierten Dateinamen habe.
Kann man den Commandbefehl so ändern das er die Datei im Ordner sucht und wenn er sie gefunden hat öffnet, wenn nicht mgs geöffnet wird der angibt das die Datei noch nicht vorhanden ist.
Ist das machbar ?
Gruß Torte
Anzeige