将excel的数据保存到access中，请问该如何解决！

caigen18

附件是依LangQueS版主的文件改的http://club.excelhome.net/thread-484976-1-1.html
现在想让数据保存到ACCESS中，该如何修改？
小弟代码不懂，无力完成，就高手帮助！谢谢！
数据汇总.rar (39.52 KB, 下载次数: 55)

2013-8-5 15:02 上传

点击文件名下载附件

zez

参考http://club.excelhome.net/thread-360059-1-1.html

zhaogang1960

附件中没有发现数据库文件，Excel工作簿中也没有向数据库发送的数据
请上传数据库及有相应数据的工作簿，并说明具体要求

caigen18

zhaogang1960 发表于 2013-8-5 17:39
附件中没有发现数据库文件，Excel工作簿中也没有向数据库发送的数据
请上传数据库及有相应数据的工作簿，并 ...

现在的功能：点“记录到数据库”，浅绿色单元格会复制到工作表“数据库”中的相对应列，复制成功后，自动清空浅绿色单元格内容

希望实现的功能：点“记录到数据库”，浅绿色单元格数据会复制到指定的ACCESS数据库“数据”的“汇总”表的相对应列，复制成功后，自动清空浅绿色单元格内容

深绿色单元格是一对多行的数据，

谢谢！

数据汇总.rar (53.3 KB, 下载次数: 92)

2013-8-5 18:30 上传

点击文件名下载附件

caigen18

zez 发表于 2013-8-5 15:45
参考http://club.excelhome.net/thread-360059-1-1.html

之前好好学习过这个案例！
但因小弟基础不好，无法实现我的需求，故在此寻求高手帮助

zhaogang1960

caigen18 发表于 2013-8-5 18:32
现在的功能：点“记录到数据库”，浅绿色单元格会复制到工作表“数据库”中的相对应列，复制成功后，自动 ...

'引用Microsoft ActiveX Data Objects 2.x Library
Sub updateaddRecords2007()
    Dim cnn As New ADODB.Connection
    Dim myPath As String
    Dim myTable As String
    Dim SQL As String
    myPath = ThisWorkbook.Path & "\数据.accdb"
    myTable = "汇总"
    On Error GoTo errmsg
    cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & myPath '连接数据库
    SQL = "select #" & [d1] & "# as 日期," & [f1] & " as 月份," & [h1] & " as 周数,'" & [j1] & "' as 星期,'" & [d2] & "' as 渠道,'" & [f2] & "' as 账户,'" & [i2] & "' as 设备,* from [Excel 12.0;Database=" & ActiveWorkbook.FullName & "].[录入搜索词数据$C3:L" & Range("c" & Rows.Count).End(xlUp).Row & "]"
    SQL = "insert into " & myTable & " " & SQL '插入新记录SQL语句
    cnn.Execute SQL
    MsgBox "数据已经添加到数据库！", vbInformation, "添加数据"
    cnn.Close
    Set cnn = Nothing
    Exit Sub
errmsg:
    MsgBox Err.Description, , "错误报告"
End Sub

zhaogang1960

请看附件
数据汇总.rar (53.52 KB, 下载次数: 237)

2013-8-5 18:58 上传

点击文件名下载附件

caigen18

zhaogang1960 发表于 2013-8-5 18:58
请看附件

谢谢版主！
因为数据来源有两个不同的地方，两份数据所包含的字段也有所不同，其中大部分字段是共用，有几个字段不同，
现在要将这两组数据都汇总到一个数据表中，数据根据首行的列名汇总到数据表中相应的列，
如，附件的excel中有两个工作表，一是“录入搜索词数据”，一是“录入关键词数据”，两个工作表的数据汇总到同一个数据表，
就是希望数据根据字段名一一对应的复制数据，“关键词展现”的数据会汇总中数据表中的“关键词展现”这一字段
说的有点啰嗦，^^ 数据汇总.rar (52.07 KB, 下载次数: 34)

2013-8-5 19:46 上传

点击文件名下载附件

zhaogang1960

caigen18 发表于 2013-8-5 19:48
谢谢版主！
因为数据来源有两个不同的地方，两份数据所包含的字段也有所不同，其中大部分字段是共用，有 ...

我阅读能力有限，没有看懂，请简要说明想做什么

zhaogang1960

1. Sub 录入关键词数据()
   
2.     Dim cnn As New ADODB.Connection
   
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.     cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & myPath '连接数据库
   
10.     SQL = "select #" & [d1] & "# as 日期," & [f1] & " as 月份," & [h1] & " as 周数,'" & [j1] & "' as 星期,'" & [d2] & "' as 渠道,'" & [f2] & "' as 账户,'" & [i2] _
    
11.         & "' as 设备,* from [Excel 12.0;Database=" & ActiveWorkbook.FullName & "].[" & ActiveSheet.Name & "$C3:J" & Range("c" & Rows.Count).End(xlUp).Row & "]"
    
12.     SQL = "insert into " & myTable & " " & SQL '插入新记录SQL语句
    
13.     cnn.Execute SQL
    
14.     MsgBox "数据已经添加到数据库！", vbInformation, "添加数据"
    
15.     cnn.Close
    
16.     Set cnn = Nothing
    
17.     Exit Sub
    
18. errmsg:
    
19.     MsgBox Err.Description, , "错误报告"
    
20. End Sub
    
21. 
    

复制代码