请求：如何选择所需数据库？？

gdxtx

我有二个结构完全相同的ACCESS数据库，如AA2018.mdb,     BB2019.mdb（因怕数据较多，运行慢，所以做成多个结构完全相同的ACCESS数据库），VBA代码如下：
DBPath = ThisWorkbook.Path & "\BB2019.mdb" 或  DBPath = ThisWorkbook.Path & "\AA2018.mdb"
CNN.Open "Provider=Microsoft.Jet.Oledb.4.0;data Source=" & DBPath
请教如何修改VBA代码，才能在操作的EXCEL表格上,自切换ACCESS数据库(如AA2018.mdb,     BB2019.mdb)?

另外，操作的EXCEL表格比较多，很多模块都需要用到上面这二句代码，有没有办法在主页上设置一个ComboBox或是TextBox,选择上数据库文件的路径，使所有模块都能自动转换成所需的引用的数据库。谢谢！！

hfwufanhf2006

这个简单，把combobox.text 连接在DBPath = ThisWorkbook.Path & "\BB2019.mdb"这句上面就行了，比如：
DBPath = ThisWorkbook.Path & combobox1.text

gdxtx

hfwufanhf2006 发表于 2019-9-11 11:10
这个简单，把combobox.text 连接在DBPath = ThisWorkbook.Path & "\BB2019.mdb"这句上面就行了，比如：
DB ...

我试过了，还是不行哦

hfwufanhf2006

gdxtx 发表于 2019-9-12 18:09
我试过了，还是不行哦

  如果你原来写上去的 DBPath = ThisWorkbook.Path & "\BB2019.mdb 可以的话，DBPath = ThisWorkbook.Path & combobox1.text理论上也应该是可行的，可能是中间少个“\”吧，改成 DBPath = ThisWorkbook.Path & “\" & combobox1.tex 再试试。