AW: Öffnen einer Datei im Makro flexibel halten
06.03.2006 11:18:47
Manuel
Hi Petra.
Public
Function FileExists(ByVal Filename As String) As Boolean
FileExists = (Dir(Filename) <> "")
End Function
Du überprüfst per "If FileExists(Dateipfad)=True", ob die Datei existiert.
Wenn nein:
Function FileSelect(ByVal myFilterDescription As String, ByVal myFilterExtension As String) As String
Dim a As FileDialog
Set a = Application.FileDialog(msoFileDialogFilePicker)
With a
.AllowMultiSelect = False
.ButtonName = "OK"
If .Filters.Count > 0 Then .Filters.Delete (1)
.Filters.Add myFilterDescription, myFilterExtension
.Show
End With
FileSelect = a.SelectedItems(1)
End Function
Dateipfad = FileSelect("[Dateibeschreibung]", "*.[Dateiendung]")
das in den "[Dateibeschreibung]" und "[Dateiendung]" musst du anpassen.
Bitte um Antwort, ob es geklappt hat.
Mit freundlichen Grüßen
Manuel Marhold