Hallo zusammen,
ich möchte in einer Sub über FileDialog eine Datei öffnen.
Dieses Programm möchte ich auf 2 Rechnern verwenden, einmal mit Office2003 und mit dem anderen Office 2000 .
Office 2000 kennt aber die Eigenschaft FileDialog nicht.
Jetzt wollte ich über die Eigenschaft Application.Version den Dialog nur bei Office 2003 ausführen lassen, sonst über Eigenschaft Dialogs .
Das Problem ist, das die Deklaration "Dim fd As FileDialog" bei Office 2000
nicht erkannt wird.
Kann ich dafür vielleicht einen Verweis setzen, oder wie kann ich das FileDialog bei Office 2000 lauffähig machen?
Code:
Dim fd As FileDialog
If Version = 9 Then
Application.Dialogs(xlDialogOpen).Show PFAD
ElseIf Version = 11 Then
Set fd = Application.FileDialog(msoFileDialogOpen)
If fd.Show = -1 Then
fd.Execute
Else 'bei Abbruch
Err.Raise 40002 'Nichts angegeben
End If
Else
MsgBox "keine Ausgewertete VBA-Version"
Exit Sub
End If
kann mir bitte da jemand helfen?