Conditional compilation question. Thanks for the help!

[Tom Schreiner]

Hi everyone.

How do I check for a version at compile time?

This first line produces a compile error...
"Invalid use of object"

#If Application.Version = "9.0" Then

   'compile code

#End If

Thanks,
Tom

[ This Message was edited by: TsTom on 2002-05-15 15:10 ]

[Juan Pablo González]

I don't believe you can do this... You can make some 97, 2000, XP compatible code, but there are just some things that WON'T work in 97 !

[Tom Schreiner]

Thanks Juan

I found a constant which works: VBA6
Will return True if VBA6 or False if not.

#If VBA6 Then
'compile code
#End If

However, this may give me problems with versions newer than 2000 if they do not use VBA 6.0.

Do you know of any constants for the current version of Office?

Besides Application.Version

Thanks,
Tom

[Juan Pablo González]

On 2002-05-15 15:42, TsTom wrote:
Thanks Juan

I found a constant which works: VBA6
Will return True if VBA6 or False if not.

#If VBA6 Then
'compile code
#End If

However, this may give me problems with versions newer than 2000 if they do not use VBA 6.0.

Do you know of any constants for the current version of Office?

Besides Application.Version

Thanks,
Tom

Constants ? mhmmm...let me check. You're using VB6 to handle Excel, right ?

This, from the inmediate pane:

?Application.VBE.Version
6.03

This is from Excel 2000.

Well, as far as I can remember, Office XP is based on VB 6 too.

[James]

Hi Tom,

Can you modify this to work for you?

Function XL2KOrLater()
If Val(Application.Version) >=9 Then
XL2KOrLater = True
Else
XL2KOrLater = False
End If
End Function

[Tom Schreiner]

Thanks James...
That would work after the project is compiled.
If I was dealing with runtime errors, then no problems with the Application.Version.
I'm trying to work around a compile error in this case.
I am hoping to find a constant which is available to determine which version of Office is running. I'm thinking API???
Just hoped to avoid the API.
Thanks anyway friend,
Tom