Excel/Word/PPT中通过VBA连接本地Access数据库

在Office套件中可以均可嵌入VBA程序并连接本地的Access数据库

1. 在Word/Excel中可通过 Alt + F11 打开VB项目界面

2. 打开菜单: Tools -> References 中，勾选： Microsoft ActiveX Data Objects 2.x Library 引用

3. 在项目中添加VB代码即可连接本地数据库

Sub GetData()
 Dim AdoConn As ADODB.Connection
 Dim MyData As String
 Dim strSQL As String

 Set AdoConn = New ADODB.Connection
 MyData = ThisWorkbook.Path & "\loadingdata.accdb"
 
 With AdoConn
 .Provider = "Microsoft.ACE.OLEDB.12.0"
 .Open MyData
 End With

 For i = 1 To 10
 strSQL = "select * from [" & ActiveSheet.Range("C4").Value & "] where 证券代码='" & ActiveSheet.Cells(i + 4, 1).Value & "'"
 ActiveSheet.Cells(i + 4, 2).CopyFromRecordset AdoConn.Execute(strSQL)
 Next i
End Sub

上面这代代码可以按当前单元格C4的数据查询，并将结果复制到后面的单元格