用vba excel,引用了xlodbc.xla,可是换台机器就不能用了,应该是xlodbc.xla文件的位置变了,

[coo]

用vba excel,引用了xlodbc.xla,可是换台机器就不能用了,应该是xlodbc.xla文件的位置变了,因为两台机器的office安装路径不同,这个问题如何解决呢,想写到代码中,这样不用换台机器就配置一次引用.

[hot.wind]

在文档打开的事件中判断是否加载了这个宏。试试下面的这个函数，函数返回true时表示已经加载了这个宏，否则没有加载。
Function IsXlODBCloaded() As Boolean
IsXlODBCloaded = False
For i = 1 To Application.ActiveWorkbook.VBProject.Collection.Count
If Application.ActiveWorkbook.VBProject.Collection(i).Name = "XLODBC.xla" Then
IsXlODBCloaded = True
End If
Next
End Function

[coo]

怎样加载呢?

[hot.wind]

手工加载，工具－》加载宏.

[coo]

ding