excel数据怎样导入access

暮烟批 · 发表于 2015-1-21 16:01

新人求助，请老师帮忙解决一下，谢谢。

我是龙五 · 发表于 2015-1-21 16:06

打开Access数据库，然后点数据--Excel图标--然后选择路径下的Excel文件，就可以导入来自Excel的数据了

zhaogang1960 · 发表于 2015-1-21 16:21

请参考：

Sub 从工作表中向数据表添加纪录()
'引用Microsoft ActiveX Data Objects 2.x Library
Dim cnn As New ADODB.Connection
Dim SQL As String
cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\肯纳金属模具查询系统-.accdb"
SQL = "INSERT INTO 模具库 SELECT * FROM [Excel 12.0;Database=" & ThisWorkbook.FullName & ";].[" & ActiveSheet.Name & "$]"
cnn.Execute SQL
MsgBox "纪录添加成功。", vbInformation, "添加纪录"
cnn.Close
Set cnn = Nothing
End Sub

复制代码

zhaogang1960 · 发表于 2015-1-21 16:22

请测试附件

新建文件夹 (2).rar (64.56 KB, 下载次数: 82)

thb5331232 · 发表于 2015-1-21 18:00

下载学习，太牛了！

暮烟批 · 发表于 2015-1-21 18:19

zhaogang1960 发表于 2015-1-21 16:21
请参考：

老师，谢谢您，回复晚了，公示已测试太棒了，但是新人还的麻烦您一下，我要说
是在EXCEL做出数据更改，在ACCESS上不重新开始行，而是在对应的数据作出更新，能实现吗，请您指教，谢谢，

暮烟批 · 发表于 2015-1-21 18:20

我是龙五发表于 2015-1-21 16:06
打开Access数据库，然后点数据--Excel图标--然后选择路径下的Excel文件，就可以导入来自Excel的数据了

谢谢帮助。

zhaogang1960 · 发表于 2015-1-21 18:26

暮烟批发表于 2015-1-21 18:19
老师，谢谢您，回复晚了，公示已测试太棒了，但是新人还的麻烦您一下，我要说
是在EXCEL做出数据更改，在 ...

请说明以哪一个或哪几个字段为基准判断该记录是否在数据库中已经存在

暮烟批 · 发表于 2015-1-21 18:45

zhaogang1960 发表于 2015-1-21 18:26
请说明以哪一个或哪几个字段为基准判断该记录是否在数据库中已经存在

老师，Excel中的任何一个数据都会经常更新的大概480行左右，我想更改完再Access更新后在原数据上体现出来，我可能表达不好，我已重新上传附件，请帮忙看看，谢谢老师，

zhaogang1960 · 发表于 2015-1-21 18:50

暮烟批发表于 2015-1-21 18:45
老师，Excel中的任何一个数据都会经常更新的大概480行左右，我想更改完再Access更新后在原数据上体现出来 ...

如果你没有指定字段，则只要你修改了一个字段的值，程序就会认为是新纪录的，因为程序不可能记录你手工修改工作表时的情况，所以需要告诉它判断是否为新纪录的的标准

		自动登录	找回密码
密码			免费注册

[求助] excel数据怎样导入access