Office中国论坛/Access中国论坛

标题: [求助]access vba 中如何引用不同版本的excel [打印本页]

作者: nmfx1122 时间: 2006-7-27 23:05
标题: [求助]access vba 中如何引用不同版本的excel
access vba 中如何引用不同版本的excel

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

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

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

作者: nmfx1122 时间: 2006-7-27 23:44
顶一下！

作者: nmfx1122 时间: 2006-7-28 07:05
ding!

作者: wang1950317 时间: 2006-7-28 16:47
我也想知道，请专家们解难！

作者: nmfx1122 时间: 2006-7-28 18:36
参考以下内容.

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 时间: 2006-7-28 23:00
谢谢5楼大师，您的代码是office2000,如何使office2000的10.0或office2003的Excel 11.0都能自动转换， Else下面的那句代码该怎样改动？谢谢！

作者: nmfx1122 时间: 2006-7-28 23:20
实现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 时间: 2006-7-29 23:50
谢谢nmfx1122大侠：是放在模块中吗？我试过了，好像不起作用？是不是我的那儿设置有问题？d:\Program\office2k\office\EXCEL10.olb中，如果我的office装在C盘是不是要改成C:\ ?

作者: nmfx1122 时间: 2006-7-30 00:26
路径要自己改。

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

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)