（求助]）如何将Excell数据保存到AccEss数据库，从数据库提取自己想要的东西。

xiaoyaole556

请教下各位高手，怎么样把Excell中的数据保存到AccEss数据库中呀，设定一个按钮，当点击时，数据递增到Acc相应的表中，代码怎么写呀，请高手帮助下；Excell表通过输入年月日，从Acc吧数据读提取数据

ly

1、excel表的第一行为标题，不要空
2、为防止冗余，需要有关键字，防止数据重复
3、代码只是提供了思路而已，没有调试过，仅供参考

1.     Dim cnn As New ADODB.Connection
   
2.     Dim myData As String
   
3.     Dim mySht As String
   
4.     Dim SQL As String
   
5.     myData = ThisWorkbook.Path & "" & access表名称 & ".accdb"    '指定数据库文件
   
6.     mySht = ActiveSheet.Name
   
7.     cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & myData
   
8.     SQL = "DELETE FROM " & mySht & " A WHERE EXISTS(SELECT * FROM [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[" & mySht & "$" _
   
9.         & Range("a1").CurrentRegion.Address(0, 0) & "] WHERE 关键字=A.关键字)"
   
10.     cnn.Execute SQL
    
11.     SQL = "INSERT INTO " & mySht & " SELECT * FROM [Excel 12.0;Database=" _
    
12.         & ThisWorkbook.FullName & ";].[" & mySht & "$" & Range("A1").CurrentRegion.Address(0, 0) & "]"
    
13.     cnn.Execute SQL
    
14.     MsgBox "纪录添加成功。", vbInformation, "添加纪录"
    
15.     cnn.Close
    
16.     Set cnn = Nothing

复制代码

0910伟

ly 发表于 2021-8-24 09:01
1、excel表的第一行为标题，不要空
2、为防止冗余，需要有关键字，防止数据重复
3、代码只是提供了思路而 ...

你好，请问能帮忙提供下一个access模板吗

功能主要为:
1、导入按钮，把access文件所在文件夹，符合文本框内设置条件的excel文件导入access生成新表，如果已经存在相同的名字的，则把access原来的表删除，再生成新的
2、清空表按钮，把导入的表全部清空