最近一段时间由于工作需要,将EXCEL作为一个程序端,记录数据的出和如,利用access数据库和excel打造相当一个程序,下面这段代码就是数据库和excel链接。
在excel的后台引用插件,如下图:
在模块里面输入代码:
Dim con As Object Dim rs As New ADODB.Recordset Set con = CreateObject("ADODB.Connection") con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\NPI.accdb"'NPI.accdb就是我们的数据库,这里指的就是当前工作簿的目录下 sql = "select * from Mywork where 料号=32322661" rs.Open sql, con, adOpenKeyset, adLockOptimistic '这里将写获取到的代码放置到哪里
请关注下一集