ms-access-2007 - 数据库移动/更改名称时如何更改excel中的嵌入式查询

Question

我有一个电子表格，其中包含来自 Access 数据库的嵌入式查询。

数据库名称/位置可能会不时移动，我希望能够轻松更新查询以指向新数据库。对于其他用户而言，必须手动更改它们可能很困难。

有什么建议么？

Answer 1

根据表的创建方式，您可以在这些行上尝试一些东西。这将更新工作簿中的第二个连接。

sCom = ActiveWorkbook.Connections(2).ODBCConnection.CommandText
sCon = ActiveWorkbook.Connections(2).ODBCConnection.Connection
db1 = "Z:\Docs\db1.mdb"
db2 = "Z:\Docs\db2.mdb"
sCom = Replace(sCom, db1, db2)
sCon = Replace(sCon, db1, db2)

ActiveWorkbook.Connections(2).ODBCConnection.CommandText = sCom
ActiveWorkbook.Connections(2).ODBCConnection.Connection = sCon
ActiveWorkbook.Connections(2).Refresh