如何在数据库移动/更改名称时更改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