如何用vba将excel单元格的数据导入access数据库表中?
2019年4月7日
作者:水星Excel
7,200 次浏览
暂无评论
要用vba将excel单元格的数据导入access数据库表中,可以有如下步骤:
用ADODB.Recordset数据集对象连接打开access数据库;
用ADODB.Recordset数据集对象的AddNew方法添加记录;
用ADODB.Recordset数据集对象的Update方法更新记录;
循环2-3;
用ADODB.Recordset数据集对象的Close方法关闭ADODB.Recordset数据集对象。
以下是一个通用的用vba将excel单元格的数据导入access数据库表中的代码:
Sub QQ1722187970()
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adOpenUnspecified = -1
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
Const adLockUnspecified = -1
Dim oRecordSet As Object
Set oRecordSet = CreateObject("ADODB.Recordset")
Dim sConstr As String
Dim sPath As String
Dim sTableName As String
Dim sDataBase As String
Dim sSql As String
Dim oWK As Worksheet
Set oWK = Excel.ActiveSheet
'要导入的Access数据库中的表名
sTableName = oWK.Name
'要导入的Access文件名称
sDataBase = "数据库"
sPath = Excel.ThisWorkbook.Path & "\"
sSql = "SELECT * FROM " & sTableName
sVersion = Excel.Application.Version
'创建连接字符串
If sVersion |