最近一段时间由于工作需要,将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
'这里将写获取到的代码放置到哪里
请关注下一集 
