OpenDatabase-Problem

[Tom]

Hi

I have a problem with the OpenDatabase-Method. This method works with xlXP+
but fails with xl97 & xl2K.

The following script works fine with all XL versions except xl2K:

Sub Test()
#If VBA6 Then
Workbooks.OpenDatabase ...
#End If
End Sub

Any ideas to get this work with xl2K?

Tom

 

[Chip Pearson]

Tom,

You can use the CallByName function to call the OpenDatabase
function. E.g.,

#If VBA6 Then
If CInt(Application.Version) >= 10 Then
CallByName Workbooks, "OpenDatabase",vbMethod ', other
arguments
End If
#End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[Tom]

Thanx

Tom,

You can use the CallByName function to call the OpenDatabase
function. E.g.,

#If VBA6 Then
If CInt(Application.Version) >= 10 Then
CallByName Workbooks, "OpenDatabase",vbMethod ', other
arguments
End If
#End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com