比如选择BOOK1.xls的单元格F7,就可以直接打开D:\DATA\DB1.mdb,不需要输入密码123456,希望能得到高手的帮助,谢谢!
经我测试通过，事件是这个：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 7 And Target.Column = 6 Then
strDBSource = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\DATA\DB1.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123456;" ‘连接数据库的字符串
'接着是打开连接的代码，你应该会写的，如dim cn as new adodc.connection等
……
End Sub追问
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 7 And Target.Column = 6 Then
strDBSource = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\DATA\DB1.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123456;" ‘连接数据库的字符串
'接着是打开连接的代码，你应该会写的，如dim cn as new adodc.connection等
……
End Sub追问
不好意思,我只是刚刚接触VBA,你能把代码写完整吗,谢谢!
温馨提示：答案为网友推荐，仅供参考
第1个回答 2011-11-04
需要完整代码的话要知道更详细一点的资料,如你要打开db1.mdb后怎么操作,是取哪个表的什么数据,放到哪里等等.追问
我的目标是通过以上的要求,只要能打开ACCESS文件(db1.mdb),不需要打开其中的表或查询等其它操作,希望能得到你的帮助,谢谢!
