Datei automatisch öffnen
28.09.2005 16:14:14
Eddie
vielleicht könnt ihr mir bei folgendem Problem helfen:
Der nachfolgende Code funktioniert soweit, bis auf die ´Tatsache, dass er die Datei nicht öffnen will. Obwohl sie vorhanden ist. Was mache ich falsch?
D.h. der Workbooks.Open Befehl bringt mir immer einen Fehler!
Sub DateiOeffnen()
Dim dateiname As Variant
Dim fs As Variant
ActiveWorkbook.Worksheets(1).Activate
dateiname = InputBox("Bitte Suchdatum eingeben! (yyyymmdd)")
Set fs = Application.FileSearch
With fs
.LookIn = "C:\Dokumente und Einstellungen\Olaf.Hammermeister\Desktop\PRIVAT"
.Filename = dateiname
If .Execute() > 0 Then
MsgBox ("Die Datei ist vorhanden! " & dateiname)
Workbooks.Open Filename = (dateiname.xls)
Else
MsgBox "Diese Datei ist nicht vorhanden."
End If
End With
End Sub