请教如何用excel追加写入access

zhaogang1960

原来用的是前期绑定，下面用后期绑定：

1. Sub excel追加写入access()
   
2.     Dim cnn As Object, rs As Object
   
3.     Dim myPath As String
   
4.     Dim myTable As String
   
5.     Dim SQL As String
   
6.     myPath = ThisWorkbook.Path & "\数据库.accdb"
   
7.     myTable = "提案具体事项"
   
8.     On Error GoTo errmsg
   
9.     Set cnn = CreateObject("ADODB.Connection")
   
10.     Set rs = CreateObject("ADODB.Recordset")
    
11. 
    
12.     cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & myPath '连接数据库
    
13.    
    
14.     '生成数据库不存在记录的SQL语句
    
15.     SQL = "select a.* from [Excel 12.0;Database=" & ActiveWorkbook.FullName & "].[Sheet1$" & Range("a1").CurrentRegion.Address(0, 0) _
    
16.         & "] a left join " & myTable & " b on a.现状问题描述=b.现状问题描述 where b.现状问题描述 is null"
    
17.     Set rs = New ADODB.Recordset
    
18.     rs.Open SQL, cnn, 1, 3
    
19.    
    
20.     '插入数据库不存在记录
    
21.     If rs.RecordCount > 0 Then '如果工作表中含有数据库不存在记录
    
22.         SQL = "insert into " & myTable & " " & SQL '插入新记录SQL语句
    
23.         cnn.Execute SQL
    
24.         MsgBox rs.RecordCount & "行数据已经添加到数据库！", vbInformation, "添加数据"
    
25.     Else
    
26.          MsgBox "工作表的数据数据库中已经存在。", vbInformation, "添加数据失败"
    
27.     End If
    
28.    
    
29.     '关闭连接释放内存
    
30.     rs.Close
    
31.     cnn.Close
    
32.     Set rs = Nothing
    
33.     Set cnn = Nothing
    
34.     Exit Sub
    
35. errmsg:
    
36.     MsgBox Err.Description, , "错误报告"
    
37. End Sub
    

复制代码

zhaogang1960

请看附件
后期绑定.rar (36.31 KB, 下载次数: 219)

2013-11-22 20:00 上传

点击文件名下载附件

张雄友

zhaogang1960 发表于 2013-11-22 20:01
请看附件

还是不行，不知什么原因，查找相关资料也不能解决。

430 类不支持自动化 (Automation) 或不支持期待的接口

http://club.excelhome.net/forum.php?mod=viewthread&tid=986176

zhaogang1960

张雄友 发表于 2013-11-22 20:12
还是不行，不知什么原因，查找相关资料也不能解决。

430 类不支持自动化 (Automation) 或不支持期待的 ...

需要Excel2007或以上才支持

张雄友

zhaogang1960 发表于 2013-11-22 21:19
需要Excel2007或以上才支持

我安装了2003，与2010，难道是相冲突？{:soso_e118:}

zhaogang1960

张雄友 发表于 2013-11-22 21:21
我安装了2003，与2010，难道是相冲突？

不冲突，你引用你下看看有没有下图项目，如果有就没有问题：

张雄友

zhaogang1960 发表于 2013-11-22 21:36
不冲突，你引用你下看看有没有下图项目，如果有就没有问题：

问题解决了，原因在于：
是引用Microsoft ActiveX Data Objects 2.0 Library


而不是引用Microsoft ActiveX Data Objects 2.8 Library

llfccc

zhaogang1960 发表于 2013-11-22 21:36
不冲突，你引用你下看看有没有下图项目，如果有就没有问题：

你好，这个引用和宏可不可以写成批处理或者vbs文件，就是只要执行vbs或者bat文件就可以完成整个导入数据库的工作而不用打开Excel？

zhaogang1960

llfccc 发表于 2013-11-23 10:41
你好，我这个测试成功了，那这里能否不导入编号那一列呢，因为这样的话编号相同就无法导入了，让access中 ...

请测试：
excel追加写入数据库(自动编号).rar (36.94 KB, 下载次数: 328)

2013-11-23 13:38 上传

点击文件名下载附件

lj1226189

如果我现在想要先把access中的数据清空 再将现在电子表中的数据加入到access中如何做到