Endung Excel Version Konstante als Variable setzen
SteffenS
ich habe in meinem Modul alle meine verwendeten Dateien definiert.
Public Const xlf As String = ".xls" 'Dateiendung
Public Const bbdateiA As String = "BCA" & xlf
Public Const bbdateiB As String = "BCB" & xlf
Public Const bbdateiC As String = "BCC" & xlf
...
Mein Problem ist nur, dass ich bei Excel 2007 die Endung von
".xls" in ".xls" ändern muss (Konvertierung bekomme ich schon automatisch hin)
Gibt es eine Möglichkeit die Konstante "xlf" so zu ändern, dass diese
in Abhängigkeit der Version entweder ".xls" oder ".xlsm" lautet.
Ich habe es bereits mit einer Funktion versucht, aber diese kann ich ja nicht zuweisen:
Public Function xlvers() As String
'Ermittlung der Excel Version
Dim xlv As String
Dim appvers As Long
appvers = Left(Application.Version, Len(Application.Version) - 2)
If appvers Habt Ihr eine Idee wie ich dies anstellen kann?
Danke Euch.
MFG
Steffen Schmerler