Excel2007打开Access数据库,该如何处理
Excel2007打开Access数据库
我有个excel2003的VBA程序，一直用得很好。
但换了Excel2007下，无法打开Access数据库了。
该程序是用本地机器访问放置在服务器的Access数据库，
已经把服务器端的文件映射到本地Z盘，excel2003的VBA程序也在其中。
Private Const pv_csMDB As String = "z:\TFTD_DB.mdb"
''Open Database
Set pv_MDB = DBEngine.Workspaces(0).OpenDatabase(pv_csMDB)
这句就报错了是，91错误
改成绝对路径也不行Private Const pv_csMDB As String = "\\192.168.1.2\µ÷´ï\System\TFTD_DB.mdb"
在旧机器的2003没问题啊。求解决！
------最佳解决方案--------------------
错误贴出来看下
------其他解决方案--------------------
你发的几个贴的问题应该都是没注册控件的缘故
工具 》 引用 ，选择后确定
------其他解决方案--------------------
自己顶一下，盼高手给指导一下，我没搞过VBA
------其他解决方案--------------------
是不是版本不兼容呢？
------其他解决方案--------------------
在windowsVista+office2007下OK
在windowXP+office2007下不行，就要这个啊！
------其他解决方案--------------------
运行时错误'91'
对象变量或with块变量未设置
------其他解决方案--------------------
如下代码一样报错
Dim wrkJet As Workspace
Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
看了不是打不开数据库，而是无法创建对象？
我有个excel2003的VBA程序，一直用得很好。
但换了Excel2007下，无法打开Access数据库了。
该程序是用本地机器访问放置在服务器的Access数据库，
已经把服务器端的文件映射到本地Z盘，excel2003的VBA程序也在其中。
Private Const pv_csMDB As String = "z:\TFTD_DB.mdb"
''Open Database
Set pv_MDB = DBEngine.Workspaces(0).OpenDatabase(pv_csMDB)
这句就报错了是，91错误
改成绝对路径也不行Private Const pv_csMDB As String = "\\192.168.1.2\µ÷´ï\System\TFTD_DB.mdb"
在旧机器的2003没问题啊。求解决！
------最佳解决方案--------------------
错误贴出来看下
------其他解决方案--------------------
你发的几个贴的问题应该都是没注册控件的缘故
工具 》 引用 ，选择后确定
------其他解决方案--------------------
自己顶一下，盼高手给指导一下，我没搞过VBA
------其他解决方案--------------------
是不是版本不兼容呢？
------其他解决方案--------------------
在windowsVista+office2007下OK
在windowXP+office2007下不行，就要这个啊！
------其他解决方案--------------------
运行时错误'91'
对象变量或with块变量未设置
------其他解决方案--------------------
如下代码一样报错
Dim wrkJet As Workspace
Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
看了不是打不开数据库，而是无法创建对象？