EXCEL数据能否直截保存到ACCESS中

ybyb168

希望有热心人为我解下困!
我是个入单员,平时就是一项一项的数据录入EXCEL中,我想在EXCEL中录完一项,点击某个按键就可将这项数据保存到ACCESS表中,请问有什么方法可行,?容易些的?
E-MAIL:zwy0416@163.com

xiaofangsir

这样恐怕是不行，只有当你在EXCEL中的数据保存以后，再打开ACCESS界面后再从文件中选取从外部导入就行了。条件是ACCESS的导入格式和EXCEL的格式是一致的。

yfzdb

可以的。论坛上的excel+access就是这个意思。

yfzdb

不过要用vba 和 AOD等来实现。如果你对这些都比较陌生，就没有办法了。

meeting

那还不如直接在access里录入

做个表单

humengqiang

完全可以，这里有段代码，就是直接录入的，而且是多条记录同时录入access表
Sub baocun()
    '把数据全部录入access表
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim sq1 As String
    Dim x As Long
    x = [a65536].End(xlUp).Row
    For i = 2 To x
    cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\db.mdb"
    sq1 = "select * from 用户表"
    rst.Open sq1, cnn, adOpenKeyset, adLockOptimistic
    rst.AddNew
    rst.Fields("用户编号") = Range("a" & i)
    rst.Fields("姓名") = Range("b" & i)
    rst.Fields("年龄") = Range("c" & i)
    rst.Fields("基本工资") = Range("d" & i)
    rst.Fields("津贴") = Range("e" & i)
    rst.Fields("工资合计") = Range("f" & i)
    rst.Update
    cnn.Close
    Set cnn = Nothing
    Next i
    MsgBox "保存成功"
End Sub

ybyb168

上帝保佑!真的很感谢大家的帮忙!谢谢大家!谢谢EXCELHOME!

4666

如果重复会提示吗？

zez

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