[求助]access vba 中如何引用 不同版本的excel

nmfx1122

access vba 中如何引用 不同版本的excel

我的程序中引用的是 excel 9.0 但到其它电脑上有可能是excel 10.0 或11.0 或12.0

怎么实现自动引用，并引用相应的控件？

[此贴子已经被作者于2006-7-27 15:38:11编辑过]

nmfx1122

顶一下！

nmfx1122

ding!

wang1950317

我也想知道，请专家们解难！

nmfx1122

参考以下内容.

Public Sub CheckReferences()
    Dim i As Integer
     
'    For i = 1 To Application.VBE.ActiveVBProject.References.Count
'        If Application.VBE.VBProject.References(i).IsBroken Then
'            Application.VBE.ActiveVBProject.References.Remove _
'            Application.VBE.ActiveVBProject.References(i)
'            Exit For
'        End If
'    Next i
'     Application.VBE.ActiveVBProject.References.
    If SysCmd(acSysCmdAccessVer) = "9.0" Then
        Application.VBE.ActiveVBProject.References.AddFromFile _
        "d:\Program\office2k\office\EXCEL9.OLB"
    Else
        Application.VBE.ActiveVBProject.References.AddFromFile _
        "d:\Program\office2k\office\EXCEL10.olb"
    End If
End Sub

wang1950317

谢谢5楼大师，您的代码是office2000,如何使office2000的10.0或office2003的Excel 11.0都能自动转换， Else下面的那句代码该怎样改动？谢谢！

nmfx1122

实现access 自动引用 Excel
Select Case SysCmd(acSysCmdAccessVer)
     Case "9.0"
       Debug.Print "当然Access版本:" & SysCmd(acSysCmdAccessVer)
         Application.VBE.ActiveVBProject.References.AddFromFile _
          "d:\Program\office2k\office\EXCEL9.OLB"
     Case "10.0"
        Application.VBE.ActiveVBProject.References.AddFromFile _
        "d:\Program\office2k\office\EXCEL10.olb"
     Case Else
       Debug.Print "未知版本Access"
     End Select
End Sub

wang1950317

谢谢nmfx1122大侠：是放在模块中吗？我试过了，好像不起作用？是不是我的那儿设置有问题？d:\Program\office2k\office\EXCEL10.olb中，如果我的office装在C盘是不是要改成C:\ ?

nmfx1122

路径要自己改。

你先用在引用中查看一下你引用的控件在什么位置和引用控件的文件名。

然后用上面的方面的可以了。