如何利用ADO编辑Excel数据

rectapple

各位大神，前段时间通过这个论坛的一个帖子学习了如何通过ExcelVBA+ADO读取Excel的文件。然而最近想通过这个文件进行修改原Excel数据库中的文件一直失败，众位大神是否能赐教？或者推荐教材亦可。最好能够包含添加、修改、删除。

zhaogang1960

ADO可以更新老记录、添加新记录，但不能删除记录
请参考：
根据工作表批量更新Access数据库并向数据库添加不存在的记录(不使用循环)
http://club.excelhome.net/thread-1023579-1-1.html
(出处: ExcelHome技术论坛)

rectapple

zhaogang1960 发表于 2015-6-29 10:12
ADO可以更新老记录、添加新记录，但不能删除记录
请参考：
根据工作表批量更新Access数据库并向数据库添 ...

谢谢！但是如何操作Excel呢（不是Access）

zhaogang1960

rectapple 发表于 2015-6-29 13:09
谢谢！但是如何操作Excel呢（不是Access）

1. Sub updateaddRecords2003()
   
2. '引用Microsoft ActiveX Data Objects 2.x Library
   
3.     Dim cnn As New ADODB.Connection
   
4.     Dim rs As New ADODB.Recordset
   
5.     Dim myPath As String
   
6.     Dim myTable As String
   
7.     Dim strTemp As String
   
8.     Dim arrFields As Variant
   
9. 
   
10.     myPath = ThisWorkbook.Path & "\学校管理.xls"
    
11.     myTable = "[学生档案$]"
    
12.     On Error GoTo errmsg
    
13.     cnn.Open "Provider = Microsoft.Jet.Oledb.4.0;Extended Properties =Excel 8.0;Data Source =" & myPath  '连接数据库
    
14.    
    
15.     arrFields = Range("A1:J1") '工作表中的字段名写入数组
    
16.    
    
17.     '生成更新字符串，如：a.姓名=b.姓名,a.性别=b.性别,……
    
18.     For i = 2 To UBound(arrFields, 2)
    
19.         strTemp = strTemp & ",a." & arrFields(1, i) & "=b." & arrFields(1, i)
    
20.     Next
    
21.    
    
22.     '生成更新SQL语句
    
23.     SQL = "update " & myTable & " a,[Excel 8.0;Database=" & ActiveWorkbook.FullName & "].[数据$" _
    
24.         & Range("a1").CurrentRegion.Address(0, 0) & "] b set " & Mid(strTemp, 2) & " where a.学生编号=b.学生编号"
    
25.     cnn.Execute SQL '不判断，更新可能存在的“学生编号”
    
26.    
    
27.     '生成数据库不存在记录的SQL语句
    
28.     SQL = "select a.* from [Excel 8.0;Database=" & ActiveWorkbook.FullName & "].[数据$" & Range("a1").CurrentRegion.Address(0, 0) _
    
29.         & "] a left join " & myTable & " b on a.学生编号=b.学生编号 where b.学生编号 is null"
    
30.     Set rs = New ADODB.Recordset
    
31.     rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
    
32.    
    
33.     '插入数据库不存在记录
    
34.     If rs.RecordCount > 0 Then '如果工作表中含有数据库不存在记录
    
35.         SQL = "insert into " & myTable & " " & SQL '插入新记录SQL语句
    
36.         cnn.Execute SQL
    
37.         MsgBox rs.RecordCount & "行数据已经添加到数据库！", vbInformation, "添加数据"
    
38.     Else
    
39.          MsgBox "工作表的数据数据库中已经存在。", vbInformation, "添加数据失败"
    
40.     End If
    
41.    
    
42.     '关闭连接释放内存
    
43.     rs.Close
    
44.     cnn.Close
    
45.     Set rs = Nothing
    
46.     Set cnn = Nothing
    
47.     Exit Sub
    
48. errmsg:
    
49.     MsgBox Err.Description, , "错误报告"
    
50. End Sub
    

复制代码

zhaogang1960

rectapple 发表于 2015-6-29 13:09
谢谢！但是如何操作Excel呢（不是Access）

连接Access改为连接Excel工作簿即可：

根据工作表批量更新数据库并向数据库添加不存在的记录(不使用循环)2003.rar (21.61 KB, 下载次数: 114)

2015-6-29 15:31 上传

点击文件名下载附件

rectapple

最近比较忙，还没来得及看，不过谢谢各位大神了！

xlsber

mark 一下，学习

LMY123

into,insert into

忘得快

zhaogang1960 发表于 2015-6-29 15:31
连接Access改为连接Excel工作簿即可：

老师您好！这个代码如何修改才能用于SQL Server数据库？谢谢！